Pb référence / userform non-modal

Bonjour à toutes et à tous.
Ca fait maintenant plus d'un an que je travail sur une énorme base de données en ajoutant tout un tas de fonctionnalité.
Aussi j'arrive sur un point qui me fait beugué, et qui est très certainement facile...
Je n'arrive pas à activer une référence quelconque lors de la séquence workbook_open et ouvrir un userform "non-modal" derrière sans qu'il ne s'éteigne..
Voici mon code fait sur un excel quelconque et qui ne marche pas aussi :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() Dim nomref As String nomref = "C:\Program Files\PDFCreator\PDFCreator.exe" 'ou une référence quelconque On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile nomref UserForm1.Show 'userform non modal End Sub

---

Si quelqu'un a une idée, je suis preneur.
Je vous remercie,

Bonjour Darkalane,

Il faut certainement regarder au niveau de ton USF :? je pense que le problème est là.

L'activation de la référence fonctionne correctement.

A+

Effectivement, l'ajout de référence se fait bien, mais le userform se lance (j'ai pu vérifier à l'aide d'un msgbox) mais s'éteint juste derriere..apres je ne vois pas quel paramètre je pourrais modifier afin que celui-ci reste en arrière plan.
en tout cas, merci de t'être intéréssé à mon cas :D

Bonjour,

Une piste avec la démarche suivante

1) Créez un nouveau classeur et, dans le VBE, créez un UserForm1
2) Dans un module de code standard, copiez le code suivant (adaptez à votre usage la constante cernée par des ###)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'### Constante à adapter (chemin de la référence souhaitée) ### Const MA_REFERENCE As String = "C:\Program Files\PDFCreator\PDFCreator.exe" '##############################################################   Sub AddRef_UFShow(Optional dummy As Byte) Dim REF As Object 'VBIDE.Reference Dim bool As Boolean For Each REF In ThisWorkbook.VBProject.References If REF.FullPath = MA_REFERENCE Then bool = True Exit For End If Next REF If Not bool Then ThisWorkbook.VBProject.References.AddFromFile MA_REFERENCE Else UserForm1.Show vbModeless End If End Sub

---

3) Dans la fenêtre de code de ThisWorkbook, copiez le code suivant

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() Call AddRef_UFShow Application.OnTime Now + TimeValue("00:00:01"), "AddRef_UFShow" End Sub

---

L'idée est de lancer 2 fois la procédure AddRef_UFShow, il semble nécessaire de terminer la procédure évènementielle
Workbook_Open pour que la référence ait le temps de s'installer.

Cordialement.

PMO
Patrick Morange

Bonjour,

j'avais eu le même souci, (dans un contexte non d'appel de ref, mais d'instance cachée) résolu en effet avec un délai, mais avec un seul appel en plaçant l'appel de l'USF dans le timer car c'est lui qui posait pb en non modal... ça semble identique ici :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open() Dim nomref As String nomref = "C:\Program Files\PDFCreator\PDFCreator.exe" 'ou une référence quelconque On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile nomref Application.OnTime Now + TimeValue("00:00:01"), "Depart" 'Créée un délai qui permat au lanceur de se refermer, sinon le mode modal bloque etc... 'Le OnTime appelle la procédure Depart.. End Sub

---

Code:

---

1 2 3

Sub Depart() UserForm1.Show 'userform non modal End Sub

---

cordialement,

Didier

C'est impeccable, ca ronronne comme pas possible lol.merci à vous tous, l'apllication est enfin terminé :ccool: Donc cette petite astuce de timer à garder sous le coude pour les prochaines fois. SUJET RESOLU :mrgreen:

Bonjour tous,
Résolu mais bizarre quand même..
UserForm1.Show sans paramètre ouvre l'UF en MODAL par défaut.
Pour l'ouvrir en NonModal faut mettre le paramètre..

Code:

---

UserForm.Show 0 'ou VbModeLess

---

A+

Bonjour,

non, pas de mystère ;), vu que l'USF est non modal par construction, son ouverture obéit à ce critère si on ne change rien dans l'init..


cordialement,

Didier

Bonjour Didier,
Beh alors c'est que j'ai des Excel Spéciaux, quand je lance un UF avec simplement UserForm.Show, il est impossible d'avoir accès aux feuilles de calcul (ou autre chose d'ailleur).
La seule solution pour exécuter un code 'Ailleur" c'est d'avoir, dans l'UF, une fonction qui boucle sur un DoEvents.
A+
Edit,
Dans l'aide..

Citation:

---

Les valeurs pour modal sont :

Constante ........................Valeur Description
vbModal 1 ........................UserForm est modal. Valeur par défaut.
vbModeless 0 ................... UserForm n'est pas modal.

---

Bonsoir Le Forestier,

On parle de la même chose, mais (cf l'image jointe au post précédent), sachant que je voulais un USF non modal, lors de sa construction, dans la fenêtre propriétés le concernant, j'ai mis son ShowModal à False :


aide vba =

Citation:

---

ShowModal, propriété


Définit un objet UserForm indiquant que son affichage est modal ou pas. En lecture seule au moment de l'exécution.

Remarques

La propriété ShowModal peut prendre les valeurs suivantes :

Valeur Description
True (Valeur par défaut) L'objet UserForm est modal.
False L'objet UserForm est non modal.

etc...

---

Sachant que de base c'est le comportement par défaut que je désirai, je ne me casse pas la tête avec du code..

Par contre la valeur par défaut est True, donc si tu n'y touches jamais, tu as bien le comportement auquel tu fais allusion ;)

cordialement,

Didier