Lancement Explorateur Windows

[jccamus]

Je souhaite lancer l'Explorateur Windows à partir de Excel, en affichant directement un répertoire dont je connais le nom et que je passerai en paramètre à ce lancement.

Merci de votre aide.

JCC

 

[jccamus]

Re : Lancement Explorateur Windows

Bonjour JCC,

Essaye comme ça :
shell("explorer c:\TonRepertoire")

Ou bien, pour le passer en paramètre :
shell("explorer " & TaVariable)

Bon app'.

EDIT : Ajoute , vbNormalFocus pour avoir la fenêtre au premier plan sinon elle est minimisée par défaut.

Merci beaucoup pour cette solution.
Elle fonctionne, mais je n'arrive pas à positionner le vbNormalFocus.
Peux-tu me donner la syntaxe exacte avec vbNormalFocus?
Merci encore et bonne nuit.

 

[MichelXld]

Re : Lancement Explorateur Windows

bonjour Jccamus , bonjour her José

tu peux tester

Shell "explorer C:\TonRepertoire", vbNormalFocus

une autre solution à tester

ThisWorkbook.FollowHyperlink "C:\TonRepertoire"

bonne journée
MichelXld

 

[jccamus]

Re : Lancement Explorateur Windows

bonjour Jccamus , bonjour her José

tu peux tester

Shell "explorer C:\TonRepertoire", vbNormalFocus

une autre solution à tester

ThisWorkbook.FollowHyperlink "C:\TonRepertoire"

bonne journée
MichelXld

La première solution marche parfaitement sous la forme
Shell "explorer "&ma_variable_répertoire , vbNormalFocus

Merci pour cette aide.

Bonne journée