Problème d'userform

"Emile" se lamentait de.. :

Bonjour à tous,
Je suis en lutte avec un Userform que je souhaite afficher quelques secondes
à la création de chaque nouveau document issu d'un modèle (dot). Donc j'ai
commençé par créé une userform(+frame1+label1)-merci en passant à
l'excellentissime site: http://faq.ms.word.free.fr/index.htm- puis, j'essaie
d'actionner tout ça de la manière suivante:
------------------------------------------
Depuis ThisDocument:
Private Sub Document_New()
Application.ScreenUpdating = False
Call MonMessage
Call XXXX
Application.ScreenUpdating = True
End Sub
------------------------------------------
Depuis Modules-> NewMacros:
Sub MonMessage()
MonUserForm.Show
End Sub
------------------------------------------
Depuis l'userForm:
Private Sub UserForm_Activate()
TimeDebut = Timer
While Timer < TimeDebut + 3
Wend
Unload MonUserForm
End Sub
------------------------------------------

Or bien que l'UserForm se lance effectivement à chaque ouverture de nouveau
document, (comme prévu) il apparait avec un fond blanc 8-o et le texte qui
devrait y apparaitre n'y est pas! :/
Comme si le "Frame et le "Label" n'avaient pas été chargés... :'(
Quelqu'un aurait la solution à mon problème ??
Merci d'avance de votre aide, cordialement.

Sans succès jusqu'à présent, je me permets de relancer ma question,
peut-être que l'inspiration sera meilleure aujourd'hui :-)

--
Emile

Bonjour !

"Emile" nous a écrit ...

"Emile" se lamentait de.. :

Or bien que l'UserForm se lance effectivement à chaque ouverture de
nouveau document, (comme prévu) il apparait avec un fond blanc 8-o
et le texte qui devrait y apparaitre n'y est pas! :/
Comme si le "Frame et le "Label" n'avaient pas été chargés... :'(
Quelqu'un aurait la solution à mon problème ??

Pas d'explication évidente au vu des éléments que vous donnez :-(
Placez des points d'arrêt, voyez si votre UserForm seule s'affiche
bien, vérifiez bien ses propriétés et celles de ses contrôles....

Anacoluthe
« La forme n'est souvent qu'une mise en scène qui déforme. »
- Paul LEAUTAUD

"Anacoluthe" a utilisé son clavier pour écrire :

Bonjour !

"Emile" nous a écrit ...

Or bien que l'UserForm se lance effectivement à chaque ouverture de
nouveau document, (comme prévu) il apparait avec un fond blanc 8-o
et le texte qui devrait y apparaitre n'y est pas! :/
Comme si le "Frame et le "Label" n'avaient pas été chargés... :'(

Pas d'explication évidente au vu des éléments que vous donnez :-(
Placez des points d'arrêt, voyez si votre UserForm seule s'affiche
bien, vérifiez bien ses propriétés et celles de ses contrôles....

Anacoluthe

Bonjour à tous, et merci Anacoluthe pour ton aide!
Je dois préciser que lorsque j'exécute la procédure "pas à pas"
celle-ci fonctionne correctement et mon userform s'affiche
"intégralement".
Pour ce qui est des propriétés, j'vois pas trop laquelle pourrait créer
problème.... J'ai les para. suivants (si quelqu'un aurait une petite
proc. qui me permettrait de lister/imprimer toutes les propriétés d'un
userForm?) ;-) :
USERFORM:
Enabled = True
ShowModal = True
Cycle = 0-fmCycleAllForms

FRAME1 (le détourage):
Visible = True
Enabled = True

LABEL1 (Mon texte d'intro):
Visible = True
Enabled = True

------------------------------------------------------------
A l'ouverture de mon fichier, mon userForm s'affiche au milieu de
l'écran, mais lui même reste avec son fond "blanc", J'ai l'impression
que l'écran se fige pendant l'éxécution de la macro et cela malgré la
désactivation de la commande : 'Application.ScreenUpdating = False/True
Est-il possible que ce soit le fait que cette proc. se trouve sur mon
document "dot" et que lorqu'il génère le nouveau document "doc" ell ne
soit pas correctement prise en compte?
Si quelqu'un à une document de ce type (avec un message d'accueil) et
s'il pouvait me le passer en copie sur ma messagerie, cela pourrait
m'aider à détecter mon problème ;o)
Merci d'avance pour votre aide,
Cordialement.

--
Emile

Bonjour,

Bonjour à tous, et merci Anacoluthe pour ton aide!
Je dois préciser que lorsque j'exécute la procédure "pas à pas"
celle-ci fonctionne correctement et mon userform s'affiche
"intégralement".
Pour ce qui est des propriétés, j'vois pas trop laquelle pourrait créer
problème.... J'ai les para. suivants (si quelqu'un aurait une petite
proc. qui me permettrait de lister/imprimer toutes les propriétés d'un
userForm?) ;-) :
USERFORM:
Enabled = True
ShowModal = True
Cycle = 0-fmCycleAllForms

