Discussion :

[Maxime082]

Bonsoir, j'ai un soucis dans un programme, je voudrais enregistrer un fichier dans le répertoire : c:\sesame\exp\fichier à enregistrer

et le format du nom de fichier doit etre :
"txtselection.text"_AAAAMMJJHHmmss.txt

AAAA : ANNEE
MM : mois
JJ : Jour
HH : Heure
mm : minute
ss : seconde

Voici ce que j'ai fait :

'inclure la date dans le nom d'enregistrement
'sous forme : AAAAMMJJHHmmss
AAAA : année
MM : MOIS
JJ : Jour
Hh : heure
Mm : minute
Ss : seconde

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub butSave_Click()
 
Dim Chemin1 As String, Fichier1 As String
 
Fichier1 = txtselection.Text
 
Dim Today As Double
Today = Now
txtDATE.Text = Now
 
Chemin1 = "C:\sesame\exp\" & Fichier1
 
ActiveWorkbook.SaveAs Filename:=Chemin1, FileFormat _
        :=xlText, CreateBackup:=False
end sub

Je voulais récupérer la date à partir d'un controle txtDATE. Mais je pense qu'il y'a peut etre plus simple.

Cordialement, merci de m'aider

[patricktoulon]

bonjour

regarde dans
cette discution
mercatog et moi avons largement repondu