Ca marche
Le code pour sauvegarder est donc:
Dim chemin As String
Dim fichier As String
chemin = ThisWorkbook.Path & Application.PathSeparator
fichier = Format(Range("C5"), "yyyymmdd") & "-" & Range("D2") & "-" & Range("E5")
ActiveSheet.PageSetup.PrintArea = Range("B2:E29").Address
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Le Dernier reglage qui reste est :
Comment creer automatiquement un Sous-Dossier "Factures" qui va contenir ces PDF
On y est presque!! Merci