Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT
Résolu
NaXiLeAn
Messages postés
112
Date d'inscription
Statut
Membre
Dernière intervention
-
NaXiLeAn Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
NaXiLeAn Messages postés 112 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
1 réponse
Bonjour,
code a mettre dans un module, adaptez le nom de la feuille et le chemin du fichier:
A+
code a mettre dans un module, adaptez le nom de la feuille et le chemin du fichier:
Sub Export_Txt() With Worksheets("feuil1") derlig = .Range("A" & Rows.Count).End(xlUp).Row TInfos = .Range("A3:H" & derlig).Value End With LTInf = UBound(TInfos, 1) Close Fichier = ActiveWorkbook.Name & ".TXT" Chemin = "D:\_Test_Txt\" SepT = ";" Open Chemin & Fichier For Output As #1 Print #1, Print #1, "J'aime la galette" For N = 1 To LTInf For NL = 1 To 3 If NL = 1 Then 'A;B ;C;D;E;F;G ;H; Print #1, TInfos(N, 1); SepT; TInfos(N, 2); SepT; TInfos(N, 3); SepT; TInfos(N, 4); SepT; TInfos(N, 5); SepT; TInfos(N, 6); SepT; TInfos(N, 7); SepT; TInfos(N, 8) ElseIf NL = 2 Then 'A;Fait;C;D;E;F;F*0.2;F+F*.02 Print #1, TInfos(N, 1); SepT; "Fait"; SepT; TInfos(N, 3); SepT; TInfos(N, 4); SepT; TInfos(N, 5); SepT; TInfos(N, 6); SepT; TInfos(N, 6) * 0.2; SepT; TInfos(N, 6) + TInfos(N, 6) * 0.2 Else 'A;Fait;C;D;E;F;F*0.55;F+F*0.55 Print #1, TInfos(N, 1); SepT; "Fait"; SepT; TInfos(N, 3); SepT; TInfos(N, 4); SepT; TInfos(N, 5); SepT; TInfos(N, 6); SepT; TInfos(N, 6) * 0.55; SepT; TInfos(N, 6) + TInfos(N, 6) * 0.55 End If Next NL Next N Close 1 End Sub
A+
Mille mercis et plus encore!!!