Nommer fichier via cellule

Bonjour,

Je recherche une façon de nommer mon fichier via une cellule. Par exemple, une cellule de mon fichier contient 'facture_56', alors au moment où je ferai 'imprimer pdf" il faudrait que mon fichier s'apelle facture_56.pdf

Cela est il possible svp ?

Merci d'avance

Jerry-fr

Bonjour

tu peux utiliser cette fonction

Sub Macro1()

NomFichier = Cells(1, 1) 'ta cellule contenant le nom
CheminEnr = "chemin ou tu veux enregistrer"
'''''''''''''''''''''''
    ChDir "chemin ou tu veux enregistrer" ''''''''''''''
    ''''''''''''''''''''''''''''''
    ActiveWorkbook.SaveAs Filename:=CheminEnr & NomFichier, _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CheminEnr & NomFichier, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Merci beaucoup Alex !

Rechercher des sujets similaires à "nommer fichier via"