fermeture d'excel

Option Explicit 'oblige à déclarer toutes les variables

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim a As Byte 'déclare la variable a
Dim C As Workbook 'déclare la variable C
Dim N As String 'déclare la variable N

Set C = ThisWorkbook 'définit la variable C
N = C.Name 'de'finit la variable N
'définit la variable a
a = MsgBox('Voulez vous faire une copie sur disquette ?', vbYesNoCancel, 'Attention !')

'condition : si 'Oui'
If a = vbYes Then
C.Save 'sauve le fichier
C.SaveAs ('A:\\\\\\\\' & N) 'copie de sauvegarde dans A:
Application.Quit 'ferme l'application
ElseIf a = vbNo Then 'si 'Non'
C.Save 'sauve le fichier
Application.Quit 'ferme l'application
ElseIf a = vbCancel Then 'si 'Annuler'
Cancel = True 'empêche la fermeture du fichier
End If
End Sub

Cliquez pour agrandir...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
      With ThisWorkbook
            Select Case MsgBox('Voulez vous faire une copie sur disquette ?', vbYesNoCancel)
            Case vbYes
                  .SaveCopyAs 'A:\' & .Name
                  .Save
            Case vbNo
                  .Save
            Case Else
                  Cancel = True
            End Select
      End With
End Sub

Cliquez pour agrandir...