Ouvrir l'explorateur à l'aide d'une macro

[lesuisse]

Bonjour à toutes et à tous de la Suisse,

Est-ce que quelqu'un connaitrait le code pour faire ouvrir l'explorateur à l'aide d'une macro ?

Merci beaucoup et bonne journée...

lesuisse

 

[Jean-Marie]

Bonjour, le suisse

Je pense que c'est cette inctruction :

Shell (c:\windows\explorer.exe, X)

Remplace le X par la valeur entre parenthèse ou par le mot à sa gauche

vbHide (0), La fenêtre est masquée et activée.
vbNormalFocus (1), La fenêtre est activée et rétablie à sa taille et à sa position d'origine.
vbMinimizedFocus (2), La fenêtre est affichée sous forme d'icône et activée.
vbMaximizedFocus (3), La fenêtre est agrandie et activée.
vbNormalNoFocus (4), La fenêtre est rétablie à sa taille et à sa position les plus récentes. La fenêtre active reste active.
vbMinimizedNoFocus (6), La fenêtre est affichée sous forme d'icône. La fenêtre active reste active.

@+Jean-Marie

 

[Cyrille68]

Bonjour Jean-Marie

a marche pas !
Il me dit qu'il "compile error" à cause des :

T'as une idée ?

Merci !

A+

lesuisse

 

[@+Thierry]

Bonjour Cyrille, Jean-Marie


Je pense que Jean-Marie a simplement oublié de mettre les " " pour le Path
de l'Explorateur de Windows, ce qui donnerait ceci sous NT :

Sub ExplorerOpen()
Dim Retval As Double

Retval = Shell("c:\Winnt\explorer.exe", 1)
End Sub

Donc faire bien attention au chemin (PathName) qui selon la version de Windows peut se trouver différent (Ici WinNt)

Bon Appétit à tous et toutes
@+Thierry


PS si il s'agit de IE (Internet Explorer)... Il suffit de faire un Hyperlien, mais on peut aussi faire une commande Shell comme ceci :

Sub IExplorerOpen()
Dim Retval As Double

Retval = Shell("c:\Program Files\Plus!\Microsoft Internet\Iexplore.exe", 1)


End Sub

 

[Jean-Marie]

Re...

Merci Thierry pour cette précision

@+Jean-Marie