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