Requêtes sur fichiers texte

[drone]

Bonjour,
j'aimerais savoir, et si oui comment, s'il est possible de faire des requêtes depuis Excel sur des fichiers texte, sans passer par Access, et biensûr en VBA.
Merci d'avance pour vos réponses.

 

[Staple1600]

Re : Requêtes sur fichiers texte

Bonjour


Issue des Pages WIKI de MichelXLD (page 6)

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] importFichierTexte_ADO()
[COLOR=darkblue]Dim[/COLOR] Rc [COLOR=darkblue]As[/COLOR] ADODB.Recordset
[COLOR=darkblue]Dim[/COLOR] cn [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], Chemin [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], Fichier [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
[COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
Chemin = "C:\Documents and Settings\michel\dossier\general\excel"
Fichier = "monFichier.txt"
cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Chemin & ";Extensions=asc,csv,tab,txt"
[COLOR=darkblue]Set[/COLOR] Rc = [COLOR=darkblue]New[/COLOR] ADODB.Recordset
Rc.Open Source:="SELECT * FROM " & Fichier, activeConnection:=cn
[COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] Rc.EOF [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]For[/COLOR] i = 0 [COLOR=darkblue]To[/COLOR] Rc.Fields.Count - 1 [COLOR=green]'recuperation entetes[/COLOR]
Cells(1, 1).Offset(0, i) = Rc.Fields(i).Name
[COLOR=darkblue]Next[/COLOR]
Range("A2").CopyFromRecordset Rc
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
Rc.Close
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]

 

[drone]

Re : Requêtes sur fichiers texte

Merci beaucoup et honte sur moi pour ne pas avoir vu ça dans le wiki 😱

 

[drone]

Re : Requêtes sur fichiers texte

Maintenant, j'ai une vraie question qui n'est pas dans le wiki (ouf!!)
Pour les fichiers délimité par une tabulation, comment fait-on ?

 

[drone]

Re : Requêtes sur fichiers texte

Merci mais j'ai déjà vu ce fil mais ça ne correspond pas du tout à ce que je cherche.
Je souhaite faire des requêtes directement sur des fichiers texte qui sont délimités soit par des point-virgule (donc ta première réponse et le wiki correspondent bien à cela) ou par des tabulations. Je ne souhaite pas importer tout le fichier.