Blocage sur procèdure

Le
Michel Mto
Bonjour à toutes et à tous,

Dans une procèdure, j'ouvre un fichier excel avec ceci :

Workbooks.Open Filename:= _
"C:chemindufichieromdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.

Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code qui
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique sur
la croix de fermeture de mon userform, j'entre mon mot de passe (nécessaire
à la fermeture de ce userform).

et là mon code se poursuit sans problème, avec ce qui suit :

NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc

Est -il possible de faire poursuivre le code sans intervention de ma part ??

Merci par avance de votre aide

Michel MTO
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22419891
Bonjour,

Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire avant
que le reste du code puisse s'exécuter. Tu remarqueras aussi que lorsqu'une fenêtre
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler une autre
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de continuer.

Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....

Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre NON MODALE
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version Excel 2000)
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes de la procédure
s'exécute normalement et immédiatement sans attendre la fermeture du formulaire. De plus
lorsque le formulaire est visible, on a toujours accès à la feuille de calcul et au menu.


--
MichD
--------------------------------------------


"Michel Mto" i2u4on$aed$
Bonjour à toutes et à tous,

Dans une procèdure, j'ouvre un fichier excel avec ceci :

Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.

Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code qui
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique sur
la croix de fermeture de mon userform, j'entre mon mot de passe (nécessaire
à la fermeture de ce userform).

et là mon code se poursuit sans problème, avec ce qui suit :

NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...

Est -il possible de faire poursuivre le code sans intervention de ma part ??

Merci par avance de votre aide

Michel MTO
Michel Mto
Le #22420261
Bonjour MichDenis et merci pour ta réponse,

si j'utilise une fenêtre NON MODALE avec la commande suivante :
Userform1.Show 0
Que se passera-t-il lorsque l'uilisateur ouvrira en direct (et non pas en
utilisant Workbooks.Open Filename: ="C:chemindufichiernomdufichier.xls"
dans une procèdure quelconque) ?
Est ce qu'il pourra fermé l'userform, ou est ce qu'il pourra effectuer une
action quelconque ?
Ce qui ne m'arrangerait pas.

Je voudrais donner tous les droits à la macro appelante (dans la limite de
son code !!), mais pas à l'utilisateur qui ouvre le fichier en direct.

Michel MTO


"michdenis" i2u8b5$fpf$
Bonjour,

Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire


avant
que le reste du code puisse s'exécuter. Tu remarqueras aussi que


lorsqu'une fenêtre
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler


une autre
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de


continuer.

Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....

Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre


NON MODALE
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version


Excel 2000)
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes


de la procédure
s'exécute normalement et immédiatement sans attendre la fermeture du


formulaire. De plus
lorsque le formulaire est visible, on a toujours accès à la feuille de


calcul et au menu.


--
MichD
--------------------------------------------


"Michel Mto"

de discussion :
i2u4on$aed$
Bonjour à toutes et à tous,

Dans une procèdure, j'ouvre un fichier excel avec ceci :

Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.

Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code


qui
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique


sur
la croix de fermeture de mon userform, j'entre mon mot de passe


(nécessaire
à la fermeture de ce userform).

et là mon code se poursuit sans problème, avec ce qui suit :

NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...

Est -il possible de faire poursuivre le code sans intervention de ma part


??

Merci par avance de votre aide

Michel MTO

michdenis
Le #22420401
Je ne comprends pas trop le sens de ta question
mais il semble que ton problème de base est résolu.

--
MichD
--------------------------------------------


"Michel Mto" i2ue47$oko$
Bonjour MichDenis et merci pour ta réponse,

si j'utilise une fenêtre NON MODALE avec la commande suivante :
Userform1.Show 0
Que se passera-t-il lorsque l'uilisateur ouvrira en direct (et non pas en
utilisant Workbooks.Open Filename: ="C:chemindufichiernomdufichier.xls"
dans une procèdure quelconque) ?
Est ce qu'il pourra fermé l'userform, ou est ce qu'il pourra effectuer une
action quelconque ?
Ce qui ne m'arrangerait pas.

Je voudrais donner tous les droits à la macro appelante (dans la limite de
son code !!), mais pas à l'utilisateur qui ouvre le fichier en direct.

Michel MTO


"michdenis" i2u8b5$fpf$
Bonjour,

Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire


avant
que le reste du code puisse s'exécuter. Tu remarqueras aussi que


lorsqu'une fenêtre
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler


une autre
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de


continuer.

Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....

Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre


NON MODALE
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version


Excel 2000)
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes


de la procédure
s'exécute normalement et immédiatement sans attendre la fermeture du


formulaire. De plus
lorsque le formulaire est visible, on a toujours accès à la feuille de


calcul et au menu.


--
MichD
--------------------------------------------


"Michel Mto"

de discussion :
i2u4on$aed$
Bonjour à toutes et à tous,

Dans une procèdure, j'ouvre un fichier excel avec ceci :

Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.

Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code


qui
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique


sur
la croix de fermeture de mon userform, j'entre mon mot de passe


(nécessaire
à la fermeture de ce userform).

et là mon code se poursuit sans problème, avec ce qui suit :

NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...

Est -il possible de faire poursuivre le code sans intervention de ma part


??

Merci par avance de votre aide

Michel MTO

Publicité
Poster une réponse
Anonyme