nom classeur référence à deux cellules

[nrdz83]

Bonsoir à tous,

j'utilise le code ci-dessous afin de me copier une feuille "bon de préparation" dans un nouveau classeur et un fenêtre windows me demande ou l'enregistrer, ça fonctionne impeccable et ça me convient.

Ce que je cherche à faire et je n'y arrive pas c'est de me nommer le classeur avec le résultat concatener des cellules C5 et L5 qui mentionne le nom du chantier (c5) et la date (L5).

Mon code >>

Sub Créé_une_sauvegarde_du_chantier()

' copie feuille dans nouveaux classeur

    Sheets("Bon de préparation").Select
   
    Sheets("Bon de préparation").Copy
    'supprime les icones afin d'éviter une erreur
    ActiveSheet.Shapes.Range(Array("Picture 19", "Picture 18", "Picture 20", "Picture 17")). _
        Select
    Selection.Cut
    
         
       ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename( _
    fileFilter:="Excel Files (*.xlsx), *.xlsx")
       
    ActiveWindow.Close 'ferme la feuille
End Sub

Par avance je vous remercie et vous souhaite un bon week end

 

[sourcier08]

Re : nom classeur référence à deux cellules

Salut,

Il te suffit de définir le nom avant le filtre.

ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(Range("C5") & Range("L5"), _
fileFilter:="Excel Files (*.xlsx), *.xlsx")

 

[DoubleZero]

Re : nom classeur référence à deux cellules

Bonjour, nrdz83, le Forum,

Peut-être comme suit :

- en K1 (par exemple) :

=C5&" - "&TEXTE(L5;"aaaa mmm jj")

- dans le code :

ThisWorkbook.SaveAs Range("k1")

A bientôt 🙂

P. S. : bonjour, sourcier08 🙂

 

[nrdz83]

Re : nom classeur référence à deux cellules

Bonsoir sorcier 08 et double zéro votre réponse à chacun a permis de solutionner mon problème un grand merci et bon week end

amitiés