Piloter Excel de vb: afficher une image dans un fichier excel

Résolu
daviddouillard Messages postés 12 Date d'inscription lundi 2 mars 2009 Statut Membre Dernière intervention 18 juin 2009 - 5 mai 2009 à 13:32
daviddouillard Messages postés 12 Date d'inscription lundi 2 mars 2009 Statut Membre Dernière intervention 18 juin 2009 - 5 mai 2009 à 13:54
Bonjour à tous,

je pilote Excel grâce à VB. Je l'ouvre à distance, j'insère des données dans le fichier Excel grâce à la colonne sélectionner .
 je veux insérer une image dans ce fichier Excel! Comment faire?

voici le code :

        'on dit que l'objet est de type feuille excel et ouvre Excel
        Dim DocExcel As Object
        DocExcel = CreateObject("Excel.Application")

        'mettre à True pour l'afficher à l'écran , mettre à False pour pas qu'Excel reste invisible
        DocExcel.Visible = False

        'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ...
        DocExcel.DisplayAlerts = False

        'on ouvre un fichier existant
        DocExcel.Workbooks.Open(FileName:=_Chemin, Editable:=True)

        'pour du texte
         DocExcel.Range(A1)
         DocExcel.ActiveCell.FormulaR1C1 = "blablabla"

         'pour une image

         DocExcel.Range(C1)

         DocExcel.ActiveCell.FormulaR1C1 = ????????????????????????,

...
....

merci de votre aide

1 réponse

daviddouillard Messages postés 12 Date d'inscription lundi 2 mars 2009 Statut Membre Dernière intervention 18 juin 2009
5 mai 2009 à 13:54
ActiveSheet.Pictures.Insert("D:\Documents\Mes images\000_0120.JPG")

voici la réponse
3
Rejoignez-nous