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")
Tu peux essayer quelquechose comme ça :
strDossier = "C:\stage\"
strWordFichier = "doc1.doc"
strxlFichier = "mois.xls"
strChemin = strDossier & strWordFichier
Windows(strxlFichier).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
' Affichage de Word
With objApplication
.Visible = True
.Documents.Open Filename:=strChemin
'collage spécial en tant qu'objet microsoft excel
.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
End With
objApplication.Quit
Set objApplication = Nothing
End Sub
Amitiés.
Cathy