Piloter Excel de vb: afficher une image dans un fichier excel [Résolu]

Signaler
Messages postés
12
Date d'inscription
lundi 2 mars 2009
Statut
Membre
Dernière intervention
18 juin 2009
-
Messages postés
12
Date d'inscription
lundi 2 mars 2009
Statut
Membre
Dernière intervention
18 juin 2009
-
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

Messages postés
12
Date d'inscription
lundi 2 mars 2009
Statut
Membre
Dernière intervention
18 juin 2009

ActiveSheet.Pictures.Insert("D:\Documents\Mes images\000_0120.JPG")

voici la réponse