Explorateur

[Aurore]

Bonjour à tous...

Je voudrais savoir s'il existe une fonction qui permette d'ouvrir un explorateur Windows...
Je connais la fonction GetOpenFile mais moi ce que j'aimerais c un explorateur qui permette de naviguer afin de trouver le nom d'un répertoire spécifique et de l'iscrire dans une cellule...

Je vous remercie d'avance pour votre aide

Aurore

 

[JB]

Salut Aurore,

voici une petite macro récupérée sur le Net qui permet de lister les fichiers xls d'un répertoire dans une listbox et d'ouvrir celui que tu désires.

Private Sub CommandButton1_Click()
Workbooks.Open Filename:=ListBox1.Value
Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim F
With Application.FileSearch
.NewSearch
.LookIn = nom de ton répertoire entre guillemets, ex: "C:\PERSONNEL"
.Execute
On Error Resume Next
For Each F In .FoundFiles
ListBox1.AddItem F
Next F
End With
End Sub

J'espère que çà va t'aider, tiens moi au courant.

A+

JB

 

[Aurore]

Merci JB pour cette macro....

mais en fait il ne s'agit pas de cela....Ce qui me faudrait c une macro qui me permette naviguer dans le disque durs,de sélectionner un dossier et d'inscrire son nom dans une cellule parce que toutes les fonctions que g trouvé ne permette de selectionner qu'un fichier et non pas un dossier complet...