Discussion :

[Systémicien]

Bonjour à tous,

Tous est dans le titre, mon excel 2007 plante à la fermeture du fichier comportant mes macros mais dans un ordre bien précis.

Si j'ai 2 fichiers excel ouverts et que je ferme celui avec mes macros en développement, plantage d'excel

Si j'ai 2 fichiers excel ouverts et que je ferme l'autre fichier (n'importe quel autre) en premier et que celui avec mes macros en développement reste ouvert pas de plantage

Si j'ouvre uniquement mon fichier avec mes macros en développement et que je le ferme aucun plantage non plus.

Un idée, car pas la moindre idée d'où ça vient.

j'ai testé le fichier sur plusieurs poste idem à chaque fois

j'ai testé plusieurs des versions que j'ai de mon appli et idem , donc je ne sais pas à quand remonte le problème.

Merci d'avance


EDIT: Cela le fais sur les 3 dernières versions (entendez mise à jour) sur les autres pas de plantage comme décris plus haut.

[Systémicien]

Bon j'avance un peu dans le diagnostic de ce soucis, et c'est le code de fermeture qui déconne, mais toute les solutions essayé donne le même resultat.

l'originale :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
ThisWorkbook.Saved = False
ThisWorkbook.Close

autre code:

Code :

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

ActiveWorkbook.Close False

ou encore:

Code :

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

1
2
3
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True

[Systémicien]

Code :

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

Application.ThisWorkbook.Saved = True

Résolu avec ce code, donc maintenant j'ai:

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
Private Sub Workbook_Open()
 
 
    'ActiveWindow.DisplayWorkbookTabs = True
    'ActiveWindow.DisplayHorizontalScrollBar = True
    'ActiveWindow.DisplayVerticalScrollBar = True
 
    Sheets("intro").Visible = True
    Sheets("intro").Select
    Application.StatusBar = "XL"
    Application.Caption = "XLapp"
    ActiveWorkbook.Windows(1).Caption = "monappli"
    ActiveWorkbook.Windows("monappli").ActiveSheet.Calculate
 
 
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Application.Caption = ""
Application.ThisWorkbook.Saved = True
 
 
End Sub