Discussion :

[iceman7592]

Bonjour,

je n'arrive pas à trouver la manière de tester la valeur par défaut d'un signet de forme text dans une macro.

Dans mon document, je veux que certains signets soient obligatoirement renseignés par un usager. Donc je souhaite que si le signet n'est pas rempli, il y ait un retour msgbox et que le signet soit sélectionné.

J'ai testé cela mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    If ActiveDocument.Bookmarks("Nom").Empty = False Then
      MsgBox "Vous devez renseigner le grade du personnel.", vbOKOnly
      ThisDocument.Bookmarks("Nom").Select

j'ai aussi testé cela mais même résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    If ThisDocument.Bookmarks("Nom").Range.Text = "" Then
      MsgBox "Vous devez renseigner le nom du personnel.", vbOKOnly
      ActiveDocument.Bookmarks("Nom").Select

En fait, je crois que le problème vient de mon test de la première ligne car la valeur par défaut d'un signet ne semble pas être vide mais je n'arrive pas à la définir.
Merci d'avance pour le coup de main

[Heureux-oli]

Salut,

Pour récupérer le contenu d'un signet, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Bookmarks("Monsignet").Range.text

Dans ton code, tu fais un test, essaie de faire d'autres tests avant, comme la longueur de la chaîne, et afficher son contenu par un MsgBox.

Maintenant, si tu pouvais nous mettre un morceau de ton document, ce serait probablement plus clair.

[iceman7592]

je met en ligne une partie de mon futur formulaire.

Donc dans la première ligne du premier tableau, il y a quatre signets nommés "Grade", "nom", "prenom", "ID". Cette ligne doit obligatoirement être remplie intégralement. Le problème étant que le nombre de caractères n'est pas un bon critère car il n'est pas fixe.

Pour la gue-guerre du thisdocument contre activedocument, les deux donnent le même résultat mais avec thisdocument, on a la certitude que c'est bien le document où la macro est intégrée qui est impacté.

[Heureux-oli]

Salut,

Ce ne sont pas des signets mais des champs de formulaires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.FormFields("MonChamp").Result

Même si ces champs possèdent des signets, il est de loin préférable d'utiliser les FormFields.
Le signet est intéressant pour un renvoi ou une autre opération avec des champs.

[iceman7592]

Je te remercie, ça fonctionnerait.

L'écriture de cette ligne comme ceci fonctionne aussi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisDocument.FormFields("Grade").Result = ""

merci
@+

[Heureux-oli]

Salut,


Le tout est de voir.
ThisDocument fonctionne, mais fait référence à la classe document et pas au document.
ActiveDocument fait référence au document courant.
Docments(1) ou Documents("MonDoc.Doc") à un document précis.

Perso, j'évite l'utilisation de ThisDocument