Fermeture Excel Résolu

Question

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.

gbinforme · Answer

Bonjour,

ActiveWorkbook.Close
 Application.DisplayAlerts = True
 Application.Quit

massimo888 · Answer

C'est bon j'ai trouvé!

Dim Wb As Workbook For Each Wb In Application.Workbooks    Wb.Saved = TrueNext Wb Application.Quit

Fermeture Excel

2 réponses

Votre réponse