Bonjour
Voici mon probleme. j'ai adapter cette fonction, mais la seule chose est que j'aimerais que le fichier de sortie dans le e-mail sois en PDF et non XLSX et pouvoir inscrire Facture au lieu de Classeur1.xlsx
je suposse que ses dans le UFS2
Private Sub CommandButton1_Click()
Unload Me
ActiveSheet.Copy
ActiveWorkbook.SendMail MailAdresse, MailSubject
MsgBox "Votre feuille a bien été envoyé"
ActiveWorkbook.Close 0
End Sub
merci de m'aider a comprendre pourquois il ne le transfere pas en PDF, j'ai essaier plien de chose mais sans succes
Comme:
pdfname = Range("H10").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Merci de votre aide
Voici mon probleme. j'ai adapter cette fonction, mais la seule chose est que j'aimerais que le fichier de sortie dans le e-mail sois en PDF et non XLSX et pouvoir inscrire Facture au lieu de Classeur1.xlsx
je suposse que ses dans le UFS2
Private Sub CommandButton1_Click()
Unload Me
ActiveSheet.Copy
ActiveWorkbook.SendMail MailAdresse, MailSubject
MsgBox "Votre feuille a bien été envoyé"
ActiveWorkbook.Close 0
End Sub
merci de m'aider a comprendre pourquois il ne le transfere pas en PDF, j'ai essaier plien de chose mais sans succes
Comme:
pdfname = Range("H10").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Merci de votre aide
Pièces jointes
Dernière édition: