Bonjour le forum,
J'utilise ce code pour enregistrer mes feuilles Excel en format PDF
on peut nommer le dossier
récupérer certaines valeurs dans la feuille pour nommer le nom du fichier
Très pratique
Je cherche à rajouter dans le code en limitant le champ d'impression
Il prend tous les éléments présents dans la feuille
Je souhaiterais ajouter la sélection de A1 à D38
Est-ce que ceci est possible
J'utilise ce code pour enregistrer mes feuilles Excel en format PDF
on peut nommer le dossier
récupérer certaines valeurs dans la feuille pour nommer le nom du fichier
Très pratique
Je cherche à rajouter dans le code en limitant le champ d'impression
Il prend tous les éléments présents dans la feuille
Je souhaiterais ajouter la sélection de A1 à D38
Est-ce que ceci est possible
VB:
Sub PDF_Menu()
Chemin = Workbooks(ActiveWorkbook.Name).Path
Feuille = ActiveSheet.Name
Dossier = "JB"
fa = Format([B8], " mmm yy")
nom = Format([B5], " mmm yy")
'Poste = Range("F14").Value
nomFichier = "" & "A4 " & fa & "" & " à " & nom & " .pdf"
If Dir(Chemin & "\" & Dossier) = "" Then
On Error Resume Next
MkDir Chemin & "\" & Dossier
On Error GoTo 0
End If
CheminEvent = Chemin & "\" & Dossier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminEvent & "\" & nomFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub