Rechercher un document dans un répertoire sans l'ouvrir

[Drk54]

Bonjour à tout le forum

A cette heure ci j'utilise une macro me permettant d'ouvrir un répertoire sur le réseau de ma boite :

Shell "c:\windows\explorer.exe G:\certificat acierie\CERTIFICAT ACIERIE", 1

Dans ce répertoire, il y a plusieurs format de documents (pdf, tiff....) et 17548 fichiers différents

J'ai en case A1 une partie du nom des fichiers que je recherche dans mon répertoire mais qui change à chaque nouveau document que je fais (ex : en A1 j'ai T20 , et dans mon répertoire j'ai T20 + poids lopin (ce poids que je ne peux écrire dans mon doc))

Ce que je recherche c'est une macro qui me fasse la recherche automatique du nom de mon fichier dans mon répertoire mais qui ne n'ouvre pas ce document.

Merci beaucoup d'avance.

 

[pyfux]

Re : Rechercher un document dans un répertoire sans l'ouvrir

Bonjour,

Pour lister tous les fichiers d'un dossier commençant par T et d'extension xls

Dim lsPath As String
Dim lsFile As String

lsPath = "C:\Users\pyfux\Documents\ExcelDownload\T*.xls"
lsFile = Dir(lsPath, vbNormal)
While lsFile <> ""
    MsgBox lsFile
    lsFile = Dir
Wend

Vous n'avez plus qu'a adapter ce code à votre besoin

Courage,
Pyfux

 

[Drk54]

Re : Rechercher un document dans un répertoire sans l'ouvrir

Bonjour Pyfux, merci de ta réponse

Ce que je recherche n'est pas vraiment ceci,
Ce que j'aimerai c'est qu'en fonction de ma cellule, ma macro m'ouvre mon explorateur windows et fasse automatiquement la recherche dans le dossier que j'avais spécifié au dessus.

Comme sur l'imprim écran que j'ai mis en PJ (pour la recherche)

 

[pyfux]

Re : Rechercher un document dans un répertoire sans l'ouvrir

Bonjour,

Es-ce qu'un USF qui afficherait la liste des fichiers correspondant à ta rechercher serait une solution ?

++
Pyfux