Probléme shell avec userform

Bonjour,

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

Code:

---

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:

---

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:

---

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:

---

1 2 3

Private Sub Cb7_Click() MsgBox "toto" Exit Sub

---

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?

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.

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+

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.

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..

Citation:

---

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:

---

Retval = Shell(mychemin, vbNormalFocus)

---

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

Citation:

---

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+

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

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:

---

1 2 3

Private Sub CommandButton1_Click() UserForm1.Show End Sub

---

Code:

---

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

Oui, surement un problème avec ton excel, j'ai tester exactement ton code et ça fonctionne impec.
A+

Ok, merci beaucoup, comme ça je sais :ccool: