Recherche une photo dans le meme dossier

[maval]

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

 

[Hulk]

Re : Recherche une photo dans le meme dossier

Bonsoir,

Le fichier en retour, vois si ça te va.

Bonne nuit à tous !

 

[maval]

Re : Recherche une photo dans le meme dossier

Bonjour Hulk

Je te remercie beaucoup exactement ma recherche. Juste une question peut-on ajuster la photo a mon contrôle image de mon userform ?

Je te souhaite un bon Week end

Max

 

[Hulk]

Re : Recherche une photo dans le meme dossier

Salut le monde, 🙂

Clique/droit sur le contrôle "Image1" -> Propriétés et choisir une option parmi les trois.

 

[maval]

Re : Recherche une photo dans le meme dossier

Bonjour,

Je te remercie et bonne journée

Max