Discussion :

[scully2501]

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 :

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
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

[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"

[SilkyRoad]

bonjour

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 :

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

1
2
      ThisWorkbook.Close (False)
      Application.Quit

Tu peux faire un essai en remplaçant par

Code :

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

1
2
      ThisWorkbook.Saved
      Application.Quit

bonne journée
michel

[Invité]

Bonjour Scully2501,

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

Code :

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

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.

[scully2501]

Bonjour Scully2501,

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

Code :

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

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

[scully2501]

Tu peux faire un essai en remplaçant par

Code :

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

1
2
      ThisWorkbook.Saved
      Application.Quit

bonne journée
michel

Ok ça marche

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

Mon premier problème est résolu. J'attends une reponse pour mon deuxième problème merci.