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:
J'ai ceci dans un module:
Et dans ma userform:
Merci de votre aide.
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:
Code:
ChDir ActiveWorkbook.Path
conso_fichiers = Dir("A-*-B.xls")J'ai ceci dans un module:
Code:
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 SubEt dans ma userform:
Code:
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 SubMerci de votre aide.
Dernière édition: