Renommer fichier selon contenu cellules avant evoi en PJ

[perdinch]

Bonjour,

sou excel 2003
Dans le module ci-après je souhaite avant envoi du fichier en pièce jointe le renommer avec le contenu des cellules b18 et b19 de la feuille nommée FDD.
Merci d'avance pour votre éclairage.J'ai fais quelques tests mais sans succès.


Sub SendEMailwithAttachments()
Dim ol As Object, myItem As Object
Dim strHtml As String

strHtml = "Bonjour , <BR><BR>"
strHtml = strHtml & "<B><font size=4mm>" & _
"Veuillez trouver çi-joint une fiche de liaison provenant de la PFV</font></B>"
strHtml = strHtml & "<BR><BR>" & _
"<font color=black>Cordialement</font>" & "<BR><BR>"
strHtml = strHtml & Environ("UserName") & " " & Range("b10").Value
strHtml = strHtml & ""

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)


myItem.To = Range("D32").Value
myItem.Subject = "fiche de liaison PFV" & "de" & " " & Range("b13").Value
myItem.HtmlBody = strHtml
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send

Set ol = Nothing

End Sub

 

[JNP]

Re : Renommer fichier selon contenu cellules avant evoi en PJ

Bonjour Perdinch 🙂,
En début de macro, tu sauvegardes le fichier dans le C:

ActiveWorkbook.SaveAs Filename:= _
"C:\" & Sheets("FDD").Range("B18") & Sheets("FDD").Range("B19") & ".xls"

pour la pièce jointe

myItem.Attachments.Add _
"C:\" & Sheets("FDD").Range("B18") & Sheets("FDD").Range("B19") & ".xls"

et à l'ouverture suivante, tu tues le fichier

Kill "C:\" & Sheets("FDD").Range("B18") & Sheets("FDD").Range("B19") & ".xls"

Attention à ce que B18 et B19 ne contiennent pas de caractères exotiques (date par exemple).
Bon WE 😎

 

[perdinch]

Re : Renommer fichier selon contenu cellules avant evoi en PJ

Merci de votre collaboration.
Sincérement
PERDINCH