Discussion :

[pomdeterfrite]

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 ?

[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éé.

[pomdeterfrite]

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 :

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

[babaothe]

ce code n'est pas le responsable.
(je t'ai parlé d'autres instructions, que je ne vois pas)

[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

[pomdeterfrite]

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 :

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

1
2
3
4
5
Private Sub Workbook_Open()
Application.Visible = False
Load UserForm
UserForm.Show
End Sub

[babaothe]

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

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 ?

[pomdeterfrite]

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

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

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

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.

[babaothe]

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

Code :

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

Application.Visible = False

[pomdeterfrite]

C'est parti ....

PS : j'ai remplacé ActiveWorkbook par ThisWorkBook mais ca ne fait rien

[Pierre Fauconnier]

Qu'est-ce qui est parti?

Qu'as-tu fait de la ligne "Application.visible = false"?

[pomdeterfrite]

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

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

[Pierre Fauconnier]

Tu peux rendre un classeur invisible

Code :

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

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.

[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é"

[Pierre Fauconnier]

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