[VBA] Ouvrir un explorer puis lancer un recherche

Bonjour à tous,

Etant novice en VBA je bloque sur la macro ci-dessous.

Explication de la Macro :

- Ouvrir un explorateur Windows dans un dossier spécifique puis de lancer une recherche qui a pour valeur la cellule B6.

Après plusieurs recherche infructueuse je l'ai fait avec des "sendKeys" ce qui n'est pas très propre et qui a des risques de ne pas fonctionner.

Sub Bouton11_Cliquer()

Range("B6").Select

Selection.Copy

Dim ouvrir As String

ouvrir = "c:\windows\explorer.exe " & "N:\01-DOSSIERS_AFFAIRES\MECAPRO\00-MECAPRO-PLAN-ENSEMBLE-IMPLANTATION\01-PLANS-LIENS"

Shell ouvrir, 1

'-- PAUSE --

Dim start

start = Timer

Do While Timer < start + 2 'pause de 'x' secondes

DoEvents

Loop

'-----------

SendKeys "{TAB}"

SendKeys "{TAB}"

SendKeys "{TAB}"

SendKeys "^(v)" 'ctrl + V

End Sub

Il n'y aurait pas un moyen plus propre de le faire ?

Cordialement Gaël

Bonjour Gaël,

Edit :

Tu veux faire quoi en recherchant ce fichier :

L'ouvrir ? Le supprimer ? Obtenir son chemin ?

L'explorateur de Windows ne te permet que de visualiser les fichiers et pas d'agir dessus.

Si ce que tu veux c'est agir sur le fichier trouvé, alors tu a de bien meilleur méthode que d'utiliser l'explorateur!

A dispo!

Slt,

supposons que c'est un fichier pdf (sinon change l'extention ".pdf" !!!

Sub Bouton11_Cliquer()
    Dim Folder As String
    Range("B6").Select
    Folder = "N:\01-DOSSIERS_AFFAIRES\MECAPRO\00-MECAPRO-PLAN-ENSEMBLE-IMPLANTATION\01-PLANS-LIENS\"
    Shell "C:\Windows\explorer.exe /select," & Folder & ActiveCell.Value & ".pdf", vbMaximizedFocus
End Sub

Je veux simplement ouvrir l'explorateur et lancer une recherche avec la valeur en B6. Après ce n'est plus du VBA

Rechercher des sujets similaires à "vba ouvrir explorer puis lancer recherche"