Discussion :

[jejemimi]

bonsoir, j
e travail en vb.net j'ouvre un document word qui sera pre rempli (grace a des signet) avec des champs de ma bd, le probleme est que je doit donc aussi mettre la photo (qui est dans la base) sur le word
comment faire?

Code :

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

1
2
3
4
5
6
7
        IDBNull(dst.Tables("eleve").Rows(0).Item("nomEnfant"), oDoc.Bookmarks.Item("nomEleve").Range.Text)
        IDBNull(dst.Tables("eleve").Rows(0).Item("prenomEnfant"), oDoc.Bookmarks.Item("prenomEleve").Range.Text)
        IDBNull(dst.Tables("eleve").Rows(0).Item("dateNaiss"), oDoc.Bookmarks.Item("dateNaiss").Range.Text)
        IDBNull(dst.Tables("eleve").Rows(0).Item("classe"), oDoc.Bookmarks.Item("classe").Range.Text)
        IDBNull(dst.Tables("eleve").Rows(0).Item("nomMartialM"), oDoc.Bookmarks.Item("nomMaritalMere").Range.Text)
        IDBNull(dst.Tables("eleve").Rows(0).Item("nomNaissP"), oDoc.Bookmarks.Item("nomPere").Range.Text)
        IDBNull(dst.Tables("eleve").Rows(0).Item("nomNaissM"), oDoc.Bookmarks.Item("nomNaissMere").Range.Text)

La photo est de type byte.
Et la fonction IDBNull est une fonction qui controle si la données n'est pas vide.

merci d'avance

[Graffito]

Pour ne pas utiliser le presse-papier, je passe par un fichier temporaire:

En C#, ma procedure est celle-ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
internal void WA_InsertImage(string FileName,Word.Range TheRange)
{
  object TheRangeObject=TheRange ;
  Word.InlineShape Shape=null ;
  try { Shape=WA_Document.InlineShapes.AddPicture
        (FileName,ref FalseObject,ref TrueObject,ref TheRangeObject) ; }
  catch {} ;
  if (Shape!=null) 
  {
    // Shape.Height=
  }
  else WA_ReplaceRangeText(TheRange,"Image not found : "+FileName) ;
}

[jejemimi]

bonsoir, merci de ta reponse
es ce que tu pourai m'explique un peu la marche que tu a suivi? (je ne connais pas le c#)
et aussi je ne vois pas ou tu met la position de la photo

[Graffito]

Pour que la photo s'insére sur le signet , le paramètre Range à passer à la procedure sera par exemple :
oDoc.Bookmarks.Item("nomEleve").Range

FalseObject et TrueObject sont des cast de booléen sur un objet.

Dans Word.InlineShape Shape Word.InlineShape est une classe de Word automation et Shape une instance de la classe.

Quant à WA_ReplaceRangeText, c'est ma gestion d'erreurs qu'on poourrait aussi traiter en retournant une string d'erreur.

[jejemimi]

merci beaucoup.
et a quoi corespond

Code :

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

WA_Document

[Graffito]

WA_Document est l'instance du document Word (oDoc dans ton code).

"WA" est un prefixe que j'utilise systématiquement dans ma classe dédiée à Word Automation.