Macro avec nom de fichier variable

[btellier]

Bonjour à tous,

j'utilise une macro qui me permet récupérer un fichier pdf, le mettre en pièce jointe dans Outlook et envoyer le mail.
Voici la macro qui fonctionne parfaitement :

Sub SendMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim Chemin$, Client$, Fichier$

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Range("a1").Value
.Subject = Range("a1").Value
.Body = "Bonjour," & vbNewLine & _
"" & vbNewLine & _
"Veuillez trouver ci-joint le reporting des comptes erreurs." & vbNewLine & _
"" & vbNewLine & _
"Bien cordialement," & vbNewLine & _
""
.Attachments.Add "C:\Documents and Settings\Administrateur\Bureau\Dossiers\Archive devis\Devis\variable.pdf"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub


La ou ça se complique, c'est le nom du fichier à joindre qui varie (le chemin ne change pas). Pour info, le nom de fichier est dans une cellule (A1 par exemple).

Merci par avance, ce bout de code me permettrait de finaliser mon travail.

Benoit.

 

[JNP]

Re : Macro avec nom de fichier variable

Bonjour BTellier et bienvenue ,

.Attachments.Add "C:\Documents and Settings\Administrateur\Bureau\Dossiers\Archive devis\Devis\" _
    & Sheets("Feuil1").Range("A1").Text & ".pdf"

Bonne soirée
Ajout : Salut Pierre-Jean

 

[pierrejean]

Re : Macro avec nom de fichier variable

Bonjour btellier

Et bienvenue sur XLD

A tester: Modifier cette ligne

[I].Attachments.Add "C:\Documents and Settings\Administrateur\Bureau\Dossiers\Archive devis\Devis\variable.pdf"[/I]

comme ceci

[I].Attachments.Add "C:\Documents and Settings\Administrateur\Bureau\Dossiers\Archive devis\Devis\" & ActiveSheet.range("A1") & ".pdf"[/I]

Edit: Salut JNP

 

[btellier]

Re : Macro avec nom de fichier variable

ça marche, c'est excellent - merci à vous !!!!