Récupérer la valeur d'un champ date pour un calcul en VBA

[dede tabby]

WD2003
RECUPERER LA VALEUR D'UN CHAMP DATE D'UN FORMULAIRE POUR DES CALCULS EN MACRO VBA

D'AVANCE merci de votre aide précieuse

J'ai besoin de récuperer la date dans un champ texte ou date d'un formulaire word (type date avec un format dd/MM/yy) et de lancer une macro VBA à la sortie et de mettre le résultat du calcul dans un autre champ texte.

Mon problème est que le remplissage du champ texte date me dit à la sortie du champ "UTILISER une date valide", ce que je fais... Je ne comprends pas où est l'erreur. Voici le code vba qui marche SI J'ARRIVE A RECUPERER LE CODE DU CHAMP DateNaissance

Code :

1
2
3
4
5
6
7
8
9
     Sub ImmediatCalculAge()
 ' Calcul l'age du patient
  ' modifiée le 04/09/2011
 ' met à jour instantannément le champ age
Dim DateNais, DateJour, AgeCal  As String
DateNais = ActiveDocument.FormFields("DateNaissance").Result 'Champ du formulaire
deb = Date - CDate(DateNais)
.....
 ActiveDocument.FormFields("AgeEnfant").Result = TA + TM + TJ

COMMENT RECUPERER LA VALEUR D'UN CHAMP DATE OU TEXTE D'UN FORMULAIRE DANS UNE MACRO VBA POUR EFFECTUER UN CALCUL ?

ActiveDocument.FormFields("DateNaissance").Result NE MARCHE PAS

Merci d'avance de m'éclairer

[dede tabby]

J'ai du secouer mes petites celules grises...
Je crois avoir trouvé

Il faut mettre :

Code :

1
2
ActiveDocument.FormFields("DateNaissance").Range.Text

[carden752]

Bonjour,

Il est possible d'utiliser .range.text comme tu l'as fait.
Pour l'erreur avec .result, c'est peut-être que VB fait une conversion automatiquement en date. Donc la fonction CDATE ne peut plus s'appliquer.

[dede tabby]

Merci des réponses

WD2003 Formulaire/VBA

Comment tester si le champ (par exemple le mien "DateNaissance") n'a pas été rempli pour éviter un message d'erreur ?

CHX = ActiveDocument.FormFields("DateNaissance").Range.Text si pas rempli donne un message d'erreur CHX = " " MESSAGE ERREUR....

IF Isnull, IF IsEmpty IF CHX=" " ne marche pas...

Bref, je ne sais le faire.

Cordialement

[carden752]

Bonjour,

Plusieurs possibilités :
Peut-être compter le nombre de caractère avec la fonction Len.

Envoyé par dede tabby

IF CHX=" "

Comparaison de CHX avec le caractère espace, voici la bonne syntaxe :

Code :

IF CHX=""

comparaison avec rien donc chaine vide.

[dede tabby]

La comparaison IF CHX="" ne marche pas mais IsDate marche.

Je voudrais que le curseur revienne sur le champ DateNaissance (ou que ce champ soit de nouveau selectionné pour rentrer une nouvelle date)... Voici où j'en suis dans le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
 MaDate = ActiveDocument.FormFields("DateNaissance").Range.Text 
' teste la validité de la date
   MyCheck = IsDate(MaDate)
   If MyCheck = True Then  ' Renvoie True si date valide
       GoTo Continuer
     Else
    MsgBox "Ce n'est pas une date correcte, OPERATION ANNULEE"
   ActiveDocument.FormFields("DateNaissance").Result = "     "
 ActiveDocument.FormFields("DateNaissance").Select 
 GoTo FINIR 
  End If

J'ai essayé .select mais cela ne marche pas

Merci de votre aide

Je précise mais tout le monde aura compris que ma connaissance en informatique n'est pas bonne.

Cordialement

[dede tabby]

WD2003

PLEASE MERCI DE M'AIDER

COMMENT FAIRE POUR PASSER D'UN CHAMP D'UN FORMULAIRE WORD A UN AUTRE CHAMP AVEC LE LANGAGE VBA ?

JE NE SAIS PAS LE FAIRE

J'AI VU .PREVOUIS OU . NEXT DE FIELDS SANS Y ARRIVER...

MERCI DE VOTRE AIDE