Fermeture Excel

Résolu
massimo888 Messages postés 203 Date d'inscription   Statut Membre Dernière intervention   -  
massimo888 Messages postés 203 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un petit problème avec ma macro.

Cette macro génère un fichier et ferme le fichier en question.

Mais une fois le fichier fermé, une page excel grise reste ouverte et je suis obligé de la fermer à la main.

Pourriez-vous SVP me donner un coup de main?

Mon code : 
Sub Fonction_Sup_Save()

Dim nom As String

ActiveWorkbook.Save

'Suppression onglets
 Application.DisplayAlerts = False
 
 Sheets(Array("Feuil4", "Feuil5", "Feuil6")).Select
 
 ActiveWindow.SelectedSheets.Delete
 
 Application.DisplayAlerts = True

'Sauvegarde_sous

 nom = "FUP" & "_" & Day(Date) & "_" & Month(Date) & "-" & Year(Date) & ".xlsm"
    
 ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    
 rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

 Application.DisplayAlerts = False
 
 ActiveWorkbook.Close
 
 Application.DisplayAlerts = True
End Sub


Merci.
A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour, 

 ActiveWorkbook.Close
 Application.DisplayAlerts = True
 Application.Quit

0
massimo888 Messages postés 203 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour et merci.

Mais le problème persiste.

L'Excel ne se ferme toujours pas complétement.

Cdlt.
0
Réponse 2 / 2
massimo888 Messages postés 203 Date d'inscription   Statut Membre Dernière intervention  
 
C'est bon j'ai trouvé! 

Dim Wb As Workbook
 
For Each Wb In Application.Workbooks
    Wb.Saved = True
Next Wb
 
Application.Quit
0