Exporter facture excel en pdf

[@lolo-cc1xp]

Bonjour et merci pour ce super tuto. Quelle ligne je dois ajouter si je veux transférer le dossier PDF vers un dossier précis afin qu’il ne reste pas sur la page bureau, j’espère être clair. Merci encore

[@Lautomatiseur]

Hello, Merci pour le retour. Vous pouvez adapter en remplaçant : Thisworbook.path Par "C:\monrepertoire" Par exemple @++

[@jojolavoie]

Bonjour! J'ai également le même code d'erreur de Marie (code d'erreur 424). Serait-ce possible de m'aider svp? Je suis sur windows Sub SavetoPDF() ' ' SavetoPDF Macro ' ' Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorbook.Path & "\" & Range("h10").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Application.DisplayAlerts = True End Sub

[@marieprat4020]

Bonjour, Merci pour vos tutos très bien expliqués ! j'ai écrit ça dans mon module : Sub SaveToPDF() ' ' SaveToPDF Macro ' ' Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorbook.Path & "\" & Range("H3").Value & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Application.DisplayAlerts = True End Sub mais ça me met "erreur d'exécution 424" cordialement

[@Lautomatiseur]

Bonjour, Merci pour le retour, Pouvez-vous m'envoyer un mail avec copie du message d'erreur et en précisant si vous êtes sur Windows. Cdt

[@Lautomatiseur]

Mail à [e-mail]. Merci

[@mgvdesigns]

l'erreur vien de "ThisWorbook.Path" vous avez oublier le K a work

[@adrienguei9813]

Moi "Erreur d'exécution '10004'

[@Lautomatiseur]

Bonjour, C'est un peu court comme description. Vous avez un peu plus d'éléments ? Vous pouvez m'envoyer un mail à [e-mail]