Discussion :

[murka62]

bonjour
quand je clic sur le bouton de commande pour fermer excel sa marche mais il me propose l'enregistrement quelle commande je doit rajouter pour que sa se fait automatiqement
voila le code pour fermer excel

Code :

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

1
2
3
4
Private Sub CommandButton15_Click()
 
    Application.Quit
End Sub

[greg06500]

Salut,

Tu peux essayer ça :

Code :

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

1
2
3
4
5
6
 
Application.Visible = 0
    Application.WindowState = xlMaximized
 
ActiveWorkbook.Save
ThisWorkbook.Close savechanges:=True

@+

GREG

[murka62]

bonjour
ok il ne me propose plus l'enregistrement mais sa n'enregistre pas mais modification l'osque je ferme

[Singular]

Essayes ça!

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
Private Sub CommandButton15_Click()
    Dim wkb As Workbook
    Dim i As Long
 
    For Each wkb In Workbooks
        With wkb
            If .Windows.Count > 1 Then
                For i = .Windows.Count To 2 Step -1
                    .Windows(i).Close
                Next i
            End If
            .Close SaveChanges:=True
        End With
    Next wkb
    Set wkb = Nothing
    Application.Quit
End Sub

[murka62]

bonjour
sa marche mais sa ferme mon apliqation mais pas excel car sur ma feuille principal il a 12 bouton qui correspond a une macros chaque macro que j'ouvre et un ficher pour faire mais compte de la il a un bouton retour qui reviend a ma feuille principal ou il a mon bouton pour fermer excel et enregitrer les modifications mais pour l'instant sa ne marche pas mais juste la commende

Code :

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

1
2
3
4
Private Sub CommandButton15_Click()
 
    Application.Quit
End Sub

merci pour vautre aide car je suis un peux perdu

[Singular]

Il faut que tu gardes ta barre de commande en mémoire avec une variable, appelée disons 'cbMaBarre', que tu mets à Nothing avamt d'appeler Application.Quit. Cette variable doit être globale au module où tu crées ta CommandBar si tu veux y avoir accès à partir de la procédure CommandButton15_Click.

D'ailleurs, il faut toujours qu'un programme mette à Nothing les variables d'objets créés par le programmeur pendant l'exécution. Ceci libère l'espace mémoire utilisé par l'objet et permet à Excel de faire tout ce qu'on lui demande sans rechigner.