browser control activeX

S

schmail

Guest

• 6 Novembre 2003

• #2

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...

@+

 

Vote positif 0 Vote négatif

M

MG

Guest

• 6 Novembre 2003

• #3

Bonsoir pat,

un petit exemple pour satisfaire ton casse pied de collegue

Gérard

 

Pièces jointes

• Bibliotheque.zip

  7.2 KB · Affichages: 24
• Bibliotheque.zip

  7.2 KB · Affichages: 26
• Bibliotheque.zip

  7.2 KB · Affichages: 21

Vote positif 0 Vote négatif

P

pat

Guest

• 6 Novembre 2003

• #4

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

 

Vote positif 0 Vote négatif

S

schmail

Guest

• 6 Novembre 2003

• #5

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

@+

 

Vote positif 0 Vote négatif