Macro pour ouvrir l'explorateur windows avec un nom de chemin partiel

Re : Macro pour ouvrir l'explorateur windows avec un nom de chemin partiel

Bonsoir dje30, le Forum

En PJ un fichier où tu trouveras sur l'UserForm1 dans le CommandButton3 la macro qui vat bien.

Macros de BrunoM45 (merci à lui)

BONNE ANNEE 2013

@+

Attention: il faut que tes fichiers soient tous au même endroit, recherche sur 65 000 fichiers en 1,5 seconde ouverture comprise.

Re : Macro pour ouvrir l'explorateur windows avec un nom de chemin partiel

Bsr,

Merci pour cette reponse instructive.

L'exemple donné est pour ouvrir un fichier en envoyant la commande shell du type J:\luluci\DOCS ARL\toto*.xls
Ce qui va ouvrir les fichiers commencant par toto dans le repertoir DOCS ARL :

Private Sub CommandButton3_Click()

Const Chemin = "J:\luluci\DOCS ARL\"
Dim NomFic As String, ArgDir As String

ArgDir = Chemin & TextBox1.Value & "*" & TextBox2.Value
NomFic = Dir(ArgDir)
If NomFic <> "" Then
ThisWorkbook.FollowHyperlink Chemin & NomFic
Else
MsgBox "Il n'existe pas de fichier :" & vbLf & ArgDir, vbCritical, Me.Caption
End If

End Sub



dans mon cas j'ai besoin d'ouvrir l'explorateur windows dans le bon repertoir (dont le nom commence par le numero de commande).

Avez-vous une idée ces modifications a apporter ?

Merci d'avance,

Bonne année à tous !

dje30

Re : Macro pour ouvrir l'explorateur windows avec un nom de chemin partiel

bonsoir,
A+
kjin

Re : Macro pour ouvrir l'explorateur windows avec un nom de chemin partiel

Bsr,

C'est parfait, ca fonctionne du premier coup !

Merci a tous pour votre aide,

Cdt,
Jerome