Sub copiePDF() 'code copie en PDF et classement
Dim sNomDossier As String
Dim sNomFichierPDF As String
sNomDossier = ThisWorkbook.Path
sNomFichierPDF = Format(Feuil1.Range("l5"), "dddd dd mmmm yyyy") & " n° " & Range("z58") 'nom du fichier + N° de document
sNomDossier = ThisWorkbook.Path & "\année 2015\" & Format(Feuil1.Range("l5 "), "mmmm yyyy") & "\"
If Len(sNomFichierPDF) > 0 Then
If NomFichierValide(sNomFichierPDF) Then
'ActiveSheet
[COLOR=#ff0000] Feuil1.ExportAsFixedFormat Type:=xlTypePDF, _[/COLOR]
[COLOR=#ff0000] Filename:=sNomDossier & "/" & _[/COLOR]
[COLOR=#ff0000] sNomFichierPDF & ".pdf" _[/COLOR]
[COLOR=#ff0000] , Quality:=xlQualityStandard, _[/COLOR]
[COLOR=#ff0000] IncludeDocProperties:=True, _[/COLOR]
[COLOR=#ff0000] IgnorePrintAreas:=False, _[/COLOR]
[COLOR=#ff0000] OpenAfterPublish:=False[/COLOR]
Else
Feuil1.Range("l5").Select
MsgBox "Ce nom de fichier est invalide", vbOKOnly + vbInformation, "Nom de Fichier"
End If
End If
'MsgBox ("Le fichier PDF nommé " & sNomFichierPDF & " à bien été crée dans le répertoire " & sNomDossier)
End Sub