Discussion :

[aragorn88]

bonjour à tous,

voilà je voudrais savoir si l'on peut insérer des images dans word à partir d'un formulaire.
Pour insérer le texte j'ai utilisé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
On Error Resume Next
    Dim W_App As New Word.Application
    With W_App
        .Visible = True
        .Documents.Open ("D:\Mes Documents\juge\base de données symbolique\fiche_mouvement_" & nivMouv & ".doc")
        .ActiveDocument.Bookmarks("Ele1").Select
        .Selection.text = Me.txtEle1
 
        .ActiveDocument.SaveAs ("D:\Mes Documents\juge\base de données symbolique\" & nomMouv & ".doc")
        .Quit
    End With
    Set W_App = Nothing

est-t-il possible de partir de cela pour insérer des images à la place du texte??

merci

[Domi2]

Bonsoir,

J'ai jamais essayé, mais à priori, je dirai sans (trop) de problème. J'espère que je ne m'avance pas trop

Je m'explique. Comme tu insères ton texte par automation, il suffit de récupérer les commandes VBA Word permettant d'insérer une photo dans un document et de les faire précéder d'un point.

Tu devrais aller faire un tour sur le forum Office. Il m'étonnerait que ce sujet ne soit pas traité.

Domi2

[aragorn88]

c'est bon c'est exactement ca

merci