Discussion :

[ALEX80800]

Bonjour,

J'ai un fichier .xlsm qui schinte Excel dès que l'on commence à l'ouvrir.

J'ai effectué une réparation à l'ouverture mais le problème persiste.

Auriez vous une idée sur le pourquoi de l'anomalie?

Merci de votre aide

[Jean-Philippe André]

Salut

pour simplifier la comprehension de tous, tu peux nous en dire plus sur ce que tu entends pas shunter Excel stp ?

Ca le fait planter ?

Cela signifierait que tu as du code dans ton evenement Open du classeur.
Si tu veux remedier a cela, il te faut ouvrir un autre classeur et executer un code dans ce style

Code :

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

1
2
3
4
5
6
7
Sub JP()
With Application
    .EnableEvents = False
    .Workbooks.Open "tonclasseurquiposeprobleme.xlsm"
    .Calculation = xlCalculationManual
End With
End Sub

[ALEX80800]

Bonjour Jean Philippe,

Merci pour ce retour

Ca le fait planter ?

Oui

Cela signifierait que tu as du code dans ton evenement Open du classeur.

ci joint les différents codes

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
Call DeleteMenuContextuel
 
ThisWorkbook.RefreshAll
 
End Sub
Private Sub Workbook_Activate()
Call MenuContextuel
End Sub

avec les sous codes

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
32
33
Const MENU_CONTEXT_CAPTION As String = "Integration Données..."
Dim ssm As Variant
Dim Integration As Variant 'portée Module
 
Sub MenuContextuel(Optional dummy As Byte)
Dim BAR As CommandBar
Dim c As CommandBarControl
Dim CB As CommandBarComboBox
Dim i&
Dim j&
'---
Integration = Array("Calame Contrat", "Variable matériel", "Grand Livre")
Call DeleteMenuContextuel
Set BAR = Application.CommandBars("Ply")
Set c = BAR.Controls.Add(Type:=msoControlPopup, Before:=1, Temporary:=True)
With c
  .Caption = MENU_CONTEXT_CAPTION
  .Tag = "My_Cell_Control_Tag"
  For i& = LBound(Integration) To UBound(Integration)
    With .Controls.Add(Type:=msoControlButton)
      .Caption = Integration(i&)
      .OnAction = "'NomFeuille " & i& & "'"
        End With
 
  Next i&
End With
BAR.Controls(2).BeginGroup = True
End Sub
 
Sub DeleteMenuContextuel(Optional dummy As Byte)
On Error Resume Next
Application.CommandBars("Ply").Controls(MENU_CONTEXT_CAPTION).Delete
End Sub

Si tu veux remedier a cela, il te faut ouvrir un autre classeur et executer un code dans ce style

Cela sous entend qu'il faut que j'éxecute ce code à chaque ouverture du fichier?

[Jean-Philippe André]

Ok,

en faisant tourner sous Excel 2010, ce que je constate :
- que les captions ne sont pas appliques => <<No Label >>

Ne peux tu pas passer par le xml de ton ruban ?? Les commandbars c'est perime au possible
http://silkyroad.developpez.com/excel/ruban/

[ALEX80800]

Jean Philippe,

Merci pour l'info.
Je retravaillerais ce fichier suite à ta suggestion en xml

Je mets résolu mais ça résout toujours pas les raisons de l'anomalie

Merci

[Invité]

Bonsoir,
La méthode open ne peut en aucun cas faire le traitement que tu souhaites!

Par définition le classeur n'est pas activé puisque il est en train de s'ouvrir!

Copy colle ta macro dans un module standard et renomme dans ce module standard la méthode open par MyOpen et c'est elle que tu apportas de open!