sauvegarde automatique concatene

[killingjoker]

Bonjours a tous
Voila quelques mois je debutais sur excel pour creer un petit systeme de gestion des devis et tous c'est tres bien passer ca marche et je le mettrais ici sous peu si ca peu servir...
il ne me reste qu'une chose a faire et la je seche un peu
dans une case j'ais concatener le nom et le chantier de mon client et j'aimerais grace a une macro (si possible) utiliser ces info auquel ce rajouterais la date de creation du doc pour creer une sauvegarde automatique

donc ce que je voudrais c'est que
1/a la validation une copie du doc s'ouvre dans un nouveau fichier (ca c'est fait)
2/que le concatene se copie directement avec la date courante dans la fenetre "enregistrer sous" et que le fichier ainsi sauvegarder se referme dans "mes documents"

voila si qq'un a le temps et l'idees je serais ravi
S@lut@tion @mical de JC

 

[sousou]

Sub enre()
nom = InputBox("Nom du fichier", "Enregistrement", lenommconcatener & Date)
If nom <> "" Then
activeworkbook.saveas( chemin & nom)
Else
Exit Sub
End If
End Sub

ne pas oublier d'initialiser chemin qui fixera le dossier d'enregistrement.