Bonjour,
Je cherche à forcer l'utilisateur de mon formulaire à remplir un champ avec une date qui ne peut être antérieure à celle du jour.
j'utilise un code et le déclenchement de ce code à l'entrée et à la sortie du champ.
Je reçois un message d'erreur 3 fois sur 4.
Le code:
à l'entrée de mon champ.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Sub VerificationDate() Dim DATECREATION As Date DATEDECREATION = InputBox("Inscrivez la date" & vbCrLf & vbCrLf & "DATE") ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION If ActiveDocument.FormFields("DatedeCreation").Result < Date Or ActiveDocument.FormFields("DatedeCreation").Result > Date Or ActiveDocument.FormFields("DatedeCreation").Result = "" Then MsgBox "La date entrée ne doit pas être différente de celle du jour de saisie" Selection.GoTo wdGoToBookmark, Name:="Prénom" Else Selection.GoTo wdGoToBookmark, Name:="MOIS" End If Exit Sub End Sub
A la sortie:
Le message d'erreur:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Sub Verifdatesaisie() If ActiveDocument.FormFields("DatedeCreation").Result < Date Or ActiveDocument.FormFields("DatedeCreation").Result > Date Then MsgBox "La date entrée ne doit pas être différente de celle du jour de saisie" Dim DATECREATION As Date DATEDECREATION = InputBox("Inscrivez la date" & vbCrLf & vbCrLf & "DATE") ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION Selection.GoTo wdGoToBookmark, Name:="INSEE" Else Selection.GoTo wdGoToBookmark, Name:="MOIS" End If End Sub
LA ligne surlignée:
Dans le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveDocument.FormFields("DatedeCreation").Result = DATEDECREATION
Ce code fonctionnait très bien jusqu'à ce que j'ajoute de champs avec des codes barre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part VerificationDate
Si quelqu'un y voit plus clair que mois, MERCI BEAUCOUP!!!
Partager