Erreur 400
Fermé
Stien
-
Modifié par pijaku le 17/08/2015 à 14:54
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 17 août 2015 à 16:28
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 - 17 août 2015 à 16:28
3 réponses
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
17 août 2015 à 15:16
17 août 2015 à 15:16
Bonjour,
Sure que vous ne pouvez pas mettre 1421012 lignes dans 1048576 maxi lignes pour excel2007-2013
Sure que vous ne pouvez pas mettre 1421012 lignes dans 1048576 maxi lignes pour excel2007-2013
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
17 août 2015 à 15:22
17 août 2015 à 15:22
Tu dépasses, je pense, le nombre de lignes maximum d'un onglet dans Excel qui, après la version Office 2003, est passé de 65 536 lignes à 1 048 576 lignes.
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
Modifié par f894009 le 17/08/2015 à 16:31
Modifié par f894009 le 17/08/2015 à 16:31
Re,
ecrire le fichier CSV de cette facon, voir le format des donnees dans le fichier CSV:
ecrire le fichier CSV de cette facon, voir le format des donnees dans le fichier CSV:
Sub Test_2() Dim Fichier_CSV As String Dim Chemin As String Dim TInfos As Range 'adaptez le chemin et le nom de fichier Chemin = "D:\_ACSV\" Fichier = "MonCSV.CSV" Close TCol = Array("H", "I", "J", "K") Open Chemin & Fichier For Output As #1 With Sheets("M1") For LC = 0 To 3 derlig = .Range(TCol(LC) & Rows.Count).End(xlUp).Row Set TInfos = .Range(TCol(LC) & "1:" & TCol(LC) & derlig) FT = TInfos.Count For P = 1 To FT Print #1, TInfos(P) Next P Next LC End With Close MsgBox "Terminé" End Sub
17 août 2015 à 15:18
17 août 2015 à 15:20