Discussion :

[Chipss]

Bonjour,

J'ai un petit soucis avec l'initialisation de l'un de mes UserForm.

En effet, lors de l'instruction

Code :

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

Load NOMDEMONFORM

aucune erreur n'est detecté et il se contente de passer à la ligne suivante sans passer par la sub 'Private Sub UserForm_Initialize()'.

C'est la 1ere fois que cela m'arrive et je ne comprend pas pourquoi :/
Si quelqu'un a deja eu la même situation et est capable d'y remedier ca m'aiderait beaucoup.


Chipss

[JeanSairien]

Bonjour,

Tu peux essayer avec : NOMDEMONUSERFORM.Show

Cordialement,

[jmh51]

Et si tu fais

Code :

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

nomdemonform.show

ça donne quoi ?

[Chipss]

Hmm bah generalment je fait les 2 en même temps.

Ca me fait bien le Userform.show mais sans l'avoir initialisé ce qui fait que mes labels et combobox sont vides...

Ce qui est assez embetant en soi lol :p



Chipss

[fring]

Hmm bah generalment je fait les 2 en même temps.

Il est généralement inutile de préloader un Userform via la commande Load

Ca me fait bien le Userform.show mais sans l'avoir initialisé ce qui fait que mes labels et combobox sont vides...

Userform.Show initialise ton Userform. Si tes combos et labels sont vides c'est qu'il y a un petit souci dans le code.

Fais ce petit test, je pense que le problème vient de là.
Crée un fichier avec un Userform et une Textbox. Dans un module standard tu insères ces deux bouts de code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test1()
UserForm1.Show
UserForm1.TextBox1 = "TOTO"
End Sub
 
Sub test2()
UserForm1.TextBox1 = "TOTO"
UserForm1.Show
End Sub

En exécutant la macro "test1" il n'y aura rien dans ta Textbox par contre en exécutant "test2" la Textbox contiendra bien TOTO

[Chipss]

Bah voici ma fonction d'initialisation du UserForm:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub UserForm_Initialize()
 
URL = "https://shared-workspaces.corp.intraxa/GroupSolutions/Support/Propale/Lists/DP%202010/DispForm.aspx?ID=" & id_dp2 & "&Source=https%3A%2F%2Fshared%2Dworkspaces%2Ecorp%2Eintraxa%2FGroupSolutions%2FSupport%2FPropale%2Fdefault%2Easpx"
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate URL
 
Do
        DoEvents
Loop Until IE.ReadyState = 4
 
IE.Document.all("ctl00_m_g_b223ad8c_9c40_4388_8bc9_a606a01f77df_ctl00_ctl01_ctl00_toolBarTbl_RptControls_diidIOEditItem_LinkText").Click
Do
        DoEvents
Loop Until IE.ReadyState = 4
 
On Error Resume Next
reference = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl00_ctl00_ctl00_ctl04_ctl00_ctl00_TextField").Value
structure = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl06_ctl00_ctl00_ctl04_ctl00_DropDownChoice").Value
titre = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl02_ctl00_ctl00_ctl04_ctl00_ctl00_TextField").Value
ol = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl03_ctl00_ctl00_ctl04_ctl00_DropDownChoice").Value
dp_code = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl01_ctl00_ctl00_ctl04_ctl00_ctl00_TextField").Value
contribution = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl14_ctl00_ctl00_ctl04_ctl00_DropDownChoice").Value
date_client = IE.Document.all("ctl00_m_g_0829a5b8_e184_424e_8331_5ce407beadb2_ctl00_ctl04_ctl08_ctl00_ctl00_ctl04_ctl00_ctl00_DateTimeField_DateTimeFieldDate").Value
 
If reference = "" Then reference = "Non renseigné"
If structure = "" Then structure = "Non renseigné"
If titre = "" Then titre = "Non renseigné"
If ol = "" Then ol = "Non renseigné"
If dp_code = "" Then dp_code = "Non renseigné"
If contribution = "" Then contribution = "Non renseigné"
If date_client = "" Then date_client = "Non renseigné"
 
Label2.Caption = Label2.Caption & reference
Label7.Caption = Label7.Caption & structure
Label6.Caption = Label6.Caption & titre
Label5.Caption = Label5.Caption & ol
Label4.Caption = Label4.Caption & dp_code
Label8.Caption = Label8.Caption & contribution
Label9.Caption = Label9.Caption & date_client
 
End Sub

Le truc vmt etrange c'est que en pas à pas ca marche de temps en temps.
De plus quand j'execute UserForm.show, ca ne passe pas dans la fonction ci-dessus...

Je ne comprend pas je n'ai jamais eu de probleme avec les UserForm et pourtant je dois en avoir pres de 50 pour le programme que je suis en train de concevoir...:/

Sinon pour ton exemple je suis d'accord mais tu ne met pas le code directement dans le UserForm, ce que je pourais eventuellement faire, mais ce que je ne trouve pas très pratique :s


Chipss

[Chipss]

Bon je suis trop bete en faite c'est le On error resume next qui pose probleme en gros il ne recuperé pas les valeur bref je me comprend c'est l'essentiel...

J'ai reglé le problème merci d'avoir essayer de m'aider et dsl de vous avoir fait perdre votre temps :/


Chipss