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

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
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

vgendron

XLDnaute Barbatruc
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:

kiki29

XLDnaute Barbatruc
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
 

Discussions similaires