Discussion :

[Pix_elle]

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


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 :

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

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 !

[parmi]

Bonjour,

J'essaierais comme ceci

Code :

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

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

[Pix_elle]

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 :

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

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

[parmi]

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

Code :

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

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

[unparia]

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 :

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.

[Pix_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 !