bonjour

je doi ecrire un programme qui créer un fichier text.

voici mon programme :
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
16
17
18
19
20
21
22
23
24
 
Dim NomSerie, oFSO, oFld
Dim oFld3 
Set oFSO = CreateObject("Scripting.FileSystemObject")
dim fileDate, fileDate1
Dim chaineDate, dateCourante, timeCourant
Dim jour, mois, annee, heures, minutes, secondes
Dim stRep 'Nom du répertoire à parcourir
'obtenir date  courante 
dateCourante = date()
timeCourant  = Time()
chaineDate = dateCourante & " " & timeCourant
'extraction des données de la date
	jour  = Cint(Mid(chaineDate,1,2))
	mois  =	Cint(Mid(chaineDate,4,2))
	annee = Cint(Mid(chaineDate,7,4))
'extraction des données de l'heure
	heures   = Cint(Mid(chaineDate,12,2))
	minutes  = Cint(Mid(chaineDate,15,2))
	secondes = Cint(Mid(chaineDate,18,2))
fileDate = jour & mois & annee & "_" & heures & ":" & minutes & ":" & secondes
fileDate = cstr(fileDate)
filePath = "c:\testunivar\Log\" & fileDate & ".txt"
Set Ftxt =  oFSO.createTextFile(filePath) 'true=ecrase

Le problème réside dans la variable fileDate qu'il ne considère pas comme chaine.
quand je l'enlève ça marche bien.

vous avez une solution?