Probléme shell avec userform

**aalex_38** · 05/08/2009, 17h37

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

**conconbrr** · 05/08/2009, 23h47

Question bête : Pourquoi tu n'utilises pas les FileDialog pour ouvrir un explorateur permettant de choisir un/des fichier(s)/dossier(s)?

J'avoue, je contourne un peu le problème et peut-être que ce que je te dis ne convient pas?

**aalex_38** · 06/08/2009, 11h40

Merci, j'utilise deja toutes sortes de moyens de selection de fichier, dans un textbox, j'ai un nom de repertoire de destination, je voudrai simplement que l'utilisateur puisse l'ouvrir en cliquant dessus ou sur un bouton.

**LeForestier** · 06/08/2009, 11h59

Bonjour,
Je ne sais pas ce qu'il y a dans ton TB2.Text mais pour activer un répertoir définit faut mettre le chemin complet, C:\Rep\SousRep
A+

**aalex_38** · 06/08/2009, 15h05

Bonjour,

J'ai bien le nom du repertoire complet, et il s'ouvre bien lorsque je clique sur mon bouton, le problème que je ne comprend pas bien, c'est que ma macro se bloque sur UEXP.show contenu dans le code de bouton de ma feuille.

Cela ne se produit qu'avec shell, si je met par exemple MSGBOX "test", aucun soucis, la boite s'affiche, je fait ok et je retourne sur mon userform.

**LeForestier** · 07/08/2009, 06h52

J'ai testé le code comme tu le met pour l'explorer et il n'y a aucun problème.
j'ai même essayé avec un chemin non valide, ça ne plante pas, juste que l'explorer n'est pas initialiser sur un répertoir.

mais tu dis..

le problème que je ne comprend pas bien, c'est que ma macro se bloque sur UEXP.show contenu dans le code de bouton de ma feuille

.
Quand le bébogueur revient sur l'appel de l'UF c'est qu'il y à une erreur dans l'UF.
Après la commande

Code :

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

Retval = Shell(mychemin, vbNormalFocus)

met un Stop ou un arret et ensuite du pas à pas pour arriver sur l'erreur.

**aalex_38** · 07/08/2009, 10h19

Quand le bébogueur revient sur l'appel de l'UF c'est qu'il y à une erreur dans l'UF.

Je me disais la même chose, mais il n'y a rien d'autre, quoiqu'il en soit je refais des tests et reviens donner des précisions.
A+

**LeForestier** · 07/08/2009, 10h29

Est-ce que la référence OleAutomation est activée ?
Suis pas certain que c'est ça, mais comme ça fonctionne chez moi !!

**aalex_38** · 07/08/2009, 11h16

Oui la référence est bien activée, peut être il y a t il un bug dans mon excel (certaines macro du boulot, font des choses bizarres par exemple quand j'en lance une ensuite VBA m'ouvre une fenetre et je dois cliquer sur continuer)
je ne peux pas rebouter mon PC pour l'instant, ce que je ferai ce midi.

J'ai fait un usf simple et j'ai le même problème :

un bouton sur une feuille qui lance un USF.
Sur l'USF deux boutons, un pour ouvrir, l'autre pour fermer :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
mychemin = "explorer.exe " & ThisWorkbook.Path
Retval = Shell(mychemin, vbNormalFocus)
End Sub
 
Private Sub CommandButton2_Click()
MsgBox "test"
Unload UserForm1
End Sub

=> Quand je clique sur le bouton 1, la fenetre de l'explorateur s'ouvre, je reviens sur l'usf et la une ligne en jaune sur userform1.show