Discussion :

[leloup84]

Bonjour,
J'ai un 1er fichier Excel sur lequel j'active les macros et une fenêtre avec liste déroulante s'ouvre (pour choisir son fichier) et code utilisateur et mot de passe (pour n'ouvrir que certains onglets et être en lecture ou écriture). Cela ouvre alors le bon fichier et ferme celui qui sert de connexion.
Cela fonctionne en règle générale.
Mais de manière aléatoire, parfois les utilisateurs rencontrent le cas ci-dessous :
Ils ouvrent bien le 1er fichier, rentrent le code et mot de passe et au moment de cliquer sur valider, le 2ème fichier tente de s'ouvrir mais s'affiche alors le fameux "Excel a cessé de fonctionner..."
Et à ce moment s'il réessaye dans la foulée rien de mieux, il faut attendre plusieurs heures ou un redémarrage de la machine..., bref çà n'indique pas une solution, car attendre ou redémarrer ne fonctionne pas parfois

De quoi cela peut-il venir ?

[Invité]

Bonjour

Si tu bloques pendant plusieurs heures, cela signifie que tu as une instance d'Excel qui reste ouvert.

En fait il faudrait ton code pour savoir ce qui se passe lors de la fermeture d'Excel après avoir ouvert l'autre, c'est peut-être juste une histoire de temporisation, à bien intercaler lors d'une succession d’événements.

Par exemple tu veux fermer l'instance alors que l'autre n'est pas encore ouverte.

Le mieux serait d'ouvrir un classeur et d'enfermer un autre , et ne pas toucher à l'instance d'Excel.

En fait tout dépend de ton code.

Philippe

[leloup84]

Où puis-je mettre le code, je ne souhaite pas qu'il soit à la vu de tous ?

[Invité]

Re

Juste un bout de code suffit, pas tout l'ensemble.

Ce qu'il faut c'est comment tu ouvres ton deuxième Excel (avec les déclarations de variables etc...)

Il suffit de le coller dans l'éditeur en utilisant le # pour baliser celui-ci, on ne veut pas le classeur en entier.

Philippe

[leloup84]

Ceci suffit-il ?

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
22
23
24
25
26
27
28
29
30
31
Private Sub CommandButton1_Click()
Dim WB_Accueil As Workbook
Dim WB_Planning As Workbook
 
Dim Planning As Worksheet
Dim BDD As Worksheet
Dim Jour_Travail As Worksheet
Dim Actualiser As Worksheet
Dim SynthèseORDO As Worksheet
Application.ScreenUpdating = False
 
If TextBoxUtilisateur.Value = "user" And TextBoxMotPasse.Value = "test" Then 'mot de passe pour l'ordo 1
    Call Ouvrir_Planning
    UserForm.Hide
    Set WB_Planning = ActiveWorkbook
    Set Actualiser = WB_Planning.Worksheets("actualiser le planning")
    Set SynthèseORDO = WB_Planning.Worksheets("Synthèse")
    Set Jour_Travail = WB_Planning.Worksheets("liste jour travaillé")
    Set BDD = WB_Planning.Worksheets("BDD")
    BDD.Visible = xlSheetVeryHidden
    Jour_Travail.Visible = xlSheetVeryHidden
    SynthèseORDO.Unprotect
    SynthèseORDO.Visible = 1
    Actualiser.Unprotect
    Actualiser.Visible = 1
    Workbooks("Accueil planning.xlsm").Close False
 
 
End If '1
Application.ScreenUpdating = True
End Sub

[Invité]

Bonjour

Qu'y a-t-il dans la routine Ouvrir_Planning ?

Ici :

Code :

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

Set WB_Planning = ActiveWorkbook

Mets plutôt le nom du classeur que le nom du ActiveWorkbook, car tu ne sais pas si c'est l'ancien qui est encore actif ou le nouveau.

Philippe