MACRO : Envoyer vers destinataire en PDF

[bgilles]

Bonjour,
Je souhaite réaliser une macro pour envoyer au destinataire (dont l'adresse figure en F6) une feuille de calcul XLS mais en format PDF.

J'ai enregistré simplement la macro pour "envoyer vers desinataire en pdf" :
Sub Macro3()
'
' Macro3 Macro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\DOCUME~1\bertrand\LOCALS~1\Temp\ARCO 725.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
ActiveSheet.Shapes("CommandButton2").Select
ActiveWorkbook.Save

End Sub

Mais quand j'exécute la macro, c'est le fichier .XLS qui s'expédie... Et je ne me suis pas encore inquiété du problème de l'adresse du destinataire...

CE QUI M'ÉTONNE C'EST QUE QUAND J'ENREGISTRE LA MACRO PAS à PAS CELA FONCTIONNE PARFAITEMENT (c'est le fichier PDF qui est envoyé en pièce jointe) MAIS QUAND J'EXÉCUTE LA MACRO, C'EST UN FICHIER .xls qui est envoyé en pièce jointe ???

Pour info, j'ai Acrobat sur mon poste.

Quelqu'un peut-il m'aider ?

 

[picsou]

Re : MACRO : Envoyer vers destinataire en PDF

bonjour tous je me retrouve avec le meme souci avec excel 2007 apres plusieurs recherches sur le forum je ne trouve pas la solution
le code enregistre et renomme bien le fichier en pdf mais il le place en piece jointe avec l'extension .xlsm

Sub Macro1()
Dim sDate As String, sNum As String
Dim sNom As String, sNomFichierPDF As String
    sNum = ActiveSheet.Range("C1")

    sNomFichierPDF = sNum & "_" & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show
       End Sub

comment faire pour que le fichier joint soit en pdf et non pas en xls

merci a tous de me lire