inserer image dans word(vb 2008)

Salut,

Je travaille avec visual basic 2008 et je veux quand je clique sur un bouton me générer un fichier word.
j'arrive bien a ouvrir le fichier et a écrire dedans mais j'aimerais bien y inserer une image

j'utilise le code suivant:

Code:

---

1 2 3

oDoc = oWord.Documents.Add oDoc1.AddPicture(FileName:="C:\Documents and Settings\logo.jpeg", LinkToFile:=False, SaveWithDocument:=True)

---

mais je sais pas de quel type doit etre déclaré le oDoc1(Dim oDoc As Word.Document mais pour oDoc1 j'ai essayé Dim oDoc1 As Word.Pictureformat mais ça ne donne rien)


merci

j'ai pu résoudre ceci on utilisant

Code:

---

Dim oShape1 As Word.InlineShape

---

mais le nouveau problème qui se pose que dès que j'ajoute du texte l'image disparait et le texte vient à sa place.
comment indiquer que je veux le texte aprés l'image?

Je n'est aucune solution complète pour toi, mais une fois j'ai du travail du VSTO sur Excel et il fallai séléctionner les cellules touchées.

Tu n'as pas la possibilités de compter les lignes? ou au moin d'avoir un repère (je suis sur la première page, deuxième ; permière lignes, lignes N°125 ect..)?

je vois bien de quoi vous parlez car j'ai déjà travaillé avec excel mais en ce qui concerne word ce n'est pas la meme chose.
En cherchant j'ai trouvé "insert paragraphe after" mais je vais essayer si ça marche.
merci comme meme

Tu fais comment pour insèrer du text dans ton word?

j'utilise le code suivant

Code:

---

1 2 3 4

oRng = oDoc.Bookmarks.Item("\endofdoc").Range oRng.InsertParagraphAfter() oRng.InsertAfter("dfghg" + Me.txt_NomCli.Text) oRng.Font.Bold = True

---

Je n'ai jamais du insérer d'image dans un document.
Une petite recherche sur l'aide msdn m'a donné cette page
et on peut y voir cette solution :

Code:

---

Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")

---

vu que cette solution insère la ou est la sélection, donc dans le range en cour on pourrais penser que ca fonctionne...
Test et dit moi quoi...

j'ai essayé cette méthode auparavant mais ça me donne une erreur(souligné en bleu) alors j'ai essayé ceci et ça marche pour le moment

Code:

---

oShape1 = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddPicture(FileName:="C:\Documents and Settings\logo.jpg", LinkToFile:=False, SaveWithDocument:=True)

---

pourriez vous me dire par quoi je peux remplace endofdoc pour indiquer le début du fichier (j'ai essayé de rien mettre mais ça ne marche pas)

:P

Citation:

---

Envoyé par kima9

pourriez vous me dire par quoi je peux remplace endofdoc pour indiquer le début du fichier (j'ai essayé de rien mettre mais ça ne marche pas)
:P

---

Je ne sais pas, il faut aller voir sur msdn

Citation:

---

Envoyé par kima9

j'ai essayé cette méthode auparavant mais ça me donne une erreur(souligné en bleu)

---

Il faut remplacer "me" par la variable application word ;)

oui je l'ai remplacé mais ça ne marche pas :D
desole pour le dérangement et merci

Et il te dit quoi comme erreur, car chez moi ca fonctionne bien, d'ailleur je vais essayer l'insertion d'image après...

meme si je fais

Code:

---

1 2	Imports Microsoft.Office.Interop.Word Imports Microsoft.Office.Interop

---

ça me donne Application.Selection.InlineShapes.AddPicture n'appartient pas a Interop.Word

Je ne comprend pas pourquoi ca ne fonctionne pas chez toi si tu fais :

Code:

---

MaVariableWordApplication.Selection.InlineShapes.AddPicture("D:\Mes documents\Mes images\trajet.bmp")

---

Chez moi ca va sans problème, par contre cette méthode ajoute l'image avant le texte même si on l'applique sur le range dans lequel on vient d'écrire :(

Code:

---

oRng.InlineShapes.AddPicture("C:\Mes documents\Mes images\trajet.bmp")

---

Mais en regardant la définition de InlineShape, on vois que c'est la collection d'image de word.
Après j'ai été voir la définition de addPicture.
On peux y voir :

Citation:

---

Function AddPicture( _
<InAttribute()> ByVal FileName As String, _
<InAttribute()> Optional ByRef LinkToFile As Object, _
<InAttribute()> Optional ByRef SaveWithDocument As Object, _
<InAttribute()> Optional ByRef Range As Object _
) As InlineShape

FileName

Required String. The path and file name of the picture.

LinkToFile

Optional Object. True to link the picture to the file from which it was created. False to make the picture an independent copy of the file. The default value is False.

SaveWithDocument

Optional Object. True to save the linked picture with the document. The default value is False.

Range

Optional Object. The location where the picture will be placed in the text. If the range isn't collapsed, the picture replaces the range; otherwise, the picture is inserted. If this argument is omitted, the picture is placed automatically.

---

Donc si on met l'option range, il devrait mettre l'image au range spécifier...

normalement c'est ça le but de Range mais je c'est pas ou est le problème.
Je vais revoir le code une autre fois pour pouvoir détecter le problème.:P

ta première solution était bonne, il suffisait de mettre le range +1 et le texte ne remplace pas l'image :

Code:

---

1 2	oRng = Document.Range(oRng.End + 1) oRng.InsertAfter("eee")' ca fonctionne

---

merci beaucoup ça a marché:ccool: