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. |
Forums