Exporter du code à partir d'excel

Fermé

sirrems Messages postés 5 Date d'inscription samedi 11 décembre 2010 Statut Membre Dernière intervention 11 juillet 2021 - Modifié le 8 avril 2019 à 11:34
sirrems Messages postés 5 Date d'inscription samedi 11 décembre 2010 Statut Membre Dernière intervention 11 juillet 2021 - 8 avril 2019 à 14:03

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:

Exporter du code à partir d'excel
Liste déroulante excel - Guide
Voici du code ascii : - Guide
Aller à la ligne excel - Guide
Formule excel - Guide
Recherche a partir dune photo - Guide

1 réponse

Réponse 1 / 1

sirrems Messages postés 5 Date d'inscription samedi 11 décembre 2010 Statut Membre Dernière intervention 11 juillet 2021 1
8 avril 2019 à 14:03

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

Discussions similaires

enigme

Code Ascii

Discussions similaires

Newsletters