Discussion :

[formabox]

Hello la compagnie,

Je suis en train de me prendre la tête avec une macro qui va chercher un modèle et qui doit intégrer des contenus dans des signets.

Les signets texte ne posent aucun problème mais je rencontre un problème avec le signet qui doit recevoir une image. Mon code suivant fonctionne et affiche bien l'image dans le signet correspondant par contre, j'ai un message d'erreur d'incompatibilité qui s'affiche…

Quelqu'un arriverait à me guider ? Merci d'avance pour vos précieux conseils très appréciés

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub BtOk_Click()
 
Dim VModeles As String
Dim VSociete As Bookmarks
Dim ObjWord As Object
Dim bmks As Bookmarks
Dim bmRange As Range
 
 
 
 
VModeles = CBModeles.Text
 
Documents.Add Template:= _
        VModeles, NewTemplate:=False, DocumentType:=0, Visible:=True
 
Set bmks = ActiveDocument.Bookmarks
Set bmRange = ActiveDocument.Bookmarks("Soci?t?").Range
bmRange.Text = Me.CBSociete.Value
 
'Set bmRange = ActiveDocument.Bookmarks("Logo").Range
'bmRange.Text = Me.CBLogo.Value
 
 
Set bmRange = ActiveDocument.Bookmarks("Logo").Range.InlineShapes.AddPicture("C:\Users\carol\Desktop\Test D?veloppement Word Mod?le\Logo\Formabox.png", False, True)

[formabox]

J'ai trouvé ma solution

Ma déclaration de variable déclarait Range alors que je devais utiliser Object

Affaire classée