Rapport de message :*
 

Re: Intégrer Macro SaveAsPDF

Titre du sujet : Re: Intégrer Macro SaveAsPDF
par Antoniomiguel le 04/11/2009 00:22:56

Bonsoir Didier,
Encore une fois merci pour ton aide.
J'ai ouvert le classeur, cliquer sur le bouton et malheureusement il me renvoye le message suivant:

Option Explicit

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

Sinon pour moi c'est super , c'est déjà entrevoir les futurs devis plus sereinnement.
Je te renvoye le dossier Excel au cas ou.Merci encore.
Cordialement.