VBA Excel 2007 - insertion images

Sub ImportImages()
repertoire = ThisWorkbook.Path & "\"
nf = Dir(repertoire & "*.jpg") ' premier fichier
Range("b2").Select
Do While nf <> ""
Set monimage = ActiveSheet.Pictures.Insert(nf)
monimage.Height = ActiveCell.Height
monimage.Width = ActiveCell.Width
monimage.Top = [b2].Top
monimage.Left = [b2].Left
monimage.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
ActiveCell.Offset(0, -1) = Application.Proper(Left(nf, Len(nf) - 4))
ActiveCell.EntireRow.RowHeight = monimage.Height + 0
nf = Dir ' suivant
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cliquez pour agrandir...

Aurore_C à dit:

Bonjour,

Promis j'ai bien tout regardé ce tutoriel (qui est d'ailleurs très clair, même pour une débutante, 10 000 fois plus clair que le bouquin VBA que j'ai acheté pour rien car c'est du chinois pour moi!), j'ai juste un peu de mal à l'adapter à ma situation 😀

Pour exemple, ton code ci-dessus ne marche pas chez moi, car j'ai une erreur "400" qui apparait et que je ne comprends pas (je sais que ça vient de chez moi, et pas du code, mais du coup, impossible pour moi de l'utiliser tel quel).

C'est la raison pour laquelle j'essaye d'intégrer juste quelques "suppléments" peu à peu au premier code (qui marche - du moins lorsque je n'y touche pas trop longtemps! 😉), mais le mieux que j'ai réussi à faire, c'est d'avoir toutes les images bien casées et cadrées dans une cellule, mais toutes dans la même cellule, au lieu de les avoir les unes en dessous des autres (et donc en face de leurs noms respectifs).

Merci pour ta réponse en tous les cas, je vais creuser en essayant d'intégrer les données du code ci-dessus! 🙂

Aurore

Cliquez pour agrandir...

gilbert_RGI à dit:

Essaie ce fichier

chez moi il fonctionne

tu dois mettre le gif dans le même répertoire que le xls

Cdlt

Gilbert_RGI

Cliquez pour agrandir...

Sub ImportImages()
repertoire = ThisWorkbook.Path & "\"
nf = Dir(repertoire & "*.jpg") ' premier fichier
Range("b2").Select
Do While nf <> ""
Set monimage = ActiveSheet.Pictures.Insert(nf)
monimage.Name = Left(nf, Len(nf) - 4) ' Donne un nom à l'image
ActiveCell.Offset(0, -1) = Application.Proper(Left(nf, Len(nf) - 4))
ActiveCell.EntireRow.RowHeight = monimage.Height + 0
nf = Dir ' suivant
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Cliquez pour agrandir...

gilbert_RGI à dit:

je ne sais pas si cela te convient ???

mais ça fonctionne 😀

une fois de plus il faut que les images soient dans le même répertoire que le xls sinon elles ne seront pas affichées

Cliquez pour agrandir...

gilbert_RGI à dit:

un essai

en feuille 2 récupération des jpg dans le répertoire possibilité aussi d'ajouter des gif's

ensuite en feuille 1 affichage du chemin et de l'image

Cliquez pour agrandir...