Discussion :

[flobuzz]

bijour, je suis votre nouveau commandant di bord...

meu nan c'est pas vrai !!!

Vrai tite question :
-je veux récupérer les fichiers d'un répertoire en faisant :

Code :

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

1
2
3
4
5
6
FichierBibli = Dir(cheminbibli & "*.*")
 
AjoutBibli:
ActiveWorkbook.VBProject.References.AddFromFile cheminbibli & FichierBibli
FichierBibli = Dir
If FichierBibli <> "" Then GoTo AjoutBibli

mon souci, c'est que la ligne FichierBibli = Dir ne semble absolument rien faire... pas d'itération de fichier, pas de "" pour dire qu'il ne trouve rien... il reste bloqué sur le mêmé fichier...
z'auriez une canalisation?... ou un tuyau pour m'aider ?

Flobuzz

[Didier Gonard]

Bonjour,
ceci te liste et te dénombre les fichiers d'un répertoire avec Dir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ChercheEtTrouve()
Dim strChem
Dim I As Long
 
strChem = Dir("C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\Binn\*.*")
Do While Len(strChem) > 0
    Debug.Print strChem
    I = I + 1
    strChem = Dir
Loop
Debug.Print I & " fichier(s) trouvés"
End Sub

cordialement,

Didier