Sub export_données_dans_signet_word()
Dim WordApp As Word.Application, WordDoc As Word.Document, chemin As String
fichier = ThisWorkbook.Path & "\Doc1.doc"
Application.WindowState = xlMinimized
Set WordApp = CreateObject("Word.Application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(fichier) 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir
'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules
On Error Resume Next
Application.DisplayAlerts = False
With WordDoc
.Bookmarks("signet1").Range.Text = [A2].Text
.Bookmarks("signet2").Range.Text = [A3].Text
.Bookmarks("signet3").Range.Text = [A4].Text
.Bookmarks("signet4").Range.Text = [A5].Text
.Bookmarks("signet5").Range.Text = [A6].Text
.Bookmarks("signet6").Range.Text = [A7].Text
.Bookmarks("signet7").Range.Text = [A8].Text
.Bookmarks("signet8").Range.Text = [A9].Text
.Bookmarks("signet9").Range.Text = [A10].Text
.Bookmarks("signet10").Range.Text = [A11].Text
.Bookmarks("signet11").Range.Text = [A12].Text
'.Save
End With
Set WordApp = Nothing
Set WordDoc = Nothing
'WordDoc.Save 'si on veut fermer le document word en sauvegardant les données
'WordApp.Visible = True 'affiche le document Word 'WordDoc.PrintOut 'si on veut imprimer
'WordApp.Quit 'ferme la session Word
End Sub