inserer des photos

[capi]

bonjour a tous comment inserer plusieurs photos pour quelles soient systematiquement toujours les unes au dessus des autres dans la colone A à partir de la 2ème cellule et ceci jusqu'à la dernière possible

 

[skoobi]

Re : inserer des photos

Bonsoir,

voici une macro qui marche pour ce cas:

nombre de photos en A1.
les photos sont dans C:\ et se nomment: photo1.jpg, photo2.jpg, photo3.jpg .....

Sub Macro1()
For i = 1 To Range("A1").Value
    Range("A" & i + 1).Select
    ActiveSheet.Pictures.Insert ("C:\Photo" & i & ".jpg")
Next
End Sub

 

[capi]

Re : inserer des photos

j'ai essaye avec le code mais ça ne marche pas est ce parce que mes photos ne se noment pas photo1 photo2 etc mais portent des noms de ville

 

[skoobi]

Re : inserer des photos

Re,

tu n'as pas bien lu tout mon message 🙄

voici une macro qui marche pour ce cas

Si les noms sont complètement différent, ça va légèrement se compliquer.....

 

[BOISGONTIER]

Re : inserer des photos

Bonjour,

-Les noms des images sont en colonne A
-Les images sont dans le m^me répertoire que le classeur

Sub ImportImages2()
  repertoire = ThisWorkbook.Path
  Range("b2").Select
  Do While ActiveCell.Offset(0, -1) <> ""
    nf = repertoire & "\" & ActiveCell.Offset(0, -1) & ".jpg"
    Set monimage = ActiveSheet.Pictures.Insert(nf)
    ActiveCell.EntireRow.RowHeight = monimage.Height + 0
    ActiveCell.Offset(1, 0).Select
  Loop
End Sub

JB
Formation Excel VBA JB