VBA - Suivre la progression d'un Application.FileSearch...

[pedrag31]

Bonjour le forum,

J'utilise un UserForm qui me permet de rechercher et d'ouvrir un fichier (plan de pièces) a partir d'une référence de pièce. La référence de la pièce correspond au nom du fichier dans mon répertoire.

Lors du clic sur "Search" (Application.FileSearch), je souhaiterais afficher une barre de progression "perso" pour montrer l'avancement de la recherche en cours... La progression s'afficherait avec Userform5.show(modal) puis en faisant appel a la macro suivante:

Static Sub ProgressBar(x As Long, PourCent As Long)
    Progress = x / PourCent
    UserForm5.Label3.Width = Progress * 200
    UserForm5.Label2.Caption = MsgBar
    DoEvents
End Sub

Note : La progression est donc représentée par la largeur de Label3...

Savez-vous s'il existe un code intégré a la fonction FileSearch pour connaitre son statut/avancement (en % peut être)? Je souhaiterais faire qqch de similaire a la recherche standard Windows... Merci

J'ai trouvé un substitut sur ce site mais cela alourdit considérablement la recherche...

Merci d'avance pour vos précieux conseils.

Bonne journée,

 

[pedrag31]

Re : VBA - Suivre la progression d'un Application.FileSearch...

Bonjour le forum,

Un p'tit up...

Merci d'avance pour vos conseils.

Bonne journée,

 

[pedrag31]

Re : VBA - Suivre la progression d'un Application.FileSearch...

Bonjour le forum,

Un p'tit up 2...

Merci d'avance pour vos conseils.

Bonne journée,