Fermeture Excel

Résolu
massimo888 -  
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.

2 réponses

  1.  gbinforme Contributeur
    Bonjour, 

     ActiveWorkbook.Close
 Application.DisplayAlerts = True
 Application.Quit

    0
    1. massimo888 Auteur
      Bonjour et merci.

      Mais le problème persiste.

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

      Cdlt.
      0
  2. massimo888 Auteur
    C'est bon j'ai trouvé! 

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