Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT
Résolu/Fermé
NaXiLeAn
NaXiLeAn
- Messages postés
- 112
- Date d'inscription
- mercredi 27 juillet 2016
- Statut
- Membre
- Dernière intervention
- 2 juin 2020
NaXiLeAn
- Messages postés
- 112
- Date d'inscription
- mercredi 27 juillet 2016
- Statut
- Membre
- Dernière intervention
- 2 juin 2020
A voir également:
- Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT
- Excel 2003 :1 ligne XLSX => 3 lignes modifiées TXT ✓ - Forum - VB / VBA
- Excel 2003 - supp ligne suiv val dans col ✓ - Forum - Excel
- Excel 2003- recherchev prendre ligne dessous ✓ - Forum - Excel
- Code masquant lignes et colonnes (excel 2003) ✓ - Forum - Excel
- Copier Excel 2003 vers Excel 2007 - nb ligne ✓ - Forum - Excel
1 réponse
f894009
18 nov. 2016 à 17:28
- Messages postés
- 16509
- Date d'inscription
- dimanche 25 novembre 2007
- Statut
- Membre
- Dernière intervention
- 28 mai 2022
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!!!