bonjours à tous,
j'ai cree une macro sur excel qui renseigne un document word specifique avec des données du tableur excel.
j'aimerai enregistrer chaque fichier word generé par la macro sous un nom different qui est extrait d'une cellule du tableur(chaque cellule reperée attribue un nom).
j'ai essayé avec la synthaxe ci-apres mais en vain. saurez vous comment pourais je m'enfrachire de cet obstacle?



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
42
Sub ExportDonneesDansSignetsWord()
 
Dim nom As String
Dim l As Integer
Dim Message
 
Set WordApp = CreateObject("Word.Application") ' ouvre une session word
WordApp.Visible = False ' word est masqué pendant l'opération
 
For l = 14 To 16 Step 1
Set WordDoc = WordApp.Documents.Open("C:\Users\jersen\Desktop\ge neration fiche d'argrement\materiaux.doc") ' ouvre le document word : generation fiche d'argrement.doc
WordApp.Visible = False ' word est masqué pendant l'opération
nom = Cells(l, 3).Value 'repere le nom du nouveau fichier dans la cellule
 
WordDoc.Bookmarks("affaire").Range.Text = Cells(5, 3)
WordDoc.Bookmarks("approbateur").Range.Text = Cells(9, 3)
WordDoc.Bookmarks("bpu1").Range.Text = Cells(l, 5)
WordDoc.Bookmarks("bpu2").Range.Text = Cells(l, 7)
WordDoc.Bookmarks("bpu3").Range.Text = Cells(l, 9)
WordDoc.Bookmarks("bpu4").Range.Text = Cells(l, 11)
WordDoc.Bookmarks("bpu5").Range.Text = Cells(l, 13)
WordDoc.Bookmarks("cctp1").Range.Text = Cells(l, 4)
WordDoc.Bookmarks("cctp2").Range.Text = Cells(l, 6)
WordDoc.Bookmarks("cctp3").Range.Text = Cells(l, 8)
WordDoc.Bookmarks("cctp4").Range.Text = Cells(l, 10)
WordDoc.Bookmarks("cctp5").Range.Text = Cells(l, 12)
WordDoc.Bookmarks("chrono").Range.Text = Cells(l, 17)
WordDoc.Bookmarks("classement").Range.Text = Cells(l, 16)
WordDoc.Bookmarks("emeteur").Range.Text = Cells(l, 15)
WordDoc.Bookmarks("fournisseur").Range.Text = Cells(l, 14)
WordDoc.Bookmarks("indice").Range.Text = Cells(l, 19)
WordDoc.Bookmarks("marche").Range.Text = Cells(16, 3)
WordDoc.Bookmarks("materiaux").Range.Text = Cells(l, 3)
WordDoc.Bookmarks("numero").Range.Text = Cells(l, 2)
WordDoc.Bookmarks("redacteur").Range.Text = Cells(7, 3)
WordDoc.Bookmarks("type").Range.Text = Cells(l, 16)
WordDoc.Bookmarks("verificateur").Range.Text = Cells(8, 3)
ActiveDocument.SaveAs "C:\Users\jersen\Desktop\generation fiche d'argrement\" & nom & ".doc"
ActiveDocument.close
 
Next l
End Sub