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

1 réponse

  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