Discussion :

[ikanbib]

Bonjour à tous,

Je travaille actuellement à la réalisation d'un modèle de document, j'ai ajouté au ruban un nouvel onglet personnalisé.

parmi les fonctionnalités de cet onglet, j'ai ajouté un bouton permettant à la fois d'insérer une image et d'appliquer un style au paragraphe (style "Figure" par exemple)

Ruban :

Code :

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

<button id="InsertImage" size="large" imageMso="PictureInsertFromFile" label="Insérer une image" onAction="InsertImage"/>

Macro :

Code :

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

1
2
3
4
Sub InsertImage(ByVal control As IRibbonControl)
    Application.CommandBars.ExecuteMso ("PictureInsertFromFile")
    Selection.Style = ActiveDocument.Styles("Figure")
End Sub

ceci fonctionne, sauf, si au moment de choisir l'image, je clique sur Annuler...

-> La méthode 'ExecuteMso' de l'objet '_CommandBars' a échoué

merci pour votre aide

[Heureux-oli]

Salut,

Tu dois gérer l'erreur.

En début de procédure, tu ajoutes

Code :

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

On Error GoTo MonErreur

Et à la fin de ton code

Code :

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

1
2
MonErreur:
If err.Number = -2147467259 Then Exit Sub

[ikanbib]

c'est parfait !

merci beaucoup pour ta réponse et aussi pour tes tutoriels qui m'ont été très précieux !