Remplir un modèle word via excel

Résolu
aldéric76 Messages postés 303 Date d'inscription   Statut Membre Dernière intervention   -  
aldéric76 Messages postés 303 Date d'inscription   Statut Membre Dernière intervention   - 21 oct. 2022 à 14:03

Bonjour à tous,

J'ai un modèle de courrier word que je souhaite remplir via excel

J'ai créé mon modèle word avec les signets nécessaires

Le modèle d'excel est fait lui aussi.

Et voilà ou s'arrêtent mes compétences :/) 

voici le lien de mes 2 fichiers https://cjoint.com/c/LJrodM4DAxm

Merci à tous pour votre aide

A voir également:

5 réponses

Raymond PENTIER Messages postés 58962 Date d'inscription   Statut Contributeur Dernière intervention   17 328
 

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.


0
aldéric76 Messages postés 303 Date d'inscription   Statut Membre Dernière intervention   7
 

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

0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 

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


0
aldéric76 Messages postés 303 Date d'inscription   Statut Membre Dernière intervention   7
 

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

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
aldéric76 Messages postés 303 Date d'inscription   Statut Membre Dernière intervention   7
 

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

0