Macro ouvrir dossier

[Benjy]

Bonjour,

J'ai un petit problème que je suppose être de syntaxe.
J'ai plusieurs boutons qui ouvrent des répertoires définis

Le code suivant fonctionne :

Private Sub CommandButton3_Click()
Shell "c:\windows\explorer.exe Z:\protocole\", 1
End Sub

Le code suivant ne fonctionne pas:

Private Sub CommandButton3_Click()
Shell "c:\windows\explorer.exe Z:\protocole\ & Cells(3,1).value &\Formulaires\Formulaires ES", 1
End Sub

Je suppose que la syntaxe du second code est inccorect. Je n'ai pas d'erreur à lexécution mais il m'ouvre le dossier Mes Documents. Il ne trouve donc pas le dossier que je lui demande. Je suppose que la variable n'est pas pris en compte.

Merci d'avance,

Cordialement,

Ben

 

[Pierrot93]

Re : Macro ouvrir dossier

Re,

essaye peut êttre ceci :

Private Sub CommandButton3_Click()
Shell "c:\windows\explorer.exe Z:\protocole\" & Cells(3,1).value & "\Formulaires\Formulaires ES", 1
End Sub

@+

 

[Benjy]

Re : Macro ouvrir dossier

Re bonjour Pierrot,

Encore une fois dans le mille.
Merci beaucoup.

Question bonus :
Shell "c:\windows\explorer.exe Z:\protocole\" & Cells(3,1).value & "\Formulaires\Formulaires ES", 1

Si la cellule(3,1) est sur une autre feuille ?
Est-ce possible sans passer par une déclaration :
dim nom as string
sheets("A").select
nom=Cells(3,1).value ?

Cordialement,

Ben

 

[Pierrot93]

Re : Macro ouvrir dossier

RE,

comme ceci :

Shell "c:\windows\explorer.exe Z:\protocole\" & sheets("A").Cells(3,1).value & "\Formulaires\Formulaires ES", 1

@+

 

[Benjy]

Re : Macro ouvrir dossier

Re,

Effectivement... Simple mais problèmatique quand on ne connait pas la syntaxte.
Encore une fois merci

Cordialement,

Ben