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

Ta macro est "publique" ?
 
Si tu fais afficher un truc bidon dans word plutôt que le collage, ça marche aussi or not ?

Si au lieux du collage j'ecrit cette commande qui doit normalement ecrire du texte dans mon word :
 
Selection.TypeText Text:="Test de fonctionnement"
 
J'ai un erreur 438 propriété ou methode non géré par cet objet.
 
En ce qui concerne le "publique" je crois savoir ce que ca veut dire mais je ne sais pas ou verifier?
 
Merci de ta réponse ptit loup

"public sub ..." à la place de "sub ..."

t'es sûr pour les ":=" pour l'affectation ? c'est pas plutôt "=" ?

Merci apré une petit recherche google sur public sub j'ai réussi a réssoudre le problème.  
Il suffisait de mettre un Public sub() au depart.
 
Pour ce qui et de la commande de test et de collage c'est :
wdDoc.Activate
    wdDoc.ActiveWindow.Selection.TypeText Text:="Test de fonctionnement"
 
wdDoc.ActiveWindow.ActivePane.Selection.PasteAndFormat (wdPasteDefault)
 
Merci ptit loup