Erreur 400
Fermé
Stien
-
Modifié par pijaku le 17/08/2015 à 14:54
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 17 août 2015 à 16:28
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 17 août 2015 à 16:28
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
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