Aide pour nom de fichier aléatoire...

Enderk Messages postés 6 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 8 décembre 2002 - 25 nov. 2002 à 09:10
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 25 nov. 2002 à 09:33
voilà, j'aimerais créer un nom de fichier aleatoirement, enfin pas vraiment puisque son nom sera la date et l'heure (a l'instant ou je cliquerais sur enregistrer...) . Mais, j'ai un prob, je n'y arrive pas :
voici les commandes que j'utilises :

Dim nom As String
Dim fichier As String

Private Sub Command1_Click()
nom = Date & "-" & Time & ".dat"
fichier = "c:\windows" & nom
Open fichier For Append As #5
Print #5, bonjour
Close #5
End Sub


mais quand je clique sur le bouton 1, il me dit :
"erreur d'execution, fichier introuvable" en me surlignant "Open fichier For Append As #5" en jaune... A mon avis c que le fichier n'est pas crée...

Qqun aurait une idée pour remedier à mon prob ?
(le nom de fichier doit etre composé de la date et l'heure...)

Merci à tous...

2 réponses

Vbsupernul Messages postés 287 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 18 janvier 2004
25 nov. 2002 à 09:23
euh, je suis pas sûr, essaie
nomdufichier= "c:\windows" & Date & "-" & Time & ".dat"
Open nomdufichier for Append As #5
Print #5, "bonjour"
Close #5
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
0
BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
25 nov. 2002 à 09:33
enleve les caracteres speciaux:

Dim NomDuFichier As String
NomDuFichier = "c:" & Format(Date, "ddmmyyyy") & "-" & Format(Time, "hhmmss") & ".dat"
Open NomDuFichier For Append As #5
Print #5, "bonjour"
Close #5
0
Rejoignez-nous