Enregistrer un fichier avec date et autre

Bonjour,

Je souhaiterai savoir comment enregistrer un fichier, mais avec la date actuelle et le texte d'une TextBox (TextBoxReference)

Voici mon code actuel:

Code:

---

1 2 3 4 5 6 7 8

Sheets("Entree").Select Sheets("Entree").Copy ChDir "C:\" ActiveWorkbook.SaveAs Filename:="Classeur.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWindow.Close Sheets(1).Select

---

Merci d'avance :-)

Bonjour,

Filename est une propriété dont l'argument doit être un String, il suffit donc de concaténer les infos voulues au nom de ton fichier avant son .xls.

cf exemple aide vba

cordialement,

Didier

Bonjour,

Merci pour la réponse.
Je souhaiterai aussi savori s'il est possible d'utiliser la fonction now() pour afficher la date et ainsi enregistrer le fichier tel: Classeur-now().xls ?
Et donc à en arriver tel:
Classeur - now() - Entree.TextBoxReference .xls

Merci d'avance !

Bonjour,

voici un exemple de possibilité à adapter...

Code:

---

1 2 3

strHorodat = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") strExtractName = gvStrChemS12 & "texte voulu " & textbox1.text & " du " & strHorodat Workbooks(wkbPass).SaveAs Filename:=strExtractName

---

cordialement,

Didier

Bonjour,

Merci beaucoup ! :-)