VBA - Fermer Excel.exe après une erreur

[laurentsimon]

Bonjour à tous,

J'ai un logiciel qui exécute un fichier excel contenant une macro en auto_open.

Je souhaite que le fichier et l'application se ferment sans sauvegarder lorsque'il y a une erreur (fichiers absents).

J'ai tout essayé, rien ne marche.

Avez-vous une solution?

Merci.

ABC:


MsgBox "Fichiers source absents.", vbCritical
Application.StatusBar = False

I = 1
For I = 1 To 52
Sheets("Feuil" & I & "").Visible = False
Next I

Sheets("RESULTATS").Activate

'ActiveWorkbook.Close False
'AppExcel.ActiveWorkbook.Close
'AppExcel.Quit
ThisWorkbook.Saved = False
Application.Quit

 

[mromain]

Re : VBA - Fermer Excel.exe après une erreur

bonjour laurentsimon,

je te met un petit exemple de gestion d'erreur :

Private Sub Workbook_Open()
'si une erreur est rencontrée, aller à la ligne "gestionErreur"
On Error GoTo gestionErreur


'
'
'le code principal de ta macro
'
'


: gestionErreur
'si plus d'un classeur est ouvert
If Application.Workbooks.Count > 1 Then
    'fermer juste ce classeur sans enregistrer
    ThisWorkbook.Close False
'sinon
Else
    'femer l'application (Excel)
    Application.Quit
End If
Else
End Sub

a+

 

[laurentsimon]

Re : VBA - Fermer Excel.exe après une erreur

Merci pour cette réponse rapide.

Par contre il m'affiche la boîte de dialogue pour savoir si je veux enregistrer.

Ne peut-on pas la "zapper" au travers de ton code?

Merci.

 

[mromain]

Re : VBA - Fermer Excel.exe après une erreur

re,

essaye avec cette ligne :

Private Sub Workbook_Open()
'si une erreur est rencontrée, aller à la ligne "gestionErreur"
On Error GoTo gestionErreur


'
'
'le code principal de ta macro
'
'


: gestionErreur
'si plus d'un classeur est ouvert
If Application.Workbooks.Count > 1 Then
    'fermer juste ce classeur sans enregistrer
    ThisWorkbook.Close False
'sinon
Else
    'femer l'application (Excel)
    [COLOR=Red][B]Application.EnableEvents = False[/B][/COLOR]
    Application.Quit
End If
Else
End Sub

a+

 

[laurentsimon]

Re : VBA - Fermer Excel.exe après une erreur

Toujours pareil...

 

[Hellowa]

Re : VBA - Fermer Excel.exe après une erreur

Bonjour le fil, le forum.
Petite suggestion:

Application.DisplayAlerts = False

🙂
A +!

 

[mromain]

Re : VBA - Fermer Excel.exe après une erreur

re,

autant pour moi, faut écrire ce que t'as dit Hellowa 😉

a+

 

[MJ13]

Re : VBA - Fermer Excel.exe après une erreur

Bonjour à tous.

A tester avant application.quit

Workbooks.add
Application.Quit