génération d'une attestation word automatiquement via excel

**prince 1990** · 06/05/2025, 21h45

Bonsoir,
je veux un code vba qui me permet de générer une attestation de travail automatique en fait j'ai un fichier excel contenant matricule la fonction le nom la date de recrutement des employés
je veux une case dans laquelle je saisi matricule d'un employé alors le code enregistre son nom sa fonction et sa date de recrutement dans le fichier word
moi j'ai essayé ce code
mais c'est pas par matricule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub enregistrer_doc_word_en_boucle()
'
' enregistrer_doc_word_en_boucle Macro
'
 
 
    Application.Goto Reference:="enregistrer_doc_word_en_boucle"
 
   Dim wk_fichier As Workbook
   Dim ws_feuil As Worksheet
   Dim lstrw As Long
   Dim wordapp As Object
   Dim wordDoc As Object
   Dim path_file As String
   Dim dossier_fichier As String
   Dim chemin_word As String
   Set wk_fichier = ActiveWorkbook
   Set ws_feuil = wk_fichier.Worksheets(1)
   dossier_fichier = "C:\Users\session\Desktop"
       path_file = "C:\Users\session\Desktop\attestation.docx"
   Set wordapp = CreateObject("word.application")
   wordapp.Visible = True
   lstrw = ws_feuil.Cells(Rows.Count, 1).End(xlUp).Row
   For i = 2 To lstrw
    Set wordDoc = wordapp.Documents.Open(path_file)
     With wordDoc
  .Bookmarks("Nom").Range.Text = ws_feuil.Cells(i, 4) erreur 5941 le membre de la collection requis n'existe pas
  .Bookmarks("fonction").Range.Text = ws_feuil.Cells(i, 11)
  .Bookmarks("date").Range.Text = ws_feuil.Cells(i, 12)
     End With
   wordDoc.SaveAs "" & chemin_word
   wordDoc.Close
   Next
   wordapp.Quit
   MsgBox ("Fin de procédure")
   chemin_word = dossier_fichier & "\" & ws_feuil.Cells(i, 4) & "_" & ws_feuil.Cells(i, 10) & ".docx"
 
 
 
 
End Sub

merci infiniment d'avance pour toute aide -

**Qwazerty** · 06/05/2025, 22h17

Salut

Au vu du message, je pense que tu n'as pas créé tes bookmarks dans ton fichier word. Le message te dis qu'il ne trouve pas Nom dans la liste des bookmarks de ton fichier Word.
Tu as des tuto sur youtube qui te montrent ce qu'il faut faire.
Par exemple fait une recherche "Insérer dans un document Word des informations depuis Excel" dans youtube

Je ne suis pas sûr de ce que tu souhaites faire au global mais tu peux aussi regarder du coté du publipostage sous Word à partir de ta table Excel. Plus simple et sans VBA.

++
Qwaz

**Nain porte koi** · 06/05/2025, 22h44

Hello,

je confirme la réponse de Qwazerty, un publipostage à partir de Word avec des données dans Excel c'est simplissime, et pas besoin de programmer quoi que ce soit.
La faq Word sur le publipostage https://www.faqword.com/index.php/word/publipostage
et celle de developpez.com : https://word.developpez.com/faq/?page=Generalites

Un tuto complet ici https://silkyroad.developpez.com/Exc...tageWordExcel/

Pourquoi vouloir réinventer qqchose qui existe nativement ?

**Philippe Tulliez** · 07/05/2025, 07h00

Bonjour,
Pour automatiser le transfert de données d'excel vers word, j'utilise les signets de word et les cellules nommées côté excel.
Comme modèle word placé dans un sous-répertoire nommé Template, j'utilise un document word (docx).

Voir mon billet sur le sujet titré VBA Excel - Transférer des données d'excel vers Word

**prince 1990** · 07/05/2025, 19h20

merci à vous tous ce que je veux faire n'est plus du publipostage mais lorsque je saisie le matricule dans une case une attestation correspondante à la personne disposant ce matricule se génère automatiquement comme suit Nom : excel.png
Affichages : 116
Taille : 16,9 Ko