Changer une feuille Excel en PDF par VBA

[Roseline]

Bonjour,
Je tente de faire imprimer ma feuille excel en PDF et de l'envoyer immédiatement par courriel par la suite. Ma commande envoie mon courriel sans problème mais le fichier joint est toujours en format excel et non en PDF.
Pouvez-vous m'aider.
Merci

 

[youky(BJ)]

Bonjour Roseline,
Voici mais j'ai pas testé
Bruno

Sub clientpdf()
ActiveSheet.Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\windows\Test - Wxcel en Pdf.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close (False)
MsgBox ("Le Pdf a été créé")
Range("A5").Select
End Sub

 

[Roseline]

Bonjour Roseline,
Voici mais j'ai pas testé
Bruno

Sub clientpdf()
ActiveSheet.Copy
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\windows\Test - Wxcel en Pdf.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close (False)
MsgBox ("Le Pdf a été créé")
Range("A5").Select
End Sub

BonjourYouky, Merci pour ta réponse, mais le fichier demeure en excel et non en PDF. Pourtant la copie qu'il va porter sur le C est bel et bien en pdf.

 

[youky(BJ)]

Bonsoir Roseline,
ce code ne peux qu'envoyer le fichier excel en cours et non un autre fichier
c'est ce que je viens de découvrir dans l'aide.
Application.Dialogs(xlDialogSendMail).Show
Les solutions ne manquent pas, cela dépends aussi encore de la messagerie utilisée.
Connaissant le nom et l'emplacement du fichier tu devrais trouver en ajoutant le code
à la suite de la macro en supprimant la ligne Application.Dial…………
Merci au connaisseur dans le domaine de prendre le relais car je n'ai pas la réponse.
Bruno