Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Ayant un gros fichier à ouvrir, je n'arrive qu'à ouvrir uniquement 65536 lignes. est ce normal? Comment dois je procéder pour pouvoir récupérer tout mon fichier.
Seul Excel 2007 (et +) gère plus de 65536 lignes dans une feuille de calcul.
Donc soit tu essayes d'ouvrir ton fichier sur un Excel antérieur, soit tu as enregistré ton classeur au format Excel 97-2003
l'on peut surement le couper et le stocker sur 2 3 voir 4 onglets si il fait , mais ton GROS ficchier vient d'où, un fichier text , une requetes , éclaires nous , et l'on te montrera le chemin ,
Ce fichier provient d'un transfert d'un système gpao d'où le fait qu'il soit lourd.
A priori, on peut le recevoir en fichier texte mais comment puis je procéder du fichier texte au fichier excel car au final il me le faut ces 145000 lignes sur excel
l'on peut surement le couper et le stocker sur 2 3 voir 4 onglets si il fait , mais ton GROS ficchier vient d'où, un fichier text , une requetes , éclaires nous , et l'on te montrera le chemin ,
Une possibilité, vite écrit, pas testée , après cela dépant du format de ton fichier texte
Sub transfert()
'Initialise le compteur d'onglets
Compte = 1
'Création premier onglet
activeworkbook.Worksheets.Add
ActiveSheet.Name = "Données" & Compte
' Ouverture fichier texte
Open "FICHTEST" For Input As #1
'Lecture jusqu'a fin de fichier
Do While Not EOF(1)
'Lecture de la ligne courante
Line Input #1, ligne
'Incrémente le compteur de ligne
nbligne = nbligne + 1
'Si dépassement de capacité de feuile Excel
If nbligne > 65535 Then
'Remise du nombre de lignes à 0
nbligne = 0
'Incrémente le nombre d'onglets
Compte = Compte + 1
'Prépare le nom du nouvel onglet
Onglet = "Données" & Compte
'Création nouvel onglet
activeworkbook.Worksheets.Add
ActiveSheet.Name = Onglet
End If
'Copie de la ligne lue dans la feuille Excel
Worksheets(Onglet).Range("A" & nbligne) = ligne
Loop
"Fermeture fichier texte
Close #1
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD