Boite de Dialogue avec conditions

[Christophe]

Bonjour le Forum,

Me revoilà avec un nouveau problème.

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.


Christophe

 

[2passage]

Bonjour,

voici le code à coller derrière un bouton nommé CommandButton1

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

enjoy
A+

 

[Christophe]

Merci bcp pour ce coup, cela fonctionne à merveilel.

Encore 1.000 mercis.

Christophe