Rapport de message :*
 

Re: Intégrer Macro SaveAsPDF

Titre du sujet : Re: Intégrer Macro SaveAsPDF
par myDearFriend! le 03/11/2009 19:40:49

Bonsoir Antoniomiguel, bienvenue sur XLpages.com

Citation :
Antoniomiguel a écrit :
...Je souhaiterais mettre sur ma feuille principale un bouton avec comme fonction, une fois cliquer de sauvegarder ce document ( la zone délimité, le devis) en format PDF sur mon Bureau de l'ordinateur...

Tu trouveras ci-joint une version de ton fichier répondant, je pense, à cette première demande.

J'ai utilisé un bouton ActiveX inséré sur la feuille "Devis" et dont le code VBA est le suivant :
DANS LE MODULE DE CODE DE LA FEUILLE "Devis"
Private Sub btnPDF_Click()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Chemin As String
    'Créer le fichier PDF sur le bureau Windows avec le numéro de devis comme titre
    With Sheets("Devis")
        Chemin = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Devis " & .Range("C22").Text & ".pdf"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End With
End Sub

Pour l'envoi du document, quel client Mail utilises-tu ? Outlook ?

(je ne suis pas un grand spécialiste de ce type de procédure, mais si tu utilises Outlook, je devrais sans doute pouvoir te proposer une solution)

Cordialement,