Macro pour délimiter

H

hamza00

Guest

• 9 Août 2010

• #31

Re : Macro pour délimiter

Sub Fichier_TXT_Volumineux()
Dim Resultat, Chemin As String
Dim Lecture As Integer
Dim Compteur As Variant
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Lecture = FreeFile()
Open Chemin For Input As #Lecture
Application.ScreenUpdating = False
Compteur = 1
Do While Seek(Lecture) <= LOF(Lecture)
Line Input #Lecture, Resultat
ActiveCell.Value = Resultat
If ActiveCell.Row = 65536 Then
ActiveWorkbook.Sheets.Add
Else
ActiveCell.Offset(1, 0).Select
End If
Compteur = Compteur + 1
Loop
Close
Application.ScreenUpdating = True
End Sub


Si vous pouvez m'arranger ce code parce que dans ce cas il teste sur le nombre de ligne qui est de 65536

Dans mon cas c'est le nombre de colonnes qui n'importe, j'ai plus que 256 colonnes !

merci à vous

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Août 2010

• #32

Re : Macro pour délimiter

Bonjour à tous,

Peux-tu essayer :

Code:

Sub Fichier_TXT_Volumineux()
Dim Resultat, Chemin As String
Dim Lecture As Integer
Dim Compteur As Variant
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Lecture = FreeFile()
Open Chemin For Input As #Lecture
Application.ScreenUpdating = False
Compteur = 1
Do While Seek(Lecture) <= LOF(Lecture)
Line Input #Lecture, Resultat
ActiveCell.Value = Resultat
If ActiveCell.Row = 65536 Or ActiveCell.Column = 256 Then
ActiveWorkbook.Sheets.Add
Else
ActiveCell.Offset(1, 0).Select
End If
Compteur = Compteur + 1
Loop
Close
Application.ScreenUpdating = True
End Sub

Évidemment pas testé, faute de fichier...

A+ à tous

 

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #33

Re : Macro pour délimiter

merci bcp mé toujours la même chose ca ne marche pas

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 9 Août 2010

• #34

Re : Macro pour délimiter

Bonjour à tous,

Quelle erreur est détectée ?

A+ à tous

 

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #35

Re : Macro pour délimiter

il ne detecte pas d'erreur mais il ne crée pas une autre feuille lorsqu'il arrive à la 256eme colonne !
g plus que 600 colonnes

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Août 2010

• #36

Re : Macro pour délimiter

Re


Hamza00:
Nous n'avons pas besoin du fichier texte original mais d'une version light de celui-ci. (zippes-le, avant de le poster ici)

(gardes toutes les colonnes, mais ne gardes qu'une trentaine de lignes)
on s'arrangera pour créer à partir de ce fichier exemple un fichier test de plus de 65 000 lignes

 

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #37

Re : Macro pour délimiter

voila le fichier mais il nya ke la premiere ligne avec tous les colonnes car g pas pu faire autrement

 

Pièces jointes

• fichier.zip

  4.5 KB · Affichages: 30
• fichier.zip

  4.5 KB · Affichages: 31
• fichier.zip

  4.5 KB · Affichages: 30

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Août 2010

• #38

Re : Macro pour délimiter

Re

Merci.

On y voit déjà plus clair.

Parmi toutes ces colonnes, toutes ont-elle besoin d'être extraites ?

 

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #39

Re : Macro pour délimiter

nn a vrai dire j'en ai besoin des données à partir de la colonne 600 à peu près

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Août 2010

• #40

Re : Macro pour délimiter

Re


Justement, peux-tu identifier précisément les numéros de tes colonnes utiles ?

En attendant et pour suivre l'exemple d'Hasco (que je resalue cette fois-ci d'un bonsoir )

Tu peux essayer ceci (qui vient aussi de chez Bill )
Comment faire pour importer des données comportant plus de 256 champs ou colonnes dans Excel

 

Dernière édition: 9 Août 2010

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #41

Re : Macro pour délimiter

oui oui tous les données à partir de la colonne 600 🙂
merci beaucoup

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Août 2010

• #42

Re : Macro pour délimiter

Re


J'ai édité mon précédent message (voir code VBA à essayer)

Tu peux être précis non ?
Car c'est ton problème que l'on essaye de t'aider à solutionner.

Donc combien de colonnes au total dans ton fichier texte ?

 

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #43

Re : Macro pour délimiter

g déjà testé ce code tt a l'heure mais ca na pas marché il mouvre juste les 256 colonnes !! 🙁

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Août 2010

• #44

Re : Macro pour délimiter

Re

g déjà testé ce code tt a l'heure mais ca na pas marché il mouvre juste les 256 colonnes

Cliquez pour agrandir...

Sois plus attentif 🙄

Ce n'est pas du tout la même macro !!

Ni le même lien d'ailleurs !

Je laisse tomber pour ce soir ...

PS: regardes posément le lien que je cite et tu verras cela par toi même.

PS2: pour info ton fichier fait exactement 1031 colonnes.

 

Dernière édition: 9 Août 2010

Vote positif 0 Vote négatif

H

hamza00

Guest

• 9 Août 2010

• #45

Re : Macro pour délimiter

Merci beaucoup Staple1600🙂

 

Vote positif 0 Vote négatif