Discussion :

[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 :

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

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

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

Devient :

Code :

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

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 :

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

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

[FCL31]

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.

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)

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

Pour ouvrir un autre UserForm :

Code :

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

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

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 :

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

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

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.