browser control activeX

[pat]

salut à tous
pouvez vous aider mon collegue? car il me casse les pieds dépuis un certain temps.

il cherche en vba excel le control permettant d'ouvrir dans une boite de dialogue excel, l'explorateur windows.

merci de vos reponses
a+
pat
p_salinas_14@yahoo.fr

 

[schmail]

Salut pat et le forum

j'ai trouvé cela sur le site de STeph : <http://xlbysteph.free.fr/index.html>

Dim param As String
param = "explorer.exe /n,/e"
retval = Shell(param, 3)
End Sub

cela ouvre l'explorateur
Si cela peut calmer ton collègue...

@+

 

[MG]

Bonsoir pat,

un petit exemple pour satisfaire ton casse pied de collegue

Gérard

 

[pat]

chers amis
merci de vos réponses, ça marche

mais mon casse bonbons (ce n'est plus les pieds) de collegue, voudrait faire la même operation, mais à l'intérieur d'une boite de dialogue, afin de recuperer les chemins d'accès....

merci de vos reponses encore

mmm si jamais il n'est pas content je crois que je vais balancer mon collègue par la fenetre, et puis basta
a+
pat

 

[schmail]

Re

2ème essai avant défenestration lol

Sub Nomdufichier()
Dim NomFichier
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then MsgBox "Action annulée" _
Else MsgBox "Fichier sélectionné : " & NomFichier
Range("A1").Value = NomFichier
End Sub

@+