Codage de valeurs aléatoires dans un fichier CSV
Bonjour à tous,
Je suis débutante sur VBA et j'aurai besoin de votre aide. Je dois coder des valeurs aléatoires dans un fichier CSV. Pour cela, je dois indiquer l'emplacement de mon fichier CSV et l'ouvrir dans mon code VBA. Mon code fonctionnait très bien jusqu'à ce que je le transfère sur ma clé USB car j'ai du changer d'ordinateur. Maintenant, lorsque j'ouvre mon fichier CSV celui-ci est vide. J'ai donc essayé de changer l'emplacement du fichier CSV dans mon code mais ça ne marche toujours pas. Je vous mets ci-dessous mon code. Merci d'avance pour vos réponses.
Sub liste()
Dim fic As String
fic = "F:\"
Dim c, d, e As Integer
Dim b As Double
Dim i As Integer
Randomize
Open "testprojetinfo.txt" For Output As #1
For i = 1 To 96
b = 0.5 * Rnd + 6.2
c = Int(10 * Rnd) + 0
d = Int(12 * Rnd) + 0
e = Int(55 * Rnd) + 0
machaine = CStr(b) + ";" + CStr(c) + ";" + CStr(d) + ";" + CStr(e)
Print #1, machaine
Next i
Close #1
End Sub
BOnjour
PEtite question, est-ce que le fichier contenant ce code est au même endroit que le fichier txt a ouvrir ??
si c'est le cas je ferrais un essais du genre :
Open thisworkbook.path & "\testprojetinfo.txt" For Output As #1Fred
bonjour à tous,
alternative utilisant fic$
Sub liste()
Dim fic As String
fic = "F:\testprojetinfo.txt"
Dim c, d, e As Integer
Dim b As Double
Dim i As Integer
Randomize
Open fic For Output As #1
For i = 1 To 96
b = 0.5 * Rnd + 6.2
c = Int(10 * Rnd) + 0
d = Int(12 * Rnd) + 0
e = Int(55 * Rnd) + 0
machaine = CStr(b) + ";" + CStr(c) + ";" + CStr(d) + ";" + CStr(e)
Print #1, machaine
Next i
Close #1
End SubMerci beaucoup pour vos réponses !
Vos deux réponses fonctionnent !
Merci de m'avoir débloqué !