Insertion automatique d'images sous Excel 2007

Bonjour,

Je cherche à insérer une image dans la colonne 2 d'un fichier excel à partir d'informations qui seraient saisies dans la colonne 1 de ce même fichier.

Je pensais avoir trouvé mon bonheur avec l'exemple ci-dessous, mais le code ne marche pas chez moi ?

http://www.vbfrance.com/forum/sujet-INSERTION-IMAGE-VBA-EXCEL-2007-PARTIR-TABLEAU-DONNEES_1215670.aspx

Merci,
Aurore

J'ai oublié de préciser : Avec ce code, il me met "400" comme erreur (rien de plus, uniquement le chiffre 400 lorsque j'essaye d'exécuter le code).

Salut,

Peux-tu envoyer le code et aussi me dire à quelle instruction se produit l'erreur 400 ?

Amicalement

Bonjour,

J'ai essayé le code qui a été validé "correct" de la page 2 de ce fil, c'est à dire le code ci-dessous :

Sub j_espere_que_ca_marche()
    Dim i As Integer, path As String, sep As String, img As String
    sep = Application.PathSeparator
    path = ActiveWorkbook.path & sep & "images" & sep
' balaye les 700 lignes
    For i = 1 To 700
' indique à Excel où insérer l'image
        Cells(i, 2).Select
' insère une image jpg
            img = path & Cells(i, 1).Value & ".jpg"
            If Dir(img) = "" Then
               MsgBox "Image """ & img & """ non trouvée"
            Else
               ActiveSheet.Pictures.Insert(path & Cells(i, 1).Value & ".jpg").Select
            End If
' ajuste la hauteur de la ligne, avec une marge inférieure de 10 pts
            Rows(i).RowHeight = Selection.Height + 10
    Selection.Top = Cells(i, 2).Top
Selection.Left = Cells(i, 2).Left
    Next

End Sub


Pour l'erreur "400", je suis malheureusement débutante totale et je n'ai pas compris comment faire pour savoir à quoi elle correspond ? Il m'affiche simplement une fenêtre d'erreur lors de l'exécution du code qui indique "400", et rien de plus ?

Par contre, ce matin j'ai une nouvelle erreur (en plus de "400"), il me dit :
"c....\images\.jpg non trouvée" ?
J'ai pourtant bien un dossier images avec des .jpg à l'intérieur ? (et d'ailleurs, hier encore il ne m'indiquait pas cette erreur...)

Merci pour ton aide !!
Aurore

Bonjour Aurore

Merci pour le code.

Peux-tu exécuter le Sub en mode pas-à-pas et me dire sur quelle instruction se produit l'erreur ?

Qu'y a-t-il dans la variable img lorsque l'erreur se produit ?

Quelle est ta version d'Excel ?

Le message "c....\images\.jpg non trouvée" indique que la boucle a atteint une ligne où la colonne 1 est vide. Par exemple si seules les cellules A1-A40 de ta feuille de calcul contiennent un nom d'image, tu dois remplacer l'instruction For i = 1 To 700 par For i = 1 To 40 ; ok ?

désolé pour le délai de réponse : décalage horaire.

Amicalement

Bonjour,

Ok je dois donc modifier le code en fonction du nombre de ligne remplie sur mon document ? Y a-t-il possitilité de faire ça automatiquement ou pas ?

Pour l'erreur 400, en faisant F8 en pas à pas, il bloque sur cette ligne :

Rows(i).RowHeight = Selection.Height + 10

Et il me marque "erreur 1004" : j'ai regardé dans l'aide, et rien sur cette erreur ?

Je suis sous Excel 2007.

Pour les tests, j'utilise seulement 3 imagers .jpg.

Amicalement,

Aurore

PS : désolée pour le délai de réponse : week-end

Bonjour

J'ai modifié le code pour que le programme s'adapte automatiquement au nombre de lignes :


Sub j_espere_que_ca_marche()
    Dim i As Integer, path As String, sep As String, img As String
    sep = Application.PathSeparator
    path = ActiveWorkbook.path & sep
    i = 1
' balaye la colonne A jusqu'à cellule vide
    Do Until Cells(i, 1).Value = ""
' indique à Excel où insérer l'image
            Cells(i, 2).Select
' insère une image jpg
            img = path & Cells(i, 1).Value & ".jpg"
            If Dir(img) = "" Then
               MsgBox "Image """ & img & """ non trouvée"
            Else
               ActiveSheet.Pictures.Insert(path & Cells(i, 1).Value & ".jpg").Select
            End If
' ajuste la hauteur de la ligne, avec une marge inférieure de 10 pts
            Rows(i).RowHeight = Selection.Height + 10 ' mettre en commentaire
            Selection.Top = Cells(i, 2).Top
            Selection.Left = Cells(i, 2).Left
            i = i + 1
    Loop
End Sub

Je rencontre la même erreur que toi, pourtant je suis sous la même version (Excel 2003) que lorsque j'ai écrit ce code ; bizarre ! Je n'ai pas encore trouvé pourquoi la méthode RowHeight ne fonctionne pas ; je cherche...

Chez moi, si je mets la ligne en cause en commentaire, le programme tourne sans erreur, mais évidemment les images se chevauchent. C'est la même chose chez toi ?

Amicalement

Bonjour,

Oui, ça me fait exactement la même chose !!

Amicalement,
Aurore

Bon, il ne reste plus qu'à régler le problème de dimensionnement vertical. Je te recontacte dès que j'ai la solution.

Ok merci !!