Ouverture boite de dialogue à date échéance sur Excel

Version imprimable

21/04/2014, 19h46
patmicro

Ouverture boite de dialogue à date échéance sur Excel

Bonjour à tous : Dans un fichier Excel nommé DEVIS, j’ai créé une boite de dialogue d’information à l’ouverture du fichier concernant la modification du taux horaire. Je voudrais que dans l’objet ThisWorkbook ma boite de dialogue contienne une date modifiable, qui lorsque cette date est arrivée à échéance par le biais de la date système cette boite de dialogue s’affiche. De plus lorsque les personnes qui utilisent ce fichier si la date est arrivée à échéance, le fichier se ferme automatiquement sans enregistrement possible
Le soucis mon fichier se ferme bien mais lorsque je l’ouvre à nouveau je ne peux pas accéder au code car il faut cliquer sur le bouton de ma boite de dialogue qui referme le fichier. Je n’ai pas trouvé le principe pour intégrer la date système et interdire l’affichage de la boite de dialogue avant la date d’échéance.
De plus je dois pouvoir accéder au code vba pour modifier la date que je choisis par avance, le soucis il faut valider sur ok. Comment accéder au code sans valider sur ok
J'ai volontarement désactivé le code ''Application.Quit afin d'éviter la fermeture du fichier
Ps Je ne suis pas un expert un VBA :ptdr:

http://cjoint.com/?0DvtUljEIAz

Par avance merci pour votre aide.

Bonsoir,

J'ai une proposition mais il faut que vous puissiez changer vous-même la constante à chaque changement du taux.

A voir....

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
Const LaDate As Date = "02/01/2014"'ici à vous de surveiller
If LaDate < Date Then
  MsgBox "Les taux horaires ont changé au " & LaDate & Chr(10) & Chr(10) & "Veillez contacter votre administrateur !" & Chr(10) & Chr(10) & "Cliquez su OK ou tapez sur la touche entrée pour fermer le fichier!", 16, "ATTENTION"
  Stop'ici un stop pour que vous puissiez contrôler, enlevez-le quand vous serez sur de vous
  Application.DisplayAlerts = False
  ThisWorkbook.Close
  Application.DisplayAlerts = True
  Application.Quit
End If
End Sub

21/04/2014, 21h44
patmicro

Bonsoir merci pour votre réponse rapide. Ceci répond en partie à ma question. Le soucis est que si je met une protection pour protéger le code je ne peux plus y accéder pour le modifier. Avez vous une solution?

Citation:

...Le soucis est que si je met une protection pour protéger le code je ne peux plus y accéder pour le modifier..

Si c'est toi qui crées le code, pourquoi ne pourrais-tu pas modifier la macro par la suite, il faut simplement prévoir le coup, exemple :
tu prévois ton mot de passe, ci-dessous "1234" dans l'inputBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
Const LaDate As Date = "02/01/2014" 'ici à vous de surveiller
Const MdpA As String = "1234"
Dim MdP As String, DroitAdm As String
 
If LaDate < Date Then
  DroitAdm = InputBox("La date est dépassée" & Chr(10) & "si vous êtes l'administrateur, entrez le mot de passe")
  If DroitAdm <> MdpA Then
    MsgBox "Les taux horaires ont changé au " & LaDate & Chr(10) & Chr(10) & "Veillez contacter votre administrateur !" & Chr(10) & Chr(10) & "Cliquez su OK ou tapez sur la touche entrée pour fermer le fichier!", 16, "ATTENTION"
    Stop 'ici un stop pour que vous puissiez contrôler, enlevez-le quand vous serez sur de vous
    Application.DisplayAlerts = False
    ThisWorkbook.Close
    Application.DisplayAlerts = True
    Application.Quit
  End If
End If
End Sub

21/04/2014, 22h27
patmicro

Encore merci pour votre réponse utra rapide. c'est exactement ce que je cherchais. il était indispensable de bloquer l'accés aux macros afin d'éviter toute modification.

C'est super sympa de se faire aider j'adore les macros mais je suis nul en anglais ce qui me pénalise.

Encore merci pour votre aide @+
21/04/2014, 22h30
casefayere

Ravi pour toi, penses à cliquer sur :resolu: