besoin code

Sub BoutonImpressionPDF()
Dim LePath$
Dim Chemin$

Dim NomFich$

Range("F1:G1").Select
Chemin = "C:\Users\" & Application.UserName & "\Desktop\Factures - Devis en PDF"
On Error Resume Next
ChDir (Chemin)
If Err Then MkDir Chemin
On Error GoTo 0
LePath = Chemin & "\" & [F10] & [G10] & " - " & [A12] & " (" & [F14] & ").pdf"
If [G10] = "" Or [A12] = "" Or [F14] = "" Then Call MessageCelluleVide: Exit Sub
LePath = "C:\Users\" & Application.UserName & "\Desktop\Factures - Devis en PDF\" & [F10] & [G10] & " - " & [A12] & " (" & [F14] & ").pdf"
If Dir(LePath) <> "" Then If MsgBox("Un fichier nommé '" & LePath & "' " & "existe déjà à cet emplacement." & vbCr & _
"Voulez-vous le remplacer ?", vbYesNo + vbQuestion, "Voulez-vous écraser le fichier PDF existant ?") = vbNo Then Exit Sub
On Error Resume Next
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LePath, OpenAfterPublish:=True

NomFich$ = "mon fichier < /"
For I = 1 To 9
Car$ = Choose(I, "<", ">", "\", "/", "|", "?", ":", "*", Chr(34))
If InStr(NomFich$, Car$) Then MsgBox "le caractère suivant est interdit !" & vbLf & Car$, vbCritical, "Info"
Next
End Sub

Sub MessageCelluleVide()
MsgBox "Veuillez compléter les cellules suivantes afin d'obtenir le fichier PDF :" & vbCr & _
"- Numéro du document" & vbCr & _
"- Nom du client" & vbCr & _
"- Nom du chantier", vbInformation, "Attention"
End Sub

Cliquez pour agrandir...