Opgelost foutmelding picture nr is niet juist

[Ben]

Hoe kan ik een MsgBox krijgen als ik het nummer verkeerd heb of niet niet in mijn map staat.
zodat ik dan wel verder kan als ik een goed nummer intyp. Nu krijg ik een melding fout 53 kan bestand niet vinden.
zie CODE.

Private Sub ComboBox1_Change()
Dim oRng As Range
Set oRng = ThisWorkbook.Sheets(1).Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
TextBox1.Value = oRng.Offset(0, -1).Value
TextBox2.Value = oRng.Offset(0, 1).Value
TextBox3.Value = oRng.Offset(0, 2).Value
TextBox4.Value = oRng.Offset(0, 3).Value
TextBox5.Value = oRng.Offset(0, 4).Value
TextBox6.Value = oRng.Offset(0, 5).Value


Dim foto As String

On Error GoTo defaut
foto = ComboBox1.Value
Image1.Picture = LoadPicture("F:\1 excel bestanden\1 excel 2025\tekst met foto\voorbeeld\" & foto & ".jpg")
Exit Sub

Groetjes Ben

defaut:
Image1.Picture = LoadPicture("F:\1 excel bestanden\1 excel 2025\tekst met foto\voorbeeld\defaut.jpg ")

End Sub

 

[AHulpje]

Test of bestand bestaat:

If Dir("F:\1 excel bestanden\1 excel 2025\tekst met foto\voorbeeld\" & foto & ".jpg") <> ""  Then

 

[AD1957]

Kun je niet beter de combobox vullen met de bestandsnamen in de map "voorbeeld."

Sub LadenComboBox1()

    Dim folderPath As String
    Dim fileName As String

    ' Map waarin je wilt zoeken naar bestanden
    folderPath = "F:\1 excel bestanden\1 excel 2025\tekst met foto\voorbeeld\"  

    ' Eerste bestand in de map ophalen
    fileName = Dir(folderPath & "*.*") ' Alle bestanden

    ' Alle bestanden toevoegen aan de ComboBox
    Do While fileName <> ""
        Me.ComboBox1.AddItem fileName
        fileName = Dir() ' Volgend bestand
    Loop
End Sub

 

[Warme bakkertje]

De oplossing van Albert is de verstandigste maar de gebruikte is de meest ongeschikte en traagste.

Sub GetFilesInFolder()
  myDir = "F:\1 excel bestanden\1 excel 2025\tekst met foto\voorbeeld\"
  sn = Split(CreateObject("wscript.shell").exec("cmd /c dir """ & myDir & "\*.jp*"" /b").StdOut.ReadAll, vbCrLf)
  ComboBox1.List = sn
End Sub

 

[Ben]

Dankje wel het is opgelost