Discussion :

[rom05]

Bonjour à tous,
Je vous expose mon problème : alors j'ai plusieurs fichier texte dans un même répertoire. Pour chaque fichier texte je dois l'ouvrir dans excel et extraire de l'information...
Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
fic = Dir("D:\romain\travail\Sophy_2004_origine\essai\Classeurs\S*.txt")
Do Until fic = ""
    Set CL2 = Workbooks.Open(fic)
    ' à ce niveau je réalise l'ensemble de mes manip
Loop
...

Le problème qui se pose c'est qu'il me dit que le chemin ou le fichier est introuvable, alors qu'il est bien à cet endroit... J'ai essayé avec workbooks.OpenText (fic) et j'ai le même soucis...
Si quelqu'un à une astuce?
Merci d'avance

[Le Pierre]

bonjour

effectivement la commande "Set CL2 = Workbooks.Open(fic)" passe mal !

essaye avec ce code que j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
    Chemin = "D:\romain\travail\Sophy_2004_origine\essai\Classeurs\"
    fic = Dir(Chemin & "S*.txt")
    Do Until fic = ""
        Workbooks.OpenText Filename:=Chemin & fic, _
            DataType:=xlDelimited, Tab:=True
 
        ' à ce niveau je réalise l'ensemble de mes manip
        fic = Dir
    Loop
 
End Sub

à plus