Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT
Résolu/Fermé
NaXiLeAn
Messages postés
112
Date d'inscription
mercredi 27 juillet 2016
Statut
Membre
Dernière intervention
2 juin 2020
-
18 nov. 2016 à 11:39
NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 21 nov. 2016 à 13:44
NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 21 nov. 2016 à 13:44
A voir également:
- Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Figer une ligne excel - Guide
- Apparaitre hors ligne whatsapp - Guide
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
18 nov. 2016 à 17:28
18 nov. 2016 à 17:28
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+
21 nov. 2016 à 13:44
Mille mercis et plus encore!!!