Bonjour à tous,
Je sais que beaucoup de topic traite de ce sujet mais ca fait plusieur jour que je cherche et je ne trouve pas de réponse.
J'ai un fichier excel avec beaucoup de graph que je veux coller dans un doc Word sous forme d'image.
J'utilise un fichier word qui exsite déjà. J'arrive à copier mes graphs. J'arrive a appelé le fichier word mais je n'arrive a rien faire à l'interieur de ce fichier:
Voila des morceaux de mon code:
Sub collageimage()
Dim wdApp As New Word.Application Declaration des variables pour le document word
Dim wdDoc As Word.Document
ActiveSheet.Shapes("Picture 113" ).Select Selection de mon graph dans mon xls
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Copy comme image
Set wdDoc = wdApp.Documents.Open("D:\A400M-FLE\Postprocessing\POST-GPA\M03\Rapport.doc" ) Appel du fichier word
wdApp.Visible = True activation de l'application
wdDoc.Activate rend le document actif
wdDoc.ActiveWindow.ActivePane.Selection.PasteAndFormat (wdPasteDefault)
Commande qui devrrais copier mais qui pose pb
wdDoc.Close False ' ou False, enregistrement des modifs ?
wdApp.Quit
End Sub
Voila ma macro xls. J'ai essayer plusieurs truc mais je n'y arrive pas. Je suis debutant en VBA, je suis donc ouvert a toutes les méthodes.
J'ai environ à 200 à 300 graph a traité avec de la mise en page à faire (du style rajouter une légende mais çà je verais aprés)
Merci pour toutes vos réponses
Message édité par Gipere33 le 13-05-2009 à 14:17:52