VBA : renvoi d'une variable tableau ds un txt

[Hervé]

re, c'est encore moi 🙂

après j'arrete avec mes questions à la c.n

savez-vous si il est possible de renvoyer une variable tableau dans un txt sans boucle.

euh, j'ai fait bref là.

salut

 

[salim]

Bonsoir Hervé

Si j'ai bien compris ta question en adaptant un exemple de l'aide VBA il crée un fichier texte et écrit la variable Buffer d'un coup.

Option Explicit

Sub TextStreamTest()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Dim Tablo(1) As String, Buffer$

Tablo(0) = 'bonjour'
Tablo(1) = 'Hervé'
Buffer = Tablo(0) & ' ' & Tablo(1)

Set fs = CreateObject('Scripting.FileSystemObject')
fs.CreateTextFile 'test1.txt' 'Crée un fichier

Set f = fs.GetFile('test1.txt')
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write Buffer
ts.Close
End Sub

salim.

 

[Hervé]

Bonjour salim, le forum

Merci de te penché sur ma question

mais, hélas, j'avais aussi pensé à cette solution sans succès.

Le ts.write n'accepte que des données de type string, et mes données proviennent d'un tableau dynamique.

pour passer d'un tableau à un string il me faut faire une boucle, et n'ai donc rien solutionné.

bon, c'est pas tres grave tout ca, je te rassure, mon sommeil n'est pas compromis 🙂

encore merci à toi

salut