Exporter facture excel en pdf

[@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

[@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
@++

[@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]