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

[CGU2022.]

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

 

[vgendron]

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

NFichier = ActiveSheet.Name & range("D1") &Format(Now, " dd-mm-yyyy") & ".pdf"

 

[kiki29]

Salut, allons quand même, qqch comme :

    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

 

[CGU2022.]

merci