[WD-2003] Ouvrir un UserForm en fonction d'une liste déroulante dans un premier UserForm

[FCL31]

Bonjour à tous et bonne année avant tout

Mon problème :
J'ai un UserForm avec une liste déroulante.
En fonction du choix de la liste déroulante je voudrais ouvrir un autre UserForm

Voici ce que j'ai :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = ActiveDocument
 
With wrdDoc
    .Bookmarks("Type_Contrat").Range.Text = Me.ComboBox1.Value
End With
 
'----------------------------------------------------------------------------
'-------------------Ici je voudrais un truc du style-------------------
    ComboBox1.Hide
'Je me doute que ça ne marche pas car il cherche le UserForm qui s'appelle "ComboBox1"
'-----------------------------------------------------------------------------
 
 
 
End Sub

Comment il faut faire ?
SVP
Merci

[Heureux-oli]

Salut,

Pour ouvrir ou plus précisément afficher, c'est pas Show ??
Hide c'est cacher, donc pile poil le contraire de ce que tu souhaites faire.

Si tu veux éviter certaines erreurs de programmation, il est plus sage d'utiliser le Early Binding et pas le Late Binding

Ton code :

Code :

1
2
3
4
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = ActiveDocument

Devient :

Code :

1
2
3
4
Dim wrdApp As Word.Application 
Dim wrdDoc As Word.Document
Set wrdApp = New WordApplication
Set wrdDoc = ActiveDocument

Mais si tu ne crées pas un document, ou ouvre un document Word est vide et ton wrdDoc ne contient rien.

Pour ouvrir un autre UserForm :

Code :

1
2
3
Private Sub CommandButton1_Click()
UserForm2.Show
End sub

[FCL31]

Envoyé par Heureux-oli

Pour ouvrir ou plus précisément afficher, c'est pas Show ??
Hide c'est cacher, donc pile poil le contraire de ce que tu souhaites faire.

Autant pour moi je le sais en plus.

Envoyé par Heureux-oli

Si tu veux éviter certaines erreurs de programmation, il est plus sage d'utiliser le Early Binding et pas le Late Binding

Je doit avouer que je connais pas la différence (je sais même pas se que c'est exactement)

Envoyé par Heureux-oli

Mais si tu ne crées pas un document, ou ouvre un document Word est vide et ton wrdDoc ne contient rien.

Je sais pas trop ce que tu as voulu dire mais en fait j'ouvre un document sur lequel il y a déjà du texte et que je complète ensuite avec des UserForm avec des signets

Envoyé par Heureux-oli

Pour ouvrir un autre UserForm :

Code :

Ca je sais faire (il suffit que je n'inverse pas Hide et Show lol)

ce que je veux c'est que j'ouvre un fichier doc et à l'ouverture, j'ai un UserForm avec une liste déroulante.
L'utilisateur choisit une proposition dans la liste déroulante et en fonction du chois, j'ai un autre UserForm qui s'ouvre.


En fait j'ai deux idées qui sont :
un truc de ce style :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = ActiveDocument
 
With wrdDoc
    .Bookmarks("Type_Contrat").Range.Text = Me.ComboBox1.Value
End With
 
'----------------------------------------------------------------------------
'-------------------Ici je voudrais un truc du style-------------------
ComboBox1.Value.Show
'Je me doute que ça marche pas car il cherche le UserForm qui s'appelle "ComboBox1"
'-----------------------------------------------------------------------------
 
End Sub

mais je suis pas vraiment certain que se soit possible

Mon autre idée et de faire un truc du style :

Code :

1
2
3
4
5
6
7
8
9
If Me.ComboBox.Value = "Truc" Then
Truc.Show
Else
If Me.ComboBox.Value = "Machin" Then
Machin.Show
ElseIf Me.ComboBox.Value = "Bidule" Then
Bidule.Show
Else
....

mais un peu long

Je voudrais savoir ce qui est possible ou pas et quelle est la meilleure solution ??
Comment ferais-tu ??

[Heureux-oli]

Salut,

Essaie ce document ?

[FCL31]

Merci beaucoup Heureux-oli

Pour le moment j'ai pas trop le temps de m'en occuper mais je te tiens au courant quand je pourrai.



Merci.