vb.net aidez moi svp

Question

voila en fai j'ai un fichier excel, avec une colonne ou il y a les chemin absolu qui pointe vers des images.

je souhaiterai avec vb.net importer cette image dans word, comment je peut faire ?

grosbidou21 · Answer

Dim Wrd As Object

        Dim Exc As Object

        Dim fichier As String



        Wrd = CreateObject("Word.application")

        Exc = CreateObject("Excel.application")



        With Exc

            .visible = True

           
.Workbooks.Open(Filename:="C:\Classeur1.xls") 'Ouvre ton fichier excel

           
.range("A1").select() 'S&#233;lectionne la case et garde son contenu dans la
variable 'fichier'

           
fichier = .selection.text 'Met dans la variable 'fichier' le contenu de
la case s&#233;lectionn&#233; (donc le nom de fichier)

            .quit() 'Quitte Excel s'il faut...

        End With

        With Wrd

            .visible = True

            .Documents.Open(FileName:="C:\Doc1.doc")

           
.Selection.InlineShapes.AddPicture(FileName:=fichier)  'Importe
l'image &#224; l'endroit du curseur

        End With


logiquement &#231;a fonctionne bien! 

@+




La programation c'est au moins autant prise de t&#234;te que ... je ne vois pas rien ne l'&#233;gale...

lenneth666 · Answer

je te remercie

Vb.net aidez moi svp

2 réponses