Sub Enregistrer_FeuilleEnPDF()
Dim Ch$, Chemin$, Dossier$, NomDuFichier$
Dim MaDate
Dim CheminComplet As String
Ch = ThisWorkbook.Path ' Chemin de base
Dossier = "Factures en cours" ' Dossier cible à adapter si besoin
Chemin = Ch & "\" & Dossier ' Chemin complet
CheminComplet = Ch & "\" & Dossier ' Chemin complet du dossier
' Vérifier si le dossier existe
If Dir(CheminComplet, vbDirectory) = "" Then
' Si le dossier n'existe pas, le créer
MkDir CheminComplet
End If
With Sheets("Feuil2") ' Nom de la feulle à adapter si besoin
MaDate = Format(Range("B9"), "yyyy-mm-dd") ' Date facture formatée correctement pour export PDF
NomDuFichier = .Range("E11").Value & "-" & MaDate ' Cellule ou se trouve le nom du client et la date de la facture
If Dir(Chemin, vbDirectory) = "" Then ' Vérifiez si le dossier existe
MkDir Chemin ' Si le dossier n'existe pas, créez-le
End If
.PageSetup.PrintArea = ("$A$1:$F$46") ' Zone à exporter dans le PDF
.ExportAsFixedFormat xlTypePDF, Chemin & "\" & NomDuFichier
End With
MsgBox "Le fichier PDF a été enregistré avec succès dans le dossier : " & Chemin
End Sub
Sub Suppression()
'les Select/Selection ralentissent pour rien le code
Range("B3:B7").ClearContents
Range("B22:B33").ClearContents
Range("D4:G15").ClearContents
'ou
'Range("B3:B7, B22:B33, D4:G15").ClearContents
End Sub