Userform : bloquer l'éxécution de la macro

Bonjour (ou re).

Nouveau problème : je n'arrive pas à bloquer le lancement de ma macro si :
- Le chemin du fichier n'est pas renseigné
OU/ET
- Le canal n'est pas renseigné

Voici le topo : A l'ouverture de mon outil, un userform apparaît demandant de choisir un doc excel dans mes documents et un canal (sms, mail,...). Quand ces deux champs sont sélectionnés, j'appuie le bouton "lancer" et le travail se fait correctement. Maintenant, je chercher à bloquer la commande "lancer" lorsque soit le chemin, soit le canal, soit les deux ne sont pas renseignés et de remontrer l'userform de départ.

J'avais déjà réussi à le faire sur un précédent outil, mais là ça bloquouille et je vois pas pourquoi vu que c'est exactement le même principe. A savoir que quand je sélectionne un doc et pas le canal, la macro est bien stoppée mais pas l'inverse.

De plus, lorsqu'il y a blocage et que je demande donc à la commande "Ouverture.Show" de faire son job, ça m'indique "Feuille déjà affichée, affichage modal impossible"... Ok très bien, mais quand je masque cette commande, l'userform ne revient pas :weird:


Voici le bout de code incriminé :

ListC correspond à une ListBox
Me.Chemin correspond au chemin du document Excel sélectionné (ex : D:\User\blabla.xls)

Code:

---

1 2 3

If (IsNull(ListC.Value) = True) Or (Dir(Me.Chemin) = "") Then MsgBox "Vous devez sélectionner un fichier" 'Ouverture.Show

---

Merci par avance pour vos retours !

Bonjour,

J'essaierais comme ceci

Code:

---

1 2 3 4 5

If ListC.ListIndex < 0 Or Me.Chemin = "" Then MsgBox "Vous devez sélectionner un fichier" else Ouverture.Show end if

---

Bonjour,

Ah merci ! Ca bloque bien dans les deux cas. ;)

Par contre, j'ai toujours le problème du "Ouverture.Show" ("Feuille déjà affichée, affichage modal impossible")


Edit :

Code:

---

1 2 3 4 5 6

If ListC.ListIndex < 0 Or Me.Chemin = "" Then MsgBox "Vous devez sélectionner un fichier" Ouverture.Hide Ouverture.Show Else ...

---

En fermant l'userform et en l'ouvrant aussitôt après, le problème disparaît.. Mais c'est moyen-bof comme méthode..

Si ton Userform est déjà affiché, nul besoin de redemander de l'afficher...

Code:

---

1 2 3 4

If ListC.ListIndex < 0 Or Me.Chemin = "" Then MsgBox "Vous devez sélectionner un fichier" Exit sub end if

---

Bonjour (et un salut à tous).
Il n'est nulle par précisé ce qu'est exactement chemin :
- une variable ?
- un contrôle ? et lequel, alors ?
Car c'est à mon avis, là, que cela "coince" surtout, ce que corrobore d'ailleurs :

Citation:

---

quand je sélectionne un doc et pas le canal, la macro est bien stoppée mais pas l'inverse

---

Car si la manière utilisée pour vérifier qu'un article a été sélectionné dans ListC est maladroite et à corriger comme l'a montré Parmi, il n'en reste pas moins vrai qu'elle fonctionne quand même ainsi, elle.

Chemin est une variable, qui me permet d'obtenir le chemin complet du fichier et ainsi demander dans vba d'ouvrir ce fichier.

Hm je vois, je regarderai ça dans la soirée ou demain. :) Merci en tout cas !