Enregistrer doc excel en pdf, avec nom variable + impression.
NCAUTOEM
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Vba imprimer en pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Comment imprimer en a5 - Guide
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Save as pdf office 2007 - Télécharger - Bureautique
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
1 réponse
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:
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