Sub CopierUneDonnéeDansWord()
Dim wdApp As Word.Application 'instance de l'appli Word
Dim WdDoc As Word.Document 'instance du document Word à ouvrir
Dim FL1 As Worksheet
Dim Chemin, NomFich
Dim NoLigne As Long, NoCol As Byte, LaDonneeAcoller
Chemin = "D:\Doc\"
NomFich = "Worddoc.doc"
Set FL1 = ActiveWorkbook 'instance du classeur actif
Set wdApp = CreateObject("word.application") 'ouvre la session Word
Set WdDoc = wdApp.Documents.Open(Chemin & NomFich) 'ouvre le doc
If WdDoc Is Nothing Then 'Fichier non trouvé
MsgBox "Fichier " & NomFich & " non trouvé dans le répertoire " & Chemin
GoTo Fin 'l'instance de word doit être fermée
End If
wdApp.Visible = False 'masque Word
LaDonneeAcoller = FL1.Cells(NoLigne, NoCol).Value
'En supposant que dans ton doc Word tu aies un signet nommé "Signet"
With wdApp
.Selection.Goto What:=wdGoToBookmark, Name:="Signet"
.Selection.InsertAfter LaDonneeAcoller
End With
'WdApp.Visible = True 'Pour voir (Ne pas fermer le fichier depuis Word)
WdDoc.Close True 'Enregistre et ferme le doc word
DoEvents 'Laisse au system le temps d'enregistrer le fichier
Fin::
wdApp.Quit 'ferme la session
Set Plage = Nothing
Set wdApp = Nothing
Set WdDoc = Nothing
End Sub