nrdz83
XLDnaute Impliqué
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 >>
Par avance je vous remercie et vous souhaite un bon week end
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 >>
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