Importer une image dans Excel

Bonjour à tous,

Voilà j'essaye d'importer une image stocké dans mes document.

Voici mon problème, quand je lance la macro, le fichier Excel s'ouvre mais l'image n'est pas importé.

Voici mon code ci dessous, j'obtiens une erreur sur l'insertion de l'image. (' Run-time error '424' Object required)

Si quelqu'un a une idée, je vous remercie par avance

 '## Création Excel

        Set oExcel = CreateObject("Excel.Application")
        If Err.Number <> 0 Then
        Set oExcel = CreateObject("Excel.Application")
        oExcel.Visible = True
        End If
        oExcel.Visible = True
        Set oBook = oExcel.Workbooks.Open("C:\Users\bt\Desktop\excel.xls")
        Set wbks = oExcel.ActiveWorkbook
        Set oSheet = oBook.ActiveSheet 

'## Import the picture into the Excel file

   -------------------------------------------------------------------------------------------------
        ActiveSheet.pictures.Insert("C:\Temp\Image.JPG").Select
        (' Run-time error '424' Object required)[/color]
   --------------------------------------------------------------------------------------------------

        'Position the picture into the file             
        With Selection
            .Left = sheet.Range("C40").Left
            .Top = oSheet.Range("C40").Top
        End With   

'## Display the Excel
        oExcel.Visible = True

Bonjour,

Ton image doit se trouver dans le même répertoire que ton fichier : C:\Users\bt\Desktop\excel.xls

Ton fichier anonyme serait plus utile

Amicalement

Pierrot

Merci pour ta réponse Pierro,

Malheureument même en étant dans le même dossier que mon fichier Excel,

Je me retrouve toujours avec la même erreur sur l'insertion : (' Run-time error '424' Object required)

Bonjour,

avant d'insérer l'image, vérifier si au moins elle existe ! Voir par exemple la fonction Dir dans l'aide VBA …

Essayer sans le Select pour voir si cette ligne passe ou pas … Si elle ne passe toujours pas, le fichier n'existe pas !

Sinon activer le Générateur de macros puis insérer l'image : le code est livré sur un plateau !

Merci pour vos conseils,

J'ai réussi à insérer l'image souhaité grâce à cette ligne :

Sheet.Pictures.Insert("C:\Temp\ImageA").Select

Maintenant reste à positionner mon image en bas de ma page ;

J ai essayé avec cette ligne :

 With Selection
             .Left = oSheet.range("C40").Left
             .Top = oSheet.range("C40").Top
          End With

Au début ça marchait très bien ; mais en essayant à nouveau j'ai cette erreur :

"Compile error: Sub or Function not defined"

Problème résolue, il devait me manquer une référence. d'où la fonction range qui ne fonctionné pas

Merci à tous ceux qui m'ont conseillé.

A+