Discussion :

[fourgeaud]

Bonjour,
je pense que le titre est assez claire, je voudrais grâce à du code, créer un fichier de type Random, pour après pouvoir écrir dessus et le lire.
Merci d'avance.

[SfJ5Rpw8]

et tu bloque ou ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim MyRecord As record    ' Déclare la variable.
 
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
  'boucle exemple d'écriture
   MyRecord.i = 123
   Put #1, , MyRecord
   MyRecord.i = 0 ' Raz valeur
   Get #1, 1, MyRecord
 
Close #1
 
  Debug.Print MyRecord.i
End Sub

[sovo]

essaye ceci

Code :

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

1
2
3
4
 
'path = chemin du fichier
'numfile  = numero du fichier, tu peux l'avoir automatiquement avec : freefile
open path for random as #Numfile

[fourgeaud]

Lorsque l'on met :

Code :

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

1
2
 
open "fichier.txt" for random as #1

ça ouvre le fichier mais ça ne le crée pas.
Merci.

[jmfmarques]

ça ouvre le fichier mais ça ne le crée pas.

Ah ?
Tu as essayé ?
Alors essaye ! (mais n'oublie pas de le fermer....)

Tu veux peut-être dire qu'il reste vide (ce qui est autre chose)...

[fourgeaud]

J'ai essayé, ça ne l'a pas créé mais c'est peut-être un bug, pour le remplir c'es avec put #inFileNumber, 1,3
etc....
Merci à vous.

[zazaraignée]

Salut

On peut voir ton code ?