Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 récupération valeur cellule pour donner un nom lors de la création d'un fichier pdf

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
CGU2022.

CGU2022.

XLDnaute Junior
Bonjour les accros 😉 d'excel 🙂

j'ai cette macro:
qui génère un Pdf par bouton (qui marche très bien)

A l heure actuelle le pdf se nome automatiquement (nom feuille+date)
je veut avoir (nom feuille+"valeur cellule D1"+Date)


Sub pdf() 'creer un pdf de la feuille
Dim Chemin As String
Dim NFichier As String

Chemin = Application.ActiveWorkbook.Path & "\" 'met le pdf au meme emplacement que le fichier
NFichier = ActiveSheet.Name & Format(Now, " dd-mm-yyyy") & ".pdf" 'met le nom de l'onglet et date du jour

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'les deux lignes du dessus le fichier est enregistrer dans le dossier ou est le fichier Excel

End Sub
 
Solution
kiki29
Salut, allons quand même, qqch comme :
VB: 
    Chemin = Application.ActiveWorkbook.Path & "\"
    NFichier = ActiveSheet.Name & " " & ActiveSheet.Cells(1, 4) & " " & Format(Now, " dd-mm-yyyy") & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Chemin & NFichier, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
Trier par date Trier par votes
bonjour

il te suffit d'intégrer la valeur de la cellule dans le nom du fichier, comme tu as fait pour le nom de la feuille et la date..

VB: 
NFichier = ActiveSheet.Name & range("D1") &Format(Now, " dd-mm-yyyy") & ".pdf"
 
Dernière édition:
Vote positif 0 Vote négatif
Salut, allons quand même, qqch comme :
VB: 
    Chemin = Application.ActiveWorkbook.Path & "\"
    NFichier = ActiveSheet.Name & " " & ActiveSheet.Cells(1, 4) & " " & Format(Now, " dd-mm-yyyy") & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=Chemin & NFichier, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook
Réponses
7
Affichages
85
pascal21
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
171
Phil69970
S
  • Question Question
XL 2019 enregistrement pdf avec variable et format variable
Réponses
10
Affichages
340
sofmat
S
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
80
StéphaneDeLà
S
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
537
job75
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
419
Phil69970
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
382
MarineU
M
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
340
firecarl
F
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
850
JPaul78
J
J
  • Résolu(e)
XL 2021 pb d'export pdf
Réponses
3
Affichages
822
JPaul78
J
P
  • Résolu(e)
XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur
Réponses
3
Affichages
778
Panda79360
P
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
305
MBEPID
M
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
486
ph.vanne
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
643
Nico2978
N
  • Question Question
Autres bouton d'action sous excel
Réponses
6
Affichages
368
wDog66
  • Résolu(e)
XL pour MAC Excel vba export pdf sur bureau pour Mac
Réponses
10
Affichages
1 K
Dan
C
  • Résolu(e)
XL 2021 Ne pas enregistrer la 2 ème feuille dans le pdf
Réponses
1
Affichages
370
Claudinedu13
C
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
151
Phil69970
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
643
Lolote83
L
M
  • Question Question
Microsoft 365 pb enregistrement PDF de plusieurs feuilles d'un classeur excel
2
Réponses
15
Affichages
2 K
MG_000
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…