FRAME1 (le détourage):
Visible = True
Enabled = True

LABEL1 (Mon texte d'intro):
Visible = True
Enabled = True

Lister toutes les propriétés de tous les contrôles, c'est un peu lourd à mettre en oeuvre,
mais une partie (à mettre dans un module standard), c'est possible :

Private Sub ListeProprietes()
MAJListe UserForm1
End Sub

Private Sub MAJListe(UF As UserForm)
Dim c As Control
' Gestion d'erreur car certaines propriétés peuvent ne pas exister
' pour certains contrôles.
On Error Resume Next
For Each c In UF.Controls
Debug.Print c.Name & ", " & TypeName(c) & "."
Debug.Print Chr(9) & Chr(9) & "Enabled : " & c.Enabled
Debug.Print Chr(9) & Chr(9) & "Top : " & c.Top
Debug.Print Chr(9) & Chr(9) & "Left : " & c.Left
Next c
End Sub

Tu complètes, avec les propriétés qui t'intéressent (testé avec Word 98).

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

"Michel Gaboly" a émis l'idée suivante :

Bonjour,

Bonjour à tous, et merci Anacoluthe pour ton aide!
Je dois préciser que lorsque j'exécute la procédure "pas à pas"
celle-ci fonctionne correctement et mon userform s'affiche
"intégralement".
Pour ce qui est des propriétés, j'vois pas trop laquelle pourrait créer
problème.... J'ai les para. suivants (si quelqu'un aurait une petite
proc. qui me permettrait de lister/imprimer toutes les propriétés d'un
userForm?) ;-) :
USERFORM:
Enabled = True
ShowModal = True
Cycle = 0-fmCycleAllForms

FRAME1 (le détourage):
Visible = True
Enabled = True

LABEL1 (Mon texte d'intro):
Visible = True
Enabled = True

Lister toutes les propriétés de tous les contrôles, c'est un peu lourd à
mettre en oeuvre, mais une partie (à mettre dans un module standard), c'est
possible :

Private Sub ListeProprietes()
MAJListe UserForm1
End Sub

Private Sub MAJListe(UF As UserForm)
Dim c As Control
' Gestion d'erreur car certaines propriétés peuvent ne pas exister
' pour certains contrôles.
On Error Resume Next
For Each c In UF.Controls
Debug.Print c.Name & ", " & TypeName(c) & "."
Debug.Print Chr(9) & Chr(9) & "Enabled : " & c.Enabled
Debug.Print Chr(9) & Chr(9) & "Top : " & c.Top
Debug.Print Chr(9) & Chr(9) & "Left : " & c.Left
Next c
End Sub

Tu complètes, avec les propriétés qui t'intéressent (testé avec Word 98).

Merci Michel pour ton aide. Je ne manquerai pas de l'appliquer.
Cordialement.

--
Emile

Bonsoir,

De rien ;-))

"Michel Gaboly" a émis l'idée suivante :

Bonjour,

Bonjour à tous, et merci Anacoluthe pour ton aide!
Je dois préciser que lorsque j'exécute la procédure "pas à pas"
celle-ci fonctionne correctement et mon userform s'affiche
"intégralement".
Pour ce qui est des propriétés, j'vois pas trop laquelle pourrait créer
problème.... J'ai les para. suivants (si quelqu'un aurait une petite
proc. qui me permettrait de lister/imprimer toutes les propriétés d'un
userForm?) ;-) :
USERFORM:
Enabled = True
ShowModal = True
Cycle = 0-fmCycleAllForms

FRAME1 (le détourage):
Visible = True
Enabled = True

LABEL1 (Mon texte d'intro):
Visible = True
Enabled = True

Lister toutes les propriétés de tous les contrôles, c'est un peu lourd à
mettre en oeuvre, mais une partie (à mettre dans un module standard), c'est
possible :

Private Sub ListeProprietes()
MAJListe UserForm1
End Sub

Private Sub MAJListe(UF As UserForm)
Dim c As Control
' Gestion d'erreur car certaines propriétés peuvent ne pas exister
' pour certains contrôles.
On Error Resume Next
For Each c In UF.Controls
Debug.Print c.Name & ", " & TypeName(c) & "."
Debug.Print Chr(9) & Chr(9) & "Enabled : " & c.Enabled
Debug.Print Chr(9) & Chr(9) & "Top : " & c.Top
Debug.Print Chr(9) & Chr(9) & "Left : " & c.Left
Next c
End Sub

Tu complètes, avec les propriétés qui t'intéressent (testé avec Word 98).

Merci Michel pour ton aide. Je ne manquerai pas de l'appliquer.
Cordialement.

--
Emile

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Bonsoir,

Tu m'as envoyé en Bal un complément d'infos. J'y ai répondi, mais
mon FAI m'a signalé une anomalie : user unknown.

S'il faut utiliser une autre adresse, indique-la moi.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com