Discussion :

[marrek209]

Bonjour,
bon ben le titre est parlant je crois!

Je cherche à ouvrir un dossier (contenant d'autres dossier ainsi que des classeurs excel...)présent sur le disque dur d'un ordi d'un utilisateur du réseau.
Je m'explique: j'ai créé un classeur qui s'enregistre via la ligne suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"C:\Documents and Settings\" & Environ$("USERNAME") & "\Projet \"

Or mon code pour ouvrir ce dossier suivant l'utilisateur, ne marche pas:
1) il m'ouvre une fenetre explorateur, ouverte sur la page : "Mes docuements"
2) il n'offre pas la possibilité de choisir l'utilisateur, c'est par défaut le repertoire de la personne qui utilise le classeur...

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Répertoire As String
Repertoire = "C:\Documents and Settings\" & Environ$("USERNAME") & "\Projet \" 
'Chemin et répertoire à adapter
Shell "C:\Windows\EXPLORER.EXE " & Répertoire, vbNormalFocus

J'ai déja posté un post similaire sur un autre forum, mais sans réponse à ce jour...!! je fais appel à vous!

En esperant que vous pourrez m'aider
Cordialement

[Jean-Philippe André]

salut,
avant de chercher plus loin, est-ce que le dossier que tu cherches à ouvrir se nomme bien "Projet " ? et non pas "Projet" ?

[marrek209]

bonsoir,

oui le dossier s'appelle bien "Projet " (avec un espace).
(De plus j'ai remarqué qu'en indiquant le chemin manuellement une première fois dans la fenêtre explorateur de dossier, cela permet d'éviter de re-signaler le chemin du fichier. Le hic c'est que par conséquent avec cette méthode , à chaque ouverture du classeur je dois refaire cela manuellement!..)

Et mon deuxième problème est toujours un problème...

[Jean-Philippe André]

lorsque tu fais appel à une fonction shell, le contenu passé est le même que celui que tu écrirais dans un fichier batch, aussi il faut selon moi doubler les guillemets

essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "C:\Windows\EXPLORER.EXE """ & Répertoire & """", vbNormalFocus

[Didier Gonard]

Bonjour,

essayes ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub LesBonsReflexes()
Dim Répertoire As String
 
Répertoire = "C:\Documents and Settings\" & Environ$("USERNAME") '& "\Projet \"
'Chemin et répertoire à adapter
Shell "C:\Windows\EXPLORER.EXE " & Répertoire, vbNormalFocus
End Sub

et vois sur le forum les gros avantages de : Option Explicit

cordialement,

didier