Fermer classeur Excel

isa44 · 15 Avril 2010

Bonsoir , j'ai trouvé ce code pour fermer un fichier Excel :

Code:

Sub sortir()
    ActiveWorkbook.Save
    With ActiveWindow
    .DisplayHorizontalScrollBar = True
    .DisplayVerticalScrollBar = True
    .DisplayWorkbookTabs = True
    End With
    AfficherBO
    ActiveWorkbook.Close SaveChanges:=False   
    
End Sub

Mais il reste quand même le premier encadrement Excel. Comment tout fermer ?

JCGL · 15 Avril 2010

Re : Fermer classeur Excel

Bonjour à tous,

Peux-tu essayer avec :

Code:

Application.Quit

A+ à tous

Édition : Salut Job le prudent 🙂 (If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close)

job75 · 15 Avril 2010

Re : Fermer classeur Excel

Bonjour isa44,

Code:

Sub sortir()
    With ActiveWindow
    .DisplayHorizontalScrollBar = True
    .DisplayVerticalScrollBar = True
    .DisplayWorkbookTabs = True
    End With
    AfficherBO
    ActiveWorkbook.Save
    [COLOR="Red"]If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close[/COLOR]
End Sub

Edit : salut JC 🙂

A+

isa44 · 15 Avril 2010

Re : Fermer classeur Excel

Merci à vous deux pour vos solutions.

Fermer classeur Excel

isa44

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

isa44

XLDnaute Occasionnel

Discussions similaires

Fermer classeur Excel

isa44

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

isa44

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency