Aide sur macro pour rechercher dossier

[matthieu2701]

Bonjour,

J'ai créé une inputbox dans laquelle il faudra saisir le nom ou le numéro de dossier du client recherché. J'aimerais que lorsque le NOM ou le numéro de dossier est retrouvé, que le dossier en question s'ouvre.

Actuellement, si le dossier existe dans le chemin définit, c'est le dossier "Mes documents" qui s'ouvre.

De plus, je souhaite que la recherche se fasse comme dans l'explorateur windows. Par exemple, j'ai le dossier qui d'appelle MARTIN Luc 100123.

Je souhaite qu'il s'ouvre si je saisi MARTIN ou 100123 et non pas si je saisie le nom complet du dossier. Car j'ai rarement toutes les informations.

J'ai trouvé ce code sur internet. J'arrive pas à le modifier pour arriver à ce que je souhaite. Pouvez vous m'aider svp ?

Sub RechercherDossier()

xnom = InputBox("Quel client recherchez vous", "Nom")
Chemin = "d:\Test\" & xnom

If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Le client n'existe pas"
Exit Sub
Else
Shell "C:\windows\explorer.exe Chemin", vbMaximizedFocus
End If

End Sub

Merci par avance

 

[MJ13]

Re : Aide sur macro pour rechercher dossier

Bonjour Matthieu

J'utilise ce code (remplace activecell par chemin):

Shell "C:\Windows\explorer.exe " & ActiveCell & "", vbMaximizedFocus

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossier

Bonjour Matthieu

J'utilise ce code (remplace activecell par chemin):

Shell "C:\Windows\explorer.exe " & ActiveCell & "", vbMaximizedFocus

Là je peux pas tester car je suis sur mac. Le PC est à mon boulot. Ce code va permettre l'ouverture de mon dossier ? Mais je serais toujours obligé de noter le nom exact du dossier pour qu'il s'ouvre ?

 

[MJ13]

Re : Aide sur macro pour rechercher dossier

Re

Mais je serais toujours obligé de noter le nom exact du dossier pour qu'il s'ouvre ?

Par rapport à ton code, je n'ai traité que la partie pour ouvrir le chemin en le rentrant manuellement (il faut y aller par étape). Teste le et après reviens pour la suite. Par contre réfléchi un peu à savoir comment veux tu extraire les noms de dossier, peut-être avec un Dir.

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossier

Ok merci.

J'ai deux éléments. Soit en recherche par le nom soit par le numéro de dossier.

 

[MJ13]

Re : Aide sur macro pour rechercher dossier

Re

J'ai deux éléments. Soit en recherche par le nom soit par le numéro de dossier.

Cela dépend aussi de combien de dossiers car si tu en as 10000, cela peut-être long pour la recherche. Dans ce cas, je préfère extraire la liste des dossiers sur une feuille puis faire la recherche sur la feuille.

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossier

Je dois en avoir entre 100 et 150. Après comment faire pour lui dire de m ouvrir le dossier qui contient un des éléments de la inputbox et non le nom complet du dossier ?

 

[MJ13]

Re : Aide sur macro pour rechercher dossier

Re

Voici un code que j'ai trouvé avec la touche F1 sur Dir pour avoir la liste des dossiers de C:\ (chemin à adapter).

J'ai juste rajouté nlig= 1 et la ligne contenant "dossier = MyPath & MyName"

Code VBA:
Sub Dir_Dossier()
'Extrait de l'aide F1
Dim MyFile, MyPath, MyName

nlig = 1

' Renvoie "WIN.INI" (sur Microsoft Windows) si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI")

' Renvoie le nom de fichier avec l'extension indiquée. Si plusieurs
' fichiers *.ini existent, le premier fichier trouvé est renvoyé.
MyFile = Dir("C:\WINDOWS\*.INI")

' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.INI suivant dans le même dossier.
MyFile = Dir

' Renvoie le premier fichier *.TXT avec l'attribut fichier caché.
MyFile = Dir("*.TXT", vbHidden)

' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName est un dossier.
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
'Debug.Print MyName ' Affiche l'entrée uniquement si elle
dossier = MyPath & MyName: Cells(nlig, 1) = dossier: nlig = nlig + 1
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop

End Sub

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossier

Tu écris Dir, tu te positionne déçu et tu cliques sur F1 pour avoir ça ?

 

[MJ13]

Re : Aide sur macro pour rechercher dossier

Re

Tu écris Dir, tu te positionne déçu et tu cliques sur F1 pour avoir ça ?

C'est l'exemple fourni sous X2007 dans le VBE (Alt+F11), mais il faut sélectionner Dir.

 

[Dranreb]

Re : Aide sur macro pour rechercher dossier

Bonjour
À essayer quand même tout simplement :

Sub RechercherDossier()
Const Racine = "D:\Test\"
Dim XNom As String
xnom = InputBox("Quel client recherchez vous", "Nom")
xnom = Dir(Racine & "*" & xnom & "*", vbDirectory)
If xnom = "" Then
   MsgBox "Le client nexiste pas"
Else
   Shell "C:windowsexplorer.exe " & Racine & XNom, vbMaximizedFocus
   End If
End Sub

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossiercine corresp

Bonjour
À essayer quand même tout simplement :

Sub RechercherDossier()
Const Racine = "D:\Test\"
Dim XNom As String
xnom = InputBox("Quel client recherchez vous", "Nom")
xnom = Dir(Racine & "*" & xnom & "*", vbDirectory)
If xnom = "" Then
   MsgBox "Le client nexiste pas"
Else
   Shell "C:windowsexplorer.exe " & Racine & XNom, vbMaximizedFocus
   End If
End Sub

Merci. Je testerais et je te tiens au courant.

Le "racine" correspond à quoi ?

Merci

 

[Dranreb]

Re : Aide sur macro pour rechercher dossier

Ça correspond au chemin du dossier dans lequel vous voulez rechercher un sous-dossier.

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossier

Ça correspond au chemin du dossier dans lequel vous voulez rechercher un sous-dossier.

D'accord merci. Je testerai.

 

[matthieu2701]

Re : Aide sur macro pour rechercher dossier

Bonjour
À essayer quand même tout simplement :

Sub RechercherDossier()
Const Racine = "D:\Test\"
Dim XNom As String
xnom = InputBox("Quel client recherchez vous", "Nom")
xnom = Dir(Racine & "*" & xnom & "*", vbDirectory)
If xnom = "" Then
   MsgBox "Le client nexiste pas"
Else
   Shell "C:windowsexplorer.exe " & Racine & XNom, vbMaximizedFocus
   End If
End Sub

Avec cela si j'ai un dossier nommé MARTIN Luc 100123 et que dans l inputbox je tape MARTIN ou 100123, le dossier de MARTIN Luc 100123 va s ouvrir ?