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