Sub EnregistrerPDF()
Dim Nomfichier As String, Chemin As String
Dim LaDate As String
Dim Numero As String, sFichier1 As String
Application.StatusBar = ""
Chemin = ThisWorkbook.Path
With Feuil1
.Select
.PageSetup.PrintArea = "$A$1:$J$47"
LaDate = Format(Date, "yyyy.mm.dd")
Numero = .Range("A2")
End With
Nomfichier = LaDate & "_" & Numero
sFichier1 = Chemin & "\" & Nomfichier
If NomFichierValide(Nomfichier) Then
Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier1
Else
MsgBox "Nom de fichier invalide", vbCritical + vbOKOnly
Exit Sub
End If
Application.StatusBar = "Création des PDFs effectuée"
End Sub
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?\|[]"
NomFichierValide = True
If Len(sChaine) = 0 Then
NomFichierValide = False
Exit Function
End If
For i = 1 To Len(sCaracInterdits)
If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
NomFichierValide = False
Exit Function
End If
Next i
End Function