Bonjour,
 
Je cherche à lire un fichier .txt de 370 MB avec VBA et importer des données dans Excel.
 
J'ai réussi à trouvé des codes pouvant me faire cette tache mais ça prend énormément de temps!!! Donc, je termine par arrêter le processus car le temps est très long pour une tâche pareil.
 
Y a-t-il un moyen de réduire ce temps ( lire le txt en cache par exemple, ou faire parcourir le txt pour trouver les données nécessaires et puis les stocker dans Excel......etc.?
 
quelqu'un pourrait m'aider pour ça?
 
Merci d'avance.

Salut de la lecture http://excel.developpez.com/faq/?page=ChapFichiersTxt
http://www.cpearson.com/excel/ImportBigFiles.aspx

 
 
 
 
Merci,
 
J'ai déjà essayé ces codes, à titre d'exemple :
 
 
Sub Extraction_V2()
Dim Repertoire As String, Fichier As String
Dim strFullName As Variant
Dim Cn As Object, Rs As Object
 
'Sélection du ficher
strFullName = Application.GetOpenFilename("Fichiers textes (*.txt),*.txt", , _
    "selectionner un fichier .txt :" )
 
'On sort si aucun fichier n'est sélectionné
If strFullName = False Then Exit Sub
 
Application.ScreenUpdating = False
Fichier = Dir(strFullName)
Repertoire = Left(strFullName, Len(strFullName) - (Len(Fichier) + 1))
 
 
'Connection
Set Cn = CreateObject("ADODB.Connection" )
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Repertoire & ";" & _
    "Extended Properties=""text;HDR=Yes;FMT=Delimited"""
 
'Requete
Set Rs = CreateObject("ADODB.Recordset" )
Rs.Open "SELECT * FROM [" & Fichier & "]", Cn, 3, 1, 1
 
'boucle sur le résultat de la requete
While Not Rs.EOF
    'Ajout Feuille
    Worksheets.Add
    'Ecriture des données dans la feuille
    '65536 spécifie le nombre de lignes par feuille
    ActiveSheet.Range("A1" ).CopyFromRecordset Rs, 65536
Wend
 
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
Application.ScreenUpdating = True
End Sub
 
 
 
 
 
 
Mais quand je lance ce code, il y a un message qui apparaît en disant : " Excel ne peut pas terminer cette tâche avec les ressources disponibles. Sélectionner moins de données ou fermer des applications."
 
Donc, quoi faire dans ce cas.
 
Je pense que le problème vient de la taille de fichier txt.!!!
 
personne pour m'aider?

OK. je vais essayer de voir ça après. peut être que je changerai ma méthodologie de travail.
 
Sinon, je cherche à trouver une méthode qui fait la suite:
 
1) ouvrir un fichier txt
2) chercher mot toto
3) copier toutes les lignes après "toto" dans un nouveau fichier txt.
4) dès qu'il trouve le mot "titi", arrêter de copier et fermer les fichiers txt.
 
 
exemple de fichier texte :
 
blablablabla
......
toto:
 
lignes à copier  dans nouveau texte
......
 
titi:
 
blablablabla.
 
......
 
fin texte
 
 
 
est-ce possible de faire un programme VBA qui fait ça?    

toujours pas de solution à ce problème?  

Salut, c'est à toi que l'on devrait poser la question, tu sembles être dans l'expectative et attendre que cela te tombe tout cuit, ne compte pas sur moi , de plus tu multipostes sur DVP entre autres. Tu as tous les liens pour t'en sortir.

 
 
Non, je n'attends pas que cela tombe tout cuit.!  peut être que je me suis mal exprimé, je voulais savoir s'il y a une fonction (une méthode ou autre) qui peut faire cette tâche?
 
Et oui, je multiposte car je multiplie la chance par 2.  
 
De tte façon il fo que je vois ça avec un professionnel. je ne gagne rien en déposant des discussions sur les forums. apparemment, je dois aller chercher encore plus loin. :s
 
Merci à tous.    

 
 
Je rajoute aussi : je suis débutant, donc j'essai de chercher l'information par tout pour que je puisse avoir une base correcte une massive.    
j'espère que ça ne fera mal à personne, non?