EK 2016 -> Foutmelding Run-time error '52': Bad file name or number

[bertvdb]

Als ik in de tab deelnemers 1-40 op Deelnemers klik om zo dus de excel gegevens van de deelnemers in te laden dan krijg ik de melding
Run-time error '52': Bad file name or number
Als ik dan op debug klik dan kom ik op volgende lijn uit
FilesInPath = Dir(MyPath & Invulformulieren & "*.xl*")

Iemand die me kan helpen?

 

[VenA]

Als je even het commentaar in de code leest dan zie je waarschijnlijk wel wat je fout doet.

MyPath = Range("[COLOR="#FF0000"]H2[/COLOR]").Value                               ' Change this to the path\folder location of the files.
  If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"    ' Add a slash at the end of path if needed.
  Invulformulieren = Range("[COLOR="#FF0000"]H3[/COLOR]").Value                     'beginletters van ieder invulformulier

 

[bertvdb]

Dit probleem is opgelost maar als ik nu op Deelnemers klik krijg ik de melding

kan doel niet vinden om deelnemer1 naar toe te schrijven in Deelnemers 1-40

Als ik dan naar de code ga kijken krijg ik dit te zien

Sub HerrekenDeelnemers()
Dim i As Integer, sNaam As String, j As Integer, FNum As Integer, c As Range
i = 1: sNaam = "Deelnemers " & (i - 1) * iMax + 1 & "-" & i * iMax
j = Sheets(sNaam).Range("Q2").Value: If j < 1 Then MsgBox "Foutief aantal deelnemers in cel Q2 van " & sNaam & ".": Exit Sub
Application.ScreenUpdating = False
For FNum = 1 To j '2e loop
On Error Resume Next
i = Int((FNum - 1) / iMax) + 1
sNaam = "Deelnemers " & (i - 1) * iMax + 1 & "-" & i * iMax
Set c = Sheets(sNaam).Rows(4).Find(FNum, lookat:=xlWhole)
If c Is Nothing Then MsgBox "Kan doel niet vinden om deelnemer " & FNum & " naar toe te schrijven in " & sNaam
Application.GoTo c.Offset(, 4), True
Application.StatusBar = "Formules voor volgnummer : " & FNum & Spaties & "en die staan in werkblad " & sNaam & Spaties & "cel : " & c.Address
Sheets(sNaam).Columns("F").Copy Sheets(sNaam).Columns(c.Column + 4) 'kopieer formule kolom
With Sheets(sNaam).Columns(c.Column + 4)
.Calculate
'.Copy 'maak deze regel commentaar als de formules moeten blijven staan
'.PasteSpecial xlValues 'maak deze regel commentaar als de formules moeten blijven staan
.Hidden = False
End With
Next
With Application
.CutCopyMode = False
.StatusBar = ""
.GoTo Sheets("Deelnemers 1-40").Range("a1"), True 'in dit blad moet je staan
.ScreenUpdating = True
End With
End Sub

De fout zou in deze lijn zitten -> j = Sheets(sNaam).Range("Q2").Value: If j < 1 Then MsgBox "Foutief aantal deelnemers in cel Q2 van " & sNaam & ".": Exit Sub

Maar ik kan hier totaal niet aan uit, kan iemand me helpen?