Discussion :

[thomasisajerk]

Bonjour,

J'ai fait une macro pour pouvoir enregistrer mon fichier Excel (.xls)
Un petit plus, je souhaiterai afficherla date et le contenu d'une TextBox dans le nom du fichier pour en arriver à tel:
MONFICHIER-TextBox-Date.xls

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

*
J'ai essayé de modifier la ligne 4 ainsi:

Code :

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

ActiveWorkbook.SaveAs Filename:="Classeur" & Entree.TextBoxReference & Now() & ".xls", FileFormat:=xlNormal, _

Sa ne m'affiche pas la date, ni le contenu de la TextBox...
*
Merci d'avance !

[PPz78]

Attention, il y a des caractères interdits dans les noms de fichier, "/" par exemple.
Pour vérifier tu peux essayer :

Code :

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

1
2
3
Nom_Fic= "Classeur" & Entree.TextBoxReference & Now() & ".xls"
msgbox Nom_Fic
ActiveWorkbook.SaveAs Filename:=Nom_Fic, FileFormat:=xlNormal, .......

PPz

[thomasisajerk]

Bonjour,

Il n'y a pas de caractères interdits dans le nom de mon fichier mais en contre partit il ne m'enregistre pas comme je le souhaites avec ma macro.

Merci !

[PPz78]

Bonsoir,

Tu peux nous mettre un exemple:
- nom de "Classeur"
- valeur de "Entree.TextBoxReference"
- valeur de Now()

- fichier créé par ton code

Merci
PPz

[Didier Gonard]

Bonjour,

j'ai du mal à comprendre ta question par rapport à celle-ci dont tu est aussi l'auteur ?
http://www.developpez.net/forums/d96...-fichier-date/

cordialement,

Didier