Discussion :

[zoumzoum59]

Bonjour à tous

J'ai un code qui ferme un fichier excel et doit normalement fermer excel egalement.
Seulement j'ai beau tourner le code dans tout les sens ça ne fonctionne pas correctement.

1er code:

Code :

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

1
2
3
4
5
6
 
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End sub

Celui ci ferme bien le classeur mais ne quitte pas excel.

2eme code:

Code :

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

1
2
3
4
5
 
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
End sub

celui la ferme le classeur et excel mais m'ouvre un message me demandant de sauvegarder ou pas le fichier malgres le code

Code :

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

Application.DisplayAlerts = False

.

Car je veux fermer le fichier sans sauvegarder et quitter excel sans aucun message.

Si quelqu'un a une solution?

Merci

[ouskel'n'or]

Code :

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

1
2
3
4
ActiveWorkbook.Close false
DoEvents
Application.Quit
End sub

Essaie ça

[SilkyRoad]

bonsoir

tu as d'autres classeurs ouverts et non sauvegardés qui pourraient provoqués le message?

si la procédure est dans l'ActiveWorkbook, c'est normal que l'application ne se ferme pas: tu as préalablement fermé le classseur donc il n'y a plus de macro pour fermer l'application ...


à tester:

Code :

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

1
2
3
4
5
6
7
Dim Wb As Workbook
 
For Each Wb In Application.Workbooks
    Wb.Saved = True
Next Wb
 
Application.Quit

Et pour te former facilement, les cours et tutoriels pour Excel : https://excel.developpez.com/cours/

bonne soiree
michel

[zoumzoum59]

Merci ouskel'n'or, merci SilkyRoad

Ton code ouskel'n'or donne la même chose que le mien apparemment à moins que je l'ai mal utilisé si c'est le cas excuse moi.

Par contre SilkyRoad le tien fonctionne, d'apres ce que j'ai testé, au poil.

Merci à vous deux

[sadiki_youssef]

Bonjour à tous
merci d'utiliser le code suivant c fonctionnel:

Code :

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

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