Condition si existence du signet

Domino40 · 12/11/2008, 20h32

Bonsoir,

Je voudrais savoir s'il est possible de poser une condition avec pour condition l'existence ou pas d'un signet.

Du style:

Code :

 
If dans mon document actif "monsignet" existe then
 
instruction1
 
Else  
Instruction2
 
End If

cordialement
Domino

JackOuYA · 12/11/2008, 20h50

Bonsoir

avec la gestion d'erreur :

Code :

 
Function ExisteSignet(signet As String) As Boolean
 On Error Resume Next
 ExisteSignet = TypeName(ActiveDocument.Bookmarks(signet)) = "Bookmark"
End Function

Code :

 
If ExisteSignet("monsignet")then
 
instruction1

Heureux-oli · 12/11/2008, 22h13

Salut,

Si tu gères les erreurs, l'absence d'un signet lève l'erreur 5941.

Code :

On Error GoTo MonErreur
 
ActiveDocument.Bookmarks("MonSignet").Select
 
MonErreur:
If Err.Number = 5941 Then
    L'action à faire
End If

Sepia · 14/11/2008, 02h31

Salut,

Plutôt que la gestion des erreurs, toujours lourde en VB et comme il existe une fonction pour tester l'existence d'un signet, il est préférable de l'utiliser et sa syntaxe est :

Code :

 
    If ActiveDocument.Bookmarks.Exists("MonSignet") Then

@+

12/11/2008, 20h32	#1 (permalink)
Domino40 Candidat au titre de Membre du Club Date d'inscription: août 2008 Messages: 26	Condition si existence du signet Bonsoir, Je voudrais savoir s'il est possible de poser une condition avec pour condition l'existence ou pas d'un signet. Du style: Code : If dans mon document actif "monsignet" existe then instruction1 Else Instruction2 End If cordialement Domino

12/11/2008, 20h50	#2 (permalink)
JackOuYA Membre Expert Date d'inscription: juin 2008 Messages: 1 038	Bonsoir avec la gestion d'erreur : Code : Function ExisteSignet(signet As String) As Boolean On Error Resume Next ExisteSignet = TypeName(ActiveDocument.Bookmarks(signet)) = "Bookmark" End Function Code : If ExisteSignet("monsignet")then instruction1 __________________ JacqueS. Ps: je ne télécharge les piéces jointes qu'en dernier recours .(et encore...) Pour devenir mon ami laissez moi un message

12/11/2008, 22h13	#3 (permalink)
Heureux-oli Responsable Word Date d'inscription: février 2006 Localisation: Morlanwelz (Carnières) Âge: 44 Messages: 10 459	Salut, Si tu gères les erreurs, l'absence d'un signet lève l'erreur 5941. Code : On Error GoTo MonErreur ActiveDocument.Bookmarks("MonSignet").Select MonErreur: If Err.Number = 5941 Then L'action à faire End If __________________ J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ? Ne posez pas de question par MP, c'est inutile. Les rubriques Office recrutent. Ma page d'accueil Consultez nos FAQ !! Word ; Access ; Outlook ; Excel ; PowerPoint ; SharePoint Si vous pensez que certains sujets manquent dans la FAQ, aidez nous ! Des images

14/11/2008, 02h31	#4 (permalink)
Sepia Rédacteur Date d'inscription: octobre 2007 Localisation: Montreuil-Le-Gast (I&V) Âge: 45 Messages: 782	Salut, Plutôt que la gestion des erreurs, toujours lourde en VB et comme il existe une fonction pour tester l'existence d'un signet, il est préférable de l'utiliser et sa syntaxe est : Code : If ActiveDocument.Bookmarks.Exists("MonSignet") Then @+

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Word > VBA Word
Condition si existence du signet

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email