Shell "explorer.exe /n,/e, "

Bonjour vous,

J'ai une macro qui fonctionne à merveille (Merci FxM)
mais elle pourrait etre encore plus merveilleuse... :-)

Cette macro sert quand un fichier Excel est ouvert depuis
R:\F_origine\###\???\xxx.xls
il s'enregistrera au format texte (separateur tabulation) dans
R:\F_travaille\###\???\xxx.txt

elle crée donc le meme nombre de dossier en les appelants pareils,
et à la fin de cette macro, l'explorer s'ouvre dans le dossier qui contient
le fichier texte. PARFAIT !

Shell "explorer.exe /n,/e, " & chemin, vbMinimizedNoFocus
"chemin" etant R:\F_travaille\###\???\

Mais si j'ai 3 fichiers excel, je lance la macro 3 fois
et je me retrouve avec 3 fenetres explorer ouvertes...

Alors je sais pas si c'est possible, mais j'aimerais,
que si la fenetre (donc le meme chemin) est deja ouverte,
l'explorer ne s'ouvre pas, il y aurai uniquement l'enregistrement
en texte. Voici la fin du code :

ActiveWorkbook.SaveAs Filename:=nomfut, FileFormat:=xlText,
CreateBackup:=False
chemin = StrReverse(nomfut)
chemin = Right(chemin, Len(chemin) - InStr(1, chemin, "\") + 1)
chemin = StrReverse(chemin)
Shell "explorer.exe /n,/e, " & chemin, vbMinimizedNoFocus
End Sub

Petit plus ;
est-il possible d'enlever la fenetre DOSSIERS a gauche dans l'explorer.
par defaut l'explorer affiche l'arborescence des dossiers...

Merci infiniment d'avance pour votre aide...

Tinou
Le mot communauté prend tout son sens sur ce forum...!

(http://www.microsoft.com/office/community/fr-fr/default.mspx?dg=microsoft.public.fr.excel&tid=206196ab-0ee4-4d97-a60f-403f23a2f774&cat=fr-fr-produitsbureautiques&lang=fr&cr=FR&sloc=fr-fr&m=1&p=1)