Bonjour,
J'ai un soucis avec un morceau de code, je sais mettre en pièce jointe d'un mail un fichier avec un nom donné, mais dans mon cas ci dessous mon fichier à un nom variable.
Est ce que quelqu'un sait comment je dois faire?
J'ai un soucis avec un morceau de code, je sais mettre en pièce jointe d'un mail un fichier avec un nom donné, mais dans mon cas ci dessous mon fichier à un nom variable.
Est ce que quelqu'un sait comment je dois faire?
Merci.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