Disparition à l'ouverture d'un userform

Version imprimable

15/11/2010, 17h03
pomdeterfrite

Disparition à l'ouverture d'un userform

Bonjour à tous,

J'ai un fichier Excel qui ouvre une userform automatiquement.

Le problème c'est que si d'autres fichiers Excel sont déjà ouverts, ils disparaissent du bureau et de la barre du menu démarrer et il faut aller les réouvrir pour pouvoir les récupérer.

D'ou ca peut venir ?
15/11/2010, 17h08
babaothe

salut

et avec quel code (tant celui d'avant l'ouverture de ton UserForm.... voire d'après cette ouverture ..., que celui qui s'exécute à l'ouverture de ton UserForm) ?
Rien ne disparaît sans motif, en général.

Sans ce(s) code(s) : impossible de te répondre. Tout peut arriver, y compris (cas particulier, mais pas le seul) l'utilisation d'un End intempestif alors qu'un "hameçon" (sous-classement par API) a été créé.

Voici le code d'initialisation, après c'est 3 combobox et des évènements sur des boutons avec quelques boucles, rien de très recherché (600 lignes) donc je pense pas que ca soit utile de les mettre, à voir ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Userform_Initialize()
Dim j As Integer
Dim MonDico As Object
 
With Worksheets("Base")
    Set MonDico = CreateObject("Scripting.Dictionary")
    For j = 5 To 3353
        If .Range("A" & j).Value <> "" And Not MonDico.exists(.Range("A" & j).Value) Then MonDico(.Range("A" & j).Value) = .Range("A" & j).Value
    Next j
    Me.ComboCountry.List = MonDico.items
    MonDico.RemoveAll
 
    For j = 3355 To 3677
        If .Range("A" & j).Value <> "" And Not MonDico.exists(.Range("A" & j).Value) Then MonDico(.Range("A" & j).Value) = .Range("A" & j).Value
    Next j
    Me.ComboFiliale.List = MonDico.items
    Set MonDico = Nothing
End With
ETIC.Visible = False
Label95.Visible = False
End Sub

15/11/2010, 17h21
babaothe

ce code n'est pas le responsable.
(je t'ai parlé d'autres instructions, que je ne vois pas)
15/11/2010, 17h24
Pierre Fauconnier

Salut.

Je suppose que le userform est initialisé à l'ouverture du fichier.

Il serait donc pertinent de donner le code de l'évènement OPEN du fichier
15/11/2010, 17h27
pomdeterfrite
Citation:

Envoyé par Pierre Fauconnier

Salut.

Je suppose que le userform est initialisé à l'ouverture du fichier.

Il serait donc pertinent de donner le code de l'évènement OPEN du fichier

Le voici :
Code:

1 2 3 4 5 Private Sub Workbook_Open() Application.Visible = False Load UserForm UserForm.Show End Sub
15/11/2010, 17h31
babaothe

Rien de tout cela n'est non plus le responsable de :

Citation:

Le problème c'est que si d'autres fichiers Excel sont déjà ouverts, ils disparaissent du bureau et de la barre du menu démarrer et il faut aller les réouvrir pour pouvoir les récupérer.

à moins que tu ne décrives mal le phénomène observé.

Et autres questions (on ne sait jamais) : utilises-tu des Addins, des ocx ? Lesquels, le cas échéant ?
15/11/2010, 17h34
pomdeterfrite

Citation:

Envoyé par babaothe

Rien de tout cela n'est non plus le responsable de :

à moins que tu ne décrives mal le phénomène observé.

Et autres questions (on ne sait jamais) : utilises-tu des Addins, des ocx ? Lesquels, le cas échéant ?

Pour etre précis, dès que ma userform s'ouvre, tous les fichiers excel se masquent (ils ne se ferment pas). Et si je vais ouvrir mon fichier il se réaffiche en me laissant le message "le fichier est déjà ouvert voulez vous le réouvrir ?". La je clique non et le fichier se réaffiche ...

Non je n'utilise rien de celà, en tout cas je ne sais pas ce que c'est...
15/11/2010, 17h36
Pierre Fauconnier
Dans le code de l'évènement OPEN, je ne vois rien qui justifie la fermeture des classeurs ouverts...

Par contre, il faut faire attention à ceci
Code:

1 2 3 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ActiveWorkbook.Close savechanges:=True End Sub
Ce code ferme le classeur actif, qui n'est pas forcément le classeur qui contient le userform. A mon avis, tu aurais intérêt à remplacer ActiveWorkbook par ThisWorkBook qui est, par défaut, le nom du classeur qui contient la macro en train de s'exécuter...

Tu pourrais aussi avancer en pas à pas ou déboguer par bloc pour voir quand la fermeture intempestive intervient.
15/11/2010, 17h38
babaothe

C'est TRES loin de la description que tu donnais !
Alors : regarde tes Visible :) (un par un) :ccool:
A commencer par celui-ci :

Code:

Application.Visible = False
16/11/2010, 09h05
pomdeterfrite

C'est parti .... :aie:

PS : j'ai remplacé ActiveWorkbook par ThisWorkBook mais ca ne fait rien
16/11/2010, 09h43
Pierre Fauconnier

Qu'est-ce qui est parti?

Qu'as-tu fait de la ligne "Application.visible = false"?
16/11/2010, 09h49
pomdeterfrite

c'est parti facon de dire je commence à éplucher mes "visible" :mouarf:

Si j'enlève le "Application.visible = false" je n'ai plus le problème mais je ne veux pas que les utilisateurs voient la base de données, ils doivent seulement voir la userform ... En fait il faudrait un application.visible = false mais seulement pour ce classeur ...
16/11/2010, 10h26
Pierre Fauconnier

Tu peux rendre un classeur invisible

Code:

MonClasseur.Windows(1).Visible=False

Tu remplaces alors MonClasseur par l'objet qui correspond au classeur que tu veux masquer. J'ai considéré ici le cas simple où tu n'as qu'une seule fenêtre sur un classeur. Si tu as plusieurs fenêtres, tu devras boucler.

Note cependant que l'utilisateur pourra afficher le classeur via les commandes du ruban ou de la barre d'outils.
16/11/2010, 10h38
pomdeterfrite

J'ai mis à la place de "MonClasseur" : "worksheets("monfichier.xls")" et il me renvoie une erreur 1004 "la méthode worksheets de l'objet global a échoué"
16/11/2010, 10h51
Pierre Fauconnier

WORKSHEETS renvoie la collection des feuilles d'un classeur.
WORKBOOKS renvoie la collection des classeurs ouverts dans l'instance d'Excel