[Résolu]Problème Fonction Dir

[florenllf]

Bonjour,
Je souhaite afficher dans une liste(suivant critères) les fichiers présents dans le même répertoire que mon fichier.
Mon code fonctionne jusqu'à ce que je ferme mon fichier puis le ré-ouvre et là...plus rien ne marche.
Je ne sais pas d'où cela vient, surement de ceci:

ChDir ActiveWorkbook.Path
conso_fichiers = Dir("A-*-B.xls")

J'ai ceci dans un module:

Sub consolidation()
'On récupère le chemin du fichier actuel
chemin = ActiveWorkbook.Path
'Le chemin devient le chemin par défaut pour la suite de la procèdure
ChDir chemin

'Affiche la fenetre
UserForm1.Show
End Sub

Et dans ma userform:

Private Sub UserForm_Activate()

Dim conso_fichiers As String


' On définit la règle de recherche
ChDir ActiveWorkbook.Path
conso_fichiers = Dir("A-*-B.xls")

MsgBox conso_fichiers

'conso_form: nom de la userform; liste: nom de la "boite à liste" (listbox)
With UserForm1.liste
    'initialise la liste de la boite de dialogue avec le 1° fichier
    .AddItem (conso_fichiers)
    
    'parcourt le répertoire
    'tant qu'il reste encore un fichier anne-xxxx -xxxx.xls
    While conso_fichiers <> ""
        'affecte à conso le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
        conso_fichiers = Dir
        'initialise la liste dans la boite de dialogue avec le fichier suivant
        .AddItem (conso_fichiers)
    Wend
    
End With
End Sub

Merci de votre aide.

 

[Pierrot93]

Re : Problème Fonction Dir

Bonjour,

plus rien ne marche.

message d'erreur ou pas le résultat attendu ? en mode pas à pas, quese passe t il ??

bon après midi
@+

 

[florenllf]

Re : Problème Fonction Dir

En mode pas à pas le while n'est jamais exécuté.
Ma msgbox et ma liste sont vident, donc pas de message d'erreur.

Mon fichier en attache.

 

[Pierrot93]

Re : Problème Fonction Dir

Bonjour,

ton code semble bien fonctionner chez moi... mais attention tout de même au "chdir" par rapport au classeur actif qui n'entraîne pas forcément le changement de lecteur... voir du coté de "chdrive". On pourrait raccourcir un peu ton code ainsi :
dans "module1" :

Sub consolidation()
UserForm1.Show
End Sub

dans le module de l'usf :

Private Sub UserForm_Activate()
Dim r As String, f As String
r = ActiveWorkbook.Path & "\"
f = Dir(r & "A-*-B.xls")
Do While f <> ""
    liste.AddItem (f)
    f = Dir
Loop
End Sub

Et désolé pour le retard, mais j'avais zappé ta réponse....

bonne journée
@

 

[florenllf]

Re : Problème Fonction Dir

C'est parfait @Pierrot93, merci beaucoup, concernant ta remarque sur le "chdir" ca devait surement venir de ça.