Syntaxe

[Sub]

Bonjour !

Je souhaiterais ecrire le contenu entier d'un tableau dans un fichier :

Open "C:\TOTO.TOT" For Output As 1
Print #1 TAB(i)(i = 1 to 7)
Close #1

Quelqu'un connait la syntaxe ; celle ci-dessus est incorrecte en VBA.

Merci

 

[michel]

bonjour Sub

tu peux tester cette adaptation


Sub tableauVersFichierTexte()
Dim Fichier As String
Dim Tableau(7)
Dim i As Byte

For i = 0 To 7
Tableau(i) = "Ligne" & i
Next i

Fichier = "C:\monFichier.Txt"
Open Fichier For Output As #1
For i = 0 To 7
Print #1, Tableau(i)
Next i
Close
End Sub


bonne journée
MichelXld

 

[Sub]

Merci à toi Michel !

Je pensais qu'il y a avait une methode plus directe !