Graphe

Document Sample
Graphe Powered By Docstoc
					Mois      Ca
Janvier        1,000 €                     Ca par Mois
Février        1,200 €
Mars           1,250 €
                              1,400   €
Avril          1,100 €        1,200   €
Mai             800 €         1,000   €
Juin           1,260 €          800   €
                                600   €
                                400   €
                                200   €
                                 -    €
                                          Janvier   Février   Mars   Avril   Mai   Juin




                         Transforme le graphe en image
                         avec ChartObjects(x).CopyPicture
                         Sub EditionCopierImage()
                           For Each i In Sheets("GrapheImage").Shapes     ' Raz images sur graphe image
                             Sheets("GrapheImage").Shapes(i.Name).Delete
                           Next i
                           '-- Copy Graph --> Image
                           Sheets("Graphe").ChartObjects(1).CopyPicture  ' copy
                           Worksheets("GrapheImage").Paste Destination:=Worksheets("GrapheImage").Range("B3")
                         End Sub
Graphique sous forme d'image


              Ca par Mois

   1 400 €
   1 200 €
   1 000 €
     800 €
     600 €
     400 €
     200 €
     -   €
             Janvier   Février   M ars   A vril   M ai   Juin
Sujet   Destinataire            Message
Essai   Boisgontier@hotmail.com Bonjour,               Envoi la feuille GrapheGif par mail
                                Veuillez trouver ci-
                                joint..                Sub envoimail()
                                                         répertoireAppli = ActiveWorkbook.Path
                                                         Sheets("GrapheGif").Copy
                                                         Application.DisplayAlerts = False
                                                         ActiveWorkbook.SaveAs répertoireAppli & "\GrapheGif.xls"
                                                         ActiveWindow.Close
                                                         '--- Envoi par mail
                                                         Dim olapp As Outlook.Application
                                                         Dim msg As MailItem
                                                         Set olapp = New Outlook.Application
                                                         Set msg = olapp.CreateItem(olMailItem)
                                                         msg.To = Range("B2")
                                                         msg.Subject = Range("A2").Value
                                                         msg.Body = Range("C2")
                                                         msg.Attachments.Add Source:=répertoireAppli & "\GrapheGif.xls"
                                                         msg.Send
                                                       End Sub

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:3
posted:10/1/2011
language:French
pages:3