Remplir un modèle word via excel

Bonjour.

Tu devrais te pencher sur l'outil Publipostage de Word.

Les données peuvent être créées dans Word même, ou dans Access, ou dans Excel.

Merci Raymond pour ta réponse,  mais le publipostage ne me semble pas adapté du tout et je sais que ce que je recherche est possible... il me faut juste y arriver lol

Bonjour,

voilà un exemple avec les 4 premières saisies. Je te laisse compléter la suite:

Option Explicit
'Allez dans Outils Références et cochez Microsoft Word 12.0 Object Library
'avec les signets
Sub exceltoword()
Dim AppWord As Word.Application
Dim DocWord As Word.Document
Dim nom As String
nom = ThisWorkbook.Worksheets("NOTE_A_TRIER").Range("B1")
Set AppWord = New Word.Application
   AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(ThisWorkbook.Path & "\MODELE.docx")
 ' Copie les données Excel
   ThisWorkbook.Worksheets("NOTE_A_TRIER").Range("B1").Copy
    ' Colle les données dans Word
   AppWord.Selection.Goto what:=wdGoToBookmark, Name:="Rédacteur" ' on recherche le signet dans Word pour se positionner
  AppWord.Selection.PasteSpecial
    ' Copie les données Excel
    ThisWorkbook.Worksheets("NOTE_A_TRIER").Range("B2").Copy
    ' Colle les données dans Word
   AppWord.Selection.Goto what:=wdGoToBookmark, Name:="Téléphone" ' on recherche le signet dans Word pour se positionner
   AppWord.Selection.PasteSpecial
    ' Copie les données Excel
   ThisWorkbook.Worksheets("NOTE_A_TRIER").Range("B3").Copy
    ' Colle les données dans Word
   AppWord.Selection.Goto what:=wdGoToBookmark, Name:="Mail" ' on recherche le signet dans Word pour se positionner
  AppWord.Selection.PasteSpecial
     ' Copie les données Excel
    ThisWorkbook.Worksheets("NOTE_A_TRIER").Range("B4").Copy
    ' Colle les données dans Word
   AppWord.Selection.Goto what:=wdGoToBookmark, Name:="Destinataire" ' on recherche le signet dans Word pour se positionner
   AppWord.Selection.PasteSpecial
'enregistre
AppWord.Application.ActiveDocument.SaveAs (ThisWorkbook.Path & "\" & nom & ".docx") 'enregistre sous le nom
 MsgBox "Enregistrer dans le même dossier que le MODELE", vbOKOnly + vbInformation, "Excel to Word"

AppWord.Application.Quit
Set AppWord = Nothing
Set DocWord = Nothing
End Sub

A mettre dans un module

Super, merci je creuse ça demain ????

Merci à tous pour vos aides, fichier opérationnel :-)