Bonjour,

J'ai un soucis d'erreur 424 sur la macro suivante servant à créer un bouton d'exportation PDF du classeur entier :
Sub Macro1()
'
' Macro1
'

'

Dim Chemin As String

Chemin = ActiveWorkbook.Path


ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "\" & activeworksheet.Range("F19").Value & activeworksheet.Range("F15").Value & "-" & activeworksheet.Range("C10").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

MsgBox "Le PDF a été généré"

End Sub


Avez vous une solution ?

Merci