Bonjour Luc et le forum.
Je te joins un exemple de macro qui fait l'ouverture d'un document Word et la copie. Tu peux l'adapter à ton cas.
Sub CopieWord()
'Déclaration 4 variables (excel, dossier, fichier, chemin)
Dim objApplication As Object
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String
'Initialisation 4 variables
Set objApplication = CreateObject("word.application")
strDossier = "C:\stage\"
strFichier = "doc1.doc"
strChemin = strDossier & strFichier
Windows(strFichier).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
' Affichage de Word
With objApplication
.Visible = True
'.Workbooks.Open Filename:=strChemin
.Documents.Open Filename:=strChemin
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
Windows("mois.xls").Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
.Visible = False
End With
'Tout coller
'Selection.Paste
'Quitter, Libérer la référence
objApplication.Quit
Set objApplication = Nothing
End Sub
Cathy