Sub DMI_Générer_PDF()
' Permet de générer une impression PDF d'une partie d'une feuille
' en sauvegardant le document .pdf avec un nom spécifique et dans répertoire déterminé
Dim sRep As String ' Répertoire de sauvegarde
Dim sFilename As String ' Nom du fichier
sRep = "C:\Users\Joe\Desktop\" ' Répertoire de sauvegarde (si non spécifié, répertoire actif par défaut)
sFilename = "Douanes" & "-" & ActiveSheet.Name & "-" & Range("B18").Value & "-" & Range("C20") & "." & "pdf" ' Nom du fichier
' Vérifier si un fichier portant ce nom existe
If sRep("Douanes" & "-" & ActiveSheet.Name & "-" & Range("B18").Value & "-" & Range("C20").Value & "." & "pdf") = "" Then
If MsgBox("Un fichier ayant ce nom " & sFilename & " existe " & _
"déjà dans ce répertoire " & sRep & "." & vbCrLf & _
"Désirez-vous l'écraser ? ", vbCritical + vbYesNo, "Attention !") = vbNo Then
sFilename = Application.InputBox("Donner lui un nouveau nom.")
If Format(sFilename) = False Then
MsgBox "Opération de la Création des fichiers PDF annulée."
Else
End If
End If
End If
Esle
Range("A15:H54").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sRep & sFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub