Discussion :

[thomasisajerk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :-)

[Didier Gonard]

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

[thomasisajerk]

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 !

[Didier Gonard]

Bonjour,

voici un exemple de possibilité à adapter...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thomasisajerk]

Bonjour,

Merci beaucoup ! :-)