Discussion :

[malbinouse]

Bonjour,

suite à un 1er problème de "plantage" excel à la fermeture quand ouvert en lecture seule en même temps qu'un autre fichier, j'ai modifié mon code comme ci-dessous :

A_L_OUVERTURE

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
Private Sub Workbook_Open()
Application.Run "A_L_OUVERTURE"
End Sub
 
Public AppExcel As Excel.Application 'Application Excel
Public wbExcel As Excel.Workbook 'Classeur Excel
Public wsExcel As Excel.Worksheet 'Feuille Excel
 
Private Sub A_L_OUVERTURE()
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Workbooks.Add
Set wbExcel = AppExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
...
End Sub

A_LA_FERMETURE

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run "A_LA_FERMETURE"
End Sub
 
Private Sub A_LA_FERMETURE()
If ActiveWorkbook.ReadOnly = True Then
ActiveWorkbook.Application.DisplayAlerts = False
wbExcel.Application.DisplayAlerts = False
AppExcel.Application.DisplayAlerts = False
wsExcel.Application.DisplayAlerts = False
wbExcel.Close SaveChanges:=False 'Fermeture du classeur Excel
AppExcel.Quit 'Fermeture de l'application Excel
'Désallocation mémoire
Set wsExcel = Nothing
Set wbExcel = Nothing
Set AppExcel = Nothing
Else
.....
End Sub

Le "plantage" semble résolu seulement lorsque ce classeur est ouvert en lecture seule et qu'on le ferme, je souhaite que ce fichier se ferme sans enregistrer et sans demander à l'utilisateur ce qu'il souhaite.
Mais ce code m'affiche la fenêtre : voulez vous enregistrer les modifications.

Autodidacte et nouveau sur un forum, avec mes excuses si message non conforme, je suis bloqué.
Également si vous avez une autre solution pour contourner le 1er problème, je suis preneur.
Merci d'avance pour votre aide.

[casefayere]

Bonsoir,

Code :

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

1
2
3
Application.DisplayAlerts = False 'pour eviter un message Windows
'..la partie de code où tu ne veux plus de message
Application.DisplayAlerts = True 'penser à remettre à True

Bonne soirée

[malbinouse]

Bonsoir et merci pour ta réponse rapide DOM,

mais j'avais déjà essayé ce code que j'utilise régulièrement mais ici cela ne fonctionne pas et j'ai toujours la fenêtre de demande de sauvegarde.

[casefayere]

et comme ça :

Code :

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

1
2
3
4
5
6
Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = False
 
End Sub

[malbinouse]

Et bien non plus,
et c'est dans ce cas qu'Excel "Plante" : Excel a rencontré un problème et doit fermer.

Ci-joint un fichier Test, dans le module il y a les 2 cas :

Cas 1 : Fenêtre qui me demande si je veux enregistrer
Cas 2 : Fais "planter" Excel

Merci pour ton aide

[malbinouse]

Il plante si ouvert en lecture seule ainsi qu'un autre fichier sur la même session.

Pour faire ce test, j'ouvre ce fichier une première foie (dans une première session),
puis dans une autre session je le ré-ouvre à nouveau (en lecture seule donc)
et ouvre un autre fichier X dans cette 2ème session.

Ensuite je ferme celui en lecture seule et là ça plante.

Merci

[casefayere]

J'ai esayé comme ça sans problème, seul l'application ne ferme pas

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
Private Sub Fermeture()
 
If ActiveWorkbook.ReadOnly = True Then
  Application.DisplayAlerts = False
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
  MsgBox "Fermeture en lecture seule"
Else
  ActiveWorkbook.Save
  ActiveWorkbook.Close 'Fermeture du classeur Excel
  AppExcel.Quit 'Fermeture de l'application Excel
 
'Désallocation mémoire
'Set wsExcel = Nothing
'Set wbExcel = Nothing
'Set AppExcel = Nothing
'MsgBox "Fermeture normal"
 
End If
 
 
End Sub

[malbinouse]

Bonjour DOM,

et bien cela plante Excel quand il est ouvert en lecture seule
mais seulement quand un autre classeur est ouvert sur la même session.
En effet quand ouvert seul, cela fonctionne.

Merci d'avance

Je ne trouve pas de solution.