Enregistrer doc excel en pdf, avec nom variable + impression.

Question

Bonjour,

Je souhaite pouvoir enregistrer dans un dossier(chemin C:\PDF\) une feuille d'un classeur excel en la nommant automatiquement (Nom de l'onglet + Infos se trouvant dans cellules AG5 & AH5 & AI5) puis sortie imprimante

J'arrive à aller jusqu'à l'enregistrement dans le dossier PDF mais ensuite je bloque pour le nom en automatique puis impression sortie imprimante.

Quelqu'un peut-il me trouver une solution ou une piste.

D'avance Merci

cs_Le Pivert · Answer

Bonjour,

en vba faire Alt F11 pour accéder à l’éditeur, ensuite en haut à gauche sélectionner la feuille concernée. 

Mettre ce code dans le module de la feuille:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nom As String 'nom de l'onglet
Dim chemin As String 'chemin du dossier d'enregistrement
nom = ActiveSheet.Name
chemin = ActiveWorkbook.Path & "\" & nom & "_" & Range("G5") & "_" & Range("H5") & "_" & Range("I5") & ".pdf" 'remplacer ActiveWorkbook.Path par le chemin du dossier et adapter les cellules
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then 'cellule A1 à adapter pour lancer l'enregistrement
 'enregistrement en PDF
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
     ThisWorkbook.FollowHyperlink chemin 'ouvre le pdf pour l'impression
  End If
End Sub

Enregistrer doc excel en pdf, avec nom variable + impression.

1 réponse

Discussions similaires

Newsletters