Discussion :

[Paloma]

Re bonjour,

Bon je suis désolé de poser tant de questions mais je suis bientôt au chômage et j'ai envie de m'améliorer alors je développe à la demande de mon employeur, et je l'accepte car j'y trouve aussi du plaisir, des outils pour CATIA en VBA, des outils sous Excel et maintenant j'essaye de développer un outil CATIA avec Visual Basic 2005 Express.

Bref ma question consiste bien VBA EXCEL :

Voilà j'ai fait ce code mais je n'arrive pas à faire quitter Excel sans qu'il me demande de sauvegarder mon fichier. Comment puis-je procéder?

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
Sub Exit_QuandClic()
Dim sélect As Integer
 
sélect = MsgBox("CAUTION ! - Close the Excel file without save your modification.", vbOKCancel _
                    , "Save your Excel file with the menu")
 
If sélect = vbOK Then
    'ferme le fichier Excel sans sauvegarder le document.
        'ActiveWorkbook.Close savechanges:=False
        savechanges = False
        Application.Quit 'savechanges:=False
    End If
    'MsgBox "Vous pouvez fermer votre fichier Excel", vbCritical, "Caution"
 
End Sub

Cordialement,
Paloma

[cwain]

tu as essayé en mettant ça à la fin ?

Code :

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

Application.DisplayAlerts = false

[Paloma]

Merci cwain c'est impéccable pour mon cas.

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
Sub Exit_QuandClic()
Dim sélect As Integer
 
sélect = MsgBox("CAUTION ! - Close the Excel file without save your modification.", vbOKCancel _
                    , "Save your Excel file with the menu")
 
If sélect = vbOK Then
    'ferme le fichier Excel sans sauvegarder le document.
        'ActiveWorkbook.Close savechanges:=False
 
        Application.Quit
        Application.DisplayAlerts = False
    End If
    'MsgBox "Vous pouvez fermer votre fichier Excel", vbCritical, "Caution"
 
End Sub

Bonne journée à tous.

[ouskel'n'or]

Je me demande... cette ligne,

Application.DisplayAlerts = False

... si tu veux qu'elle ait un rôle, est à mettre avant l'enregistrement et la fermeture d'Excel. Là, elle ne joue aucun rôle.
Si tu n'as pas de message, c'est simplement parce que tu imposes un non enregistrement de fichier par ta ligne

ActiveWorkbook.Close savechanges:=False

que tu as mise en remarque.
Modifie ton fichier et refais l'expérience. Si tu ne fais aucune modif, l'expérience ne changera rien, tu n'auras pas de message. En l'état, si tu modifies ton fichier avant de quitter, tu retrouveras le message. Écépas'ketuve