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
aldéric76 Messages postés 303 Date d'inscription Statut Membre Dernière intervention - 21 oct. 2022 à 14:03
A voir également:
- Remplir word avec excel
- Word et excel gratuit - Guide
- Word 2013 - Télécharger - Traitement de texte
- Organigramme a remplir word - Guide
- Liste déroulante excel - Guide
- Tableau word - Guide
5 réponses
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question