Discussion :

[DARKALANE]

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 :

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

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,

[Invité]

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+

[DARKALANE]

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

[PMO2017]

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 :

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

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 :

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

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

[Didier Gonard]

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 :

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

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 :

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

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

cordialement,

Didier

[DARKALANE]

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

[LeForestier]

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 :

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

UserForm.Show 0 'ou VbModeLess

A+

[Didier Gonard]

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

[LeForestier]

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

Les valeurs pour modal sont :

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

[Didier Gonard]

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 =

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