[VBA EXCEL] Fermer l'application Excel

Version imprimable

Bonjour,

Voici mon code:
mon probleme est que j'arrive à fermer tous les classeurs actifs mais excel ne veut pas se fermer.
Ou est mon erreur?

Code:

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
34
35
36
37
 
Sub save_copy(s_directory As String, s_centrefinancier As String, s_time As String)
Dim x As String
Dim y As String
'Suppression des feuilles non nécessaires
     Dim s As Object
 
 
    Application.DisplayAlerts = False
 
    Workbooks("yyyyy.xls").Close
 
    ThisWorkbook.Activate
 
    For Each s In ThisWorkbook.Sheets
    x = s.Name
    y = InStr(s.Name, "xxxx")
        If InStr(s.Name, "xxxx") = 0 And s.Name <> "BExRepositorySheet" Then
 
                s.Delete
 
        End If
    Next s
 
    Set s = Nothing
 
 
'Sauvegarde du classeur
    ThisWorkbook.SaveAs Filename:= _
        s_directory & "xxxx_" & s_centrefinancier & "_" & s_time & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
 
      ThisWorkbook.Close (False)
      Application.Quit
 
End Sub

22/10/2007, 11h30
scully2501

J'ai aussi un autre problème:
quand je lance le debuggage pas à pas détaillé j'ai une erreur qui s'affiche mais quand je lance l'exécution sans debuggage l'erreur ne s'affiche pas.

C'est après avoir supprimé une feuille voir dans le code du haut.

le message d'erreur est le suivant:
"impossible d'entree en mode arrêt maintenant"
22/10/2007, 12h03
SilkyRoad
bonjour

Citation:

mon probleme est que j'arrive à fermer tous les classeurs actifs mais excel ne veut pas se fermer.

Tu essayes de quitter l'application alors que le classeur contenant la macro est déjà fermé, et se trouve donc inopérant...
Code:

1 2 ThisWorkbook.Close (False) Application.Quit
Tu peux faire un essai en remplaçant par
Code:

1 2 ThisWorkbook.Saved Application.Quit
bonne journée
michel
22/10/2007, 12h11
Invité
Bonjour Scully2501,

Pour la 1ère question vous pouvez tout simplement remplacer :
Code:

1 2 3 4 5 6 ThisWorkbook.Close (False) Application.Quit par uniquement : Application.Quit
En ce qui concerne le message d'erreur après suppression d'une ou plusieurs feuilles, j'ai testé votre code et ce message ne s'est pas affiché.

Il y aurait bien une erreur (mais le message ne serait pas le même) si aucune feuille ne répondait au critère, car il n'est pas possible de supprimer toutes les feuilles.
22/10/2007, 12h15
scully2501
Citation:
Envoyé par SilkyRoad

Tu peux faire un essai en remplaçant par

Code:

1 2 ThisWorkbook.Saved Application.Quit

bonne journée
michel
Ok ça marche

Merci de ta réponse Michel cela parait évident !!!!! :roll: mais on n'y voit pas toujours claire quand on a plein de code en tête.8O

Mon premier problème est résolu. J'attends une reponse pour mon deuxième problème merci.
22/10/2007, 12h17
scully2501
Citation:
Envoyé par jacques_jean

Bonjour Scully2501,

Pour la 1ère question vous pouvez tout simplement remplacer :

Code:

1 2 3 4 5 6 ThisWorkbook.Close (False) Application.Quit par uniquement : Application.Quit

En ce qui concerne le message d'erreur après suppression d'une ou plusieurs feuilles, j'ai testé votre code et ce message ne s'est pas affiché.

Il y aurait bien une erreur (mais le message ne serait pas le même) si aucune feuille ne répondait au critère, car il n'est pas possible de supprimer toutes les feuilles.
Ok merci à toi j'ai en fin de compte mise juste Application.Quit

Je pense que pour la 2eme question qu'il n'y a pas grand chose à faire.

Merci à la prochaine