Recherche une photo dans le meme dossier

Bonsoir

Je suis à la recherche d'un code pour rechercher une photo dans le même dossier, j'ai comme code pour rechercher dans le même fichier sur un onglet nommé "Photos" ceci:

Private Sub UserForm_Initialize()

      Set f = Sheets("Photos")
      For Each s In f.Shapes
        Me.ComboBox1.AddItem s.Name
      Next

    End Sub
    Private Sub ComboBox1_Change()
      Set s = f.Shapes(CStr(Me.ComboBox1))
      s.CopyPicture
      f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
      f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
      f.Shapes(f.Shapes.Count).Delete
      Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
      Me.Image1.Picture = LoadPicture("monimage.jpg")
      Kill "monimage.jpg"
    End Sub

Mais pour rechercher dans un même dossier ?

Je vous remercie de votre aide et vous souhaite une bonne soirée

Cordialement

Max

Salut Max,

voici un code qui va te permettre de lister tous les fichiers jpg du dossier dans lequel tu auras, au préalable, sauvegardé ton classeur.

Sub test()
Dim myPath As String, myFile As String
Application.ScreenUpdating = False

myPath = ThisWorkbook.Path 'détermine le chemin du dossier contenant le classeur
myFile = Dir(myPath & ("\*.jpg")) 'enregistre dans la variable myFile le premier fichier jpg
c = 1
Do Until myFile = "" 'boucle  qui liste tous les fichiers jpg
   Cells(c, 1) = myFile 'affiche le nom du fichier jpg
   myFile = Dir() 'traite le fichier suivant
   c = c + 1
Loop

Application.ScreenUpdating = True
End Sub

voilà, j'espère que ça répond à ta question