Export tableau dans un fichier texte
Bonjour je souhaite avoir votre opinion sur mon problème, cela fait plusieurs jours que je cherche sans succès à réaliser la commande suivante:
A partir d'un tableau sur excell : type a(1,1) a(1,2) a(1,3)
a(2,1) a(2,2) a(2,3)
a(3,1) a(3,2) a(3,3)
Je souhaite écrire les valeurs de mes cellules dans un fichier texte externe tel que:
Tableau = { {a(1,1), a(1,2), a(1,3)} , {a(2,1), a(2,2), a(2,3)} , {a(3,1), a(3,2), a(3,3)} }
Le problème peut parître très simple mais pour un non-initié comme cela se complique.
Pour le moment j'arrive à créer un page vierge vers le répertoire que je souhaite, c'est un bon début mais pour le code en lui même je n'ai rien.
La commande pour créer un fichier texte est la suivante si vous la chercher:
Sub fonctionexport()
chemin = "C:\Users\"
Open chemin & "fichier.txt" For Output As #1
Print #1, "test"
Close
End Sub
Toute information , aide sera la bienvenue.
bonjour et bienvenue,
si j'ai bien compris,
Open chemin & "fichier.txt" For Output As #1
t="Tableau = {"
for i=1 to 3
t=t & sep1 & "{"
if sep1="" then sep1=","
sep=""
for j=1 to 3
t=t & sep & a(i,j)
if sep="" then sep =","
next j
t=t & "}"
next i
t=t & "}"
print #1,t
Close
End SubMerci beaucoup pour cette réponse,
c'est exactement ça.