Exporter du code à partir d'excel

sirrems Messages postés 6 Statut Membre -  
sirrems Messages postés 6 Statut Membre -
Bonjour,

J'ai un tableau Excel avec 3 colonnes et environ 500 lignes.
J'aimerais à partir de ce tableau créer un fichier texte de la forme suivante:

si (m="Colonne 1, Ligne 1")
{
xx[1] = 25;
xx[2] = "Colonne 2, Ligne 1";
xx[3] = "Colonne 3, Ligne 1";
xyz#=xx;
}
si (m="Colonne 1, Ligne 2")
{
xx[1] = 25
xx[2] = "Colonne 2, Ligne 2";
xx[3] = "Colonne 3, Ligne 2";
xyz#=xx;
}
....
Ainsi de suite jusqu'à m=500.

Avez-vous une idée?

Merci pour votre aide.

Sirrems
A voir également:

1 réponse

Réponse 1 / 1
sirrems Messages postés 6 Statut Membre 1
 
Sub ExportTXT()
Dim Chemin As String
Dim NbLignes As Long
Dim Fichier As String
NbLignes = Sheets("Feuil2").Cells(65536, 1).End(xlUp).Row
Chemin = ActiveWorkbook.Path
'Nom du fichier exporté
Fichier = Chemin & "\Export Excel.txt"



Open Fichier For Output As #1
Print #1, "{"

For i = 2 To NbLignes
Print #1, Chr(9) & "si (m=" & Cells(i, 1) & ")"
Print #1, Chr(9) & "{"
Print #1, Chr(9) & Chr(9) & "xx[1] = 25;"

For j = 2 To 3 'Nb de colonnes
Print #1, Chr(9) & Chr(9) & "xx[" & j & "] = " & Cells(i, j).Value & ";"
Next j
Print #1, Chr(9) & Chr(9) & "xyz#=xx;"
Print #1, Chr(9) & "}"
Next i

Print #1, "}"

Close #1
End Sub
1