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

CGU2022. · 20 Juillet 2022

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

kiki29 · 20 Juillet 2022

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 · 20 Juillet 2022

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"

kiki29 · 20 Juillet 2022

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

CGU2022. · 20 Juillet 2022

merci

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

CGU2022.

XLDnaute Junior

kiki29

vgendron

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

CGU2022.

XLDnaute Junior

Discussions similaires