Discussion :

[jnauche]

Bonjour,

Dans une macro, j'applique un style

Code :

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

1
2
3
4
Else
                .StartOf Unit:=wdParagraph, Extend:=wdMove
                Selection.Style = ActiveDocument.Styles("Style1")
                Selection.MoveDown Unit:=wdLine, Count:=1

Par contre, je n'ai pas la certitude que ce style exist. Est ce qu'il y a un moyen de tester que ce style exist avant de l'appliquer (afin de sauter ce bout de code et de mettre une pop up.

Merci pour vos retours

[Heureux-oli]

Salut,

tu peux toujours savoir si ce style est utilisé :

Code :

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

Debug.Print ActiveDocument.Styles("titre 1").InUse

Vrai si le style est en utilisation dans le document.

Si le style n'existe pas, une erreur est levée 5941, il suffit alors de la gérer.

[jnauche]

Bonjour,

Merci pour ta réponse.
Le "il suffit" est un peu high level pour mon degré de connaissance.
S'il le style n'existe pas, je vais avoir une fenêtre qui s'ouvre avec le code erreur, comment faire pour la remplacer par une msgbox?

Merci.
Bonne journée.

[Heureux-oli]

Salut,


Avec une gestion de l'erreur.

on Error ....

Et ensuite on gère l'erreur.

Un peu de lecture : http://silkyroad.developpez.com/VBA/GestionErreurs/