Bonjour,
Dans mon usf, lorsque je clique sur un bouton, je veux ouvrir un repertoire, et il s'ouvre bien.
Et ensuite tout se bloque et ma macro se trouve en arrêt sur le bouton de la feuille qui affiche l'usf.
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
Ca fait 1 heure que je bloque, toute aide est la bienvenue.
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 Private Sub CommandButton1_Click() Uexp.Show 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
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub Cb7_Click() MsgBox "toto" Exit Sub
Partager