Bonjour,

Dans mon usf, lorsque je clique sur un bouton, je veux ouvrir un repertoire, et il s'ouvre bien.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Cb7_Click()
mychemin = "explorer.exe " & TB2.Text
Retval = Shell(mychemin, vbNormalFocus)
End Sub
Et ensuite tout se bloque et ma macro se trouve en arrêt sur le bouton de la feuille qui affiche l'usf.

Ca fait 1 heure que je bloque, toute aide est la bienvenue.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub CommandButton1_Click()
 
    Uexp.Show
 
End Sub
Edit: Le code suivant pour l'ouverture => même probléme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Cb7_Click()
 
mychemin = "explorer.exe " & TB2.Text
a = "CMD.EXE /c " & Chr(34) & mychemin & Chr(34)
Shell a
 
End Sub
Edit2 : Si je reste dans les commandes excel pas de problème par exemple je n'ai pas le soucis ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Cb7_Click()
MsgBox "toto"
Exit Sub