XL 2019 Ajout texte dans le nom de la sauvegarde

[Vins74000]

Bonjour a tous,

J'ai créé ce fichier assez basique, mais que je souhaites enregistrer en ajoutant une date, et le nom du client en C1 dans le nom de la sauvegarde.
J'ai reussi a mettre la date grâce a des sujets trouvé ici, mais je ne trouve pas la solution pour ajouter le contenu texte de la cellule C1.

Merci par avance pour vos conseils

 

[sylvanu]

Bonjour Vins,
Essayez avec :

Sub Sauvegarde()
Dim Nom$
Nom = ThisWorkbook.Path & "\" & "Bordereau caddie" & "_" & [C1] & "_" & Format([C2], "ddmmyyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:=Nom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Vins74000]

Excellent, merci beaucoup!

plus qu'a essayer de la comprendre!

 

[sylvanu]

Re,
Le nom est la concaténation :
- du chemin du fichier courant : ThisWorkbook.Path , soit pour moi "C:\Users\PC_PAPA\Desktop"
- auquel on rajouté le "\ final
- C1, C2 sont les données de la feuille
- Format([C2], "ddmmyyyy") met la date sous forme 25102025
et ensuite on enregistre sous ce nom.

question : Pourquoi utilisez vous de vieux formats fichiers xls alors que vous disposez de XL2019 ?