Sub Word2()
Dim sPath As String
Dim sNomFic As String
' Définir le chemin source et de destination
sPath = "C:\Documents and Settings\loic\Mes documents\test Publipostage\"
' Créer une instance de word
Set WordApp = CreateObject("word.application")
' Faire la boucle à ce niveau
DernLigne3 = Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DernLigne3
Set Worddoc = WordApp.documents.Open(sPath & "test.dot")
WordApp.Visible = False
Worddoc.Bookmarks("date").Range.Text = Sheets("Feuil3").Range("A" & i)
Worddoc.Bookmarks("semaine").Range.Text = Sheets("Feuil3").Range("C" & i)
Worddoc.Bookmarks("format").Range.Text = Sheets("Feuil3").Range("G" & i)
WordApp.Visible = True
' Il faut remplacer les slash par des tirets sinon Word ne comprendras pas
sNomFic = Replace(Sheets("Feuil3").Range("A" & i).Value, "/", "-") & _
Replace(Sheets("Feuil3").Range("G" & i).Value, "/", "-")
' Enregistrer le fichier avec el nom
Worddoc.SaveAs Filename:=sPath & "Test " & sNomFic & ".doc"
'ouvrir mail
Set oOutlook = CreateObject("Outlook.Application")
Set oNewMail = oOutlook.CreateItem(olMailItem)
With oNewMail
.Attachments.Add "chemin du fichier créé précedemment"
.Recipients.Add "@.fr"
.Subject = "demande"
.Body = "texte du message"
.display
End With
Next
End Sub