Ouverture Excel depuis autre Excel : Excel a cessé de fonctionner

Version imprimable

27/11/2017, 13h49
leloup84

Ouverture Excel depuis autre Excel : Excel a cessé de fonctionner

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 ?
27/11/2017, 14h06
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
27/11/2017, 14h08
leloup84

Où puis-je mettre le code, je ne souhaite pas qu'il soit à la vu de tous ?
27/11/2017, 14h32
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

Ceci suffit-il ?

Code:

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

27/11/2017, 14h57
Invité

Bonjour

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

Ici :

Code:

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

Dans la routine Ouvrir_planning il y a en partie cela :
Code:

1 2 3 4 5 Sub Ouvrir_Planning() If UserForm.Site.Value = "PARIS" Then Workbooks.Open Filename:="Y:\test\Planning PARIS.xlsm", Password:="Auteur" Set WB_Planning = Workbooks("Planning PARIS.xlsm")
Pour le 2ème point, mon classeur se nomme "Accueil planning.xlsm" tu proposes donc d'inscrire directement plutôt ?

Code:

Set WB_Planning = Accueil planning.xlsm

04/12/2017, 11h32
leloup84

Merci je viens de mettre la fonction "DoEvents" en place je vais attendre quelques jours pour voir si cela fonctionne.