Bonsoir Rosa, le Forum,
Je pense que par insérer, tu veux dire : ouvrir.
Voici un code de notre ami Didier
OuvrirWordDansExcel de myDearFriend page n°3 Wiki de MichelXLD !
Place un bouton de commande et associe la macro
Sub OuvrirDoc()
'Il convient d'activer la référence 'Microsoft Word XX.X Object Library'
Dim AppW As Word.Application
Dim DocW As Word.Document
Dim Chemin As String
Chemin = ThisWorkbook.Path & 'LeFichier.doc'
Set AppW = CreateObject('Word.Application')
AppW.Visible = True
Set DocW = AppW.Documents.Open(Chemin)
End Sub
sinon pour simplement visualiser le document , tu peux utiliser :
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Application.ScreenUpdating = False
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(ThisWorkbook.Path & '\\dossier.doc')
En espérant que ces renseignements te seront utils.
Bonne soirée.