Discussion :

[electrons]

Bonjour,

Dans le code suivant, j'essaye de fermer et quitter complètement excel, mon fichier ce ferme bien mais je reste dans l'environnement excel.

Auriez-vous le code pour réaliser cette opération?
Auriez-vous aussi une solution pour que le "CrLf" dans le message fonctionne. Il va très bien dans un simple "MsgBox" mais pas en ajoutant le 'VbYesNo".

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
18
19
20
21
22
23
24
25
26
Sub QuitterCL()
'
' Quitter ou pas  de la ClMedecin
'
 
'
Dim Rep As Integer
Dim Question As String
Dim titre As String
 
Question = "Le fichier est simplement enregistré car la CheckList n'est pas complète... " _
        & CrLf & "!!! Le fichier CheckList pour la coordination n'est pas créé!!!" _
        & CrLf & "     Voulez-vous quitter et fermer le fichier ? "
 
titre = "Quitter CLMedecin ?"
 
Rep = MsgBox(Question, vbYesNo + vbQuestion + vbDefaultButton1, titre)
 
If Rep = vbYes Then
 
    ActiveWorkbook.Close
    Application.Quit
 
End If
 
End Sub

Merci d'avance pour votre réponse.

[Invité]

bonjour,

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 QuitterCL()
' Quitter ou pas  de la ClMedecin
Dim Rep As Integer
Dim Question As String
Dim titre As String
Question = "Le fichier est simplement enregistré car la CheckList n'est pas complète... " _
        & vbCrLf & "!!! Le fichier CheckList pour la coordination n'est pas créé!!!" _
        & vbCrLf & "     Voulez-vous quitter et fermer le fichier ? "
 titre = "Quitter CLMedecin ?"
 If MsgBox(Question, vbYesNo + vbQuestion + vbDefaultButton1, titre) = vbYes Then
 '    ActiveWorkbook.Close
Application.DisplayAlerts = False
    Application.Quit
End If
End Sub

[electrons]

Merci pour l'efficacité....