Je souhaite pouvoir mettre en place une macro déclenchée par un bouton qui, s'il est 17h00 ou plus au clic, sauvegarde automatiquement le fichier ou s'il est moins de 17H00 au clic, ouvre une boîte de dialogue pour proposer à l'utilisateur de sauvegarder ou non le fichier.
Merci par avance de votre aide toujours très précieuse.
voici le code à coller derrière un bouton nommé CommandButton1
Code:
Private Sub CommandButton1_Click()
If Time() >= #5:00:00 PM# Then
Application.ActiveWorkbook.Save
Else
If MsgBox('Désirez vous sauvez ce classeur ?', vbOKCancel) <> vbCancel Then
Application.ActiveWorkbook.Save
End If
End If
End Sub