Ouvrir fichiers texte dans 1 repertoire

[semion]

Bonjour

Désolé si cette question a déjà été posée, je n'ai pas trouvé de réponse avec la recherche dans le forum

Je voudrais simplement ouvrir un ensemble de fichier texte dans 1 répertoire et les lire (fichiers HMTL)

J'y arrive avec des classeurs en faisant
----------------
Dim CLASSEUR
Dim Feuille As Worksheet

With Application.FileSearch
.NewSearch
.LookIn = "D:\DROITS\Fiches A"
.Execute

On Error Resume Next
For Each CLASSEUR In .FoundFiles
Workbooks.Open CLASSEUR
For Each Feuille In Worksheets
...etc...
----------------
Comment ouvrir des fichiers textes, quelle est la syntaxe ???

D'avance merci à tous

 

[RENAUDER]

Re : Ouvrir fichiers texte dans 1 repertoire

Bonjour,
De manière simple et ensuite à adapter

Sub LireFichierTexte()
Dim DonneeSaisie
// Effectue la boucle jusqu'à la fin du fichier.
Open "C:\Excel\Entree.txt" For Input As #1    // Ouvre le fichier en lecture.
Do While Not EOF(1)
// Lit les données de la variable.
    Input #1, DonneeSaisie
    MyValeur = DonneeSaisie
 // Ecrit les données dans la feuille de calcul à partir de la ligne 2
    Range("A65536").End(xlUp)(2).Value = DonneeSaisie
   Loop
Close #1    // Ferme le fichier.

 

[Catrice]

Re : Ouvrir fichiers texte dans 1 repertoire

Bonjour,

si tu veux ouvrir des fichiers htm ou html directement sous Excel tu peux essayer ceci :

Sub test()
With Application.FileSearch
.NewSearch
.LookIn = "C:\TEST"
.FileType = msoFileTypeWebPages
.Execute
If .FoundFiles.Count = 0 Then Exit Sub
For Each CLASSEUR In .FoundFiles
Workbooks.Open CLASSEUR
Next
End With
End Sub

Pour ouvrir des fichiers txt :

Sub test()
With Application.FileSearch
.NewSearch
.LookIn = "C:\TEST"
.FileType = msoFileTypeAllFiles
.Execute
If .FoundFiles.Count = 0 Then Exit Sub
For Each CLASSEUR In .FoundFiles
If Right(CLASSEUR, 3) = "txt" Then Workbooks.Open CLASSEUR
Next
End With
End Sub

 

[semion]

Re : Ouvrir fichiers texte dans 1 repertoire

Merci à vous deux...j'essayerai demain vos solutions
Patrice