Bonjour le forum
Bonjour les intervenants
Ceci pour répondre à ta question mais à finir de developper pour effacer les données et sauvegarder sans demande aucune...
Tout est invisible depuis la feuille d'Excel et fonctionne à l'ouverture du classeur.
Private Sub Workbook_Open()
Dim mydate
Dim password As String
mydate = Date
If mydate < #7/31/04# Then 'Inférieure ou égale au 31/07
Load UserForm1 'Ton USF
UserForm1.Show
End
ElseIf mydate >= #7/31/04# Then 'Date dépassée ==> demande de password sans MSGBOX
password = InputBox(" La date d'échéance est atteinte" & Chr$(13) & _
"Des modifications ont peut être été apportées." & Chr$(13) & _
"Veuillez recopier le fichier depuis mon bureau" & Chr$(13) & _
" pour remplacer le présent", "Date d'expiration", "*")
End If
If password = "123" Then
End
ElseIf password <> "123" Then
MsgBox "Veuillez reprendre le fichier depuis le disque dur de mon bureau", vbOKOnly, "Mise à Jour"
Close
Ici ton code pour effacer tout ton document avec une selectin.ClearContents
puis une sauvegarde sans DEMANDE du fichier.
End If
End Sub
Il y a encore mieux avec TextBox & caractères "**" mais je n'ai pas le temps de développer.
Je vais déjeûner - Bon appétit à toutes & à tous
@ ++ Eric C