Macro gemaakt in Excel 2003 werkt niet(geheel in 2010)

[Jamara]

Ik heb een macro gemaakt in Excel 2003 en bij het overzetten naar Excel 2010 blijken bepaalde zaken niet meer te reageren.
Onderstaand een deel van de macro die in 2010 niet meer werkt.
De foutopsporing geeft bij regel 10010110 de eerste foutmelding (445)
Weet iemand hiervoor een oplossing
Bvd Jamara

' Scherm onzichttbaar maken voor uitvoering macro
10010001   Application.ScreenUpdating = False

' Controleren of het bestand aanwezig is
10010110 Set fs = Application.FileSearch
10010111 With fs
10010112 .LookIn = "O:\Oosterhout\Financieel\Declaratieoverzichten\04 april"
10010113 .SearchSubFolders = True
10010114 .Filename = "decloverz3004 afd 070 CvH.txt"
10010115 If .Execute() > 0 Then
10010116 MsgBox "Bestand decloverz3004 afd 070 CvH.txt gevonden!! Bewerking wordt voltooid!!"
10010117 End If
10010120 If .Execute() = 0 Then
10010121 MsgBox "Bestand decloverz3004 afd 070 CvH.txt niet gevonden!! Bewerking wordt beëindigd!!"
10010122 End If
10010130 If .Execute() = 0 Then

' Afvinken van het bewerkte bestand
10010131 ActiveSheet.Unprotect
10010132 Range("H39").Select
10010133 Selection.Font.ColorIndex = 46
10010134 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

' Zichtbaar maken van het scherm
10010140 Application.ScreenUpdating = True
10010150 End If
10010160 If .Execute() = 0 Then Exit Sub
10010199 End With

 

[HSV]

'Application.FileSearch' werkt niet meer vanaf Excel 2007.
Zoek eens op het forum met de zoekfunctie naar 'Filesearch'.

 

[Jamara]

Daar vind ik vooralsnog geen oplossing.
Gr Jamara

 

[handboekict]

of hier: http://vbadud.blogspot.com/2010/02/office-2010-applicationfilesearch-error.html

 

[Jamara]

of hier: http://vbadud.blogspot.com/2010/02/office-2010-applicationfilesearch-error.html

Ik ben geen ervaren VBA man en heb ook bij het opgegeven pad niet direct de oplossing kunnen vinden, wellicht omdat ik het niet helemaal goed begrijp.
Is er iemand die deze al wat oudere man de praktische oplossing aan kan bieden, opdat ik me niet kwijt hoef te zoeken op internet en/of engelstalige oplossingen.
Bvd voor de oplosser
Gr Jamara

 

[HSV]

Deze is van @alphamax, beetje bijgewerkt.

In de eerste msgbox zie je hoeveel bestanden er zijn.
De daaropvolgende msgbox(en) zie je welke bestanden.

Public Sub listing2()
    Dim strFile As String, aantal As Long
    strFile = Dir("D:\Excel Tips\AANTALARG\") 'Even aanpassen
    Do While strFile <> vbNullString
     aantal = aantal + 1
      strFile = Dir
     Loop
     MsgBox aantal & "  bestanden gevonden "
     strFile = Dir("D:\Excel Tips\AANTALARG\") 'Even aanpassen
    Do While strFile <> vbNullString
        MsgBox strFile
        strFile = Dir
    Loop
End Sub

Misschien kun je er iets mee.

 

[Warme bakkertje]

Test deze eens.

Sub jamara()
DirToSearch = "O:\Oosterhout\Financieel\Declaratieoverzichten\04 april\"
FileToSearch = "decloverz3004 afd 070 CvH.txt"
'Scherm onzichttbaar maken voor uitvoering macro
Application.ScreenUpdating = False
    If Not Dir(DirToSearch & FileToSearch) = vbNullString Then
        MsgBox "Bestand decloverz3004 afd 070 CvH.txt gevonden!! Bewerking wordt voltooid!!"
    Else
        MsgBox "Bestand decloverz3004 afd 070 CvH.txt niet gevonden!! Bewerking wordt beëindigd!!"
        ActiveSheet.Unprotect
        Range("H39").Font.ColorIndex = 46
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Exit Sub
    End If
Application.ScreenUpdating = True
End Sub

 

[Jamara]

Opgelost Bedankt

Bedankt Warme bakkertje.
Na wat testen heb ik de laatste regels verplaatst. ( zie onderstaand)
Na End if loopt de bewerking van de macro nog door.
:thumb:
'Scherm onzichtbaar maken voor uitvoering macro
10010001 Application.ScreenUpdating = False

' Controleren of het bestand aanwezig is
10010110 DirToSearch = "O:\Oosterhout\Financieel\Declaratieoverzichten\04 april\"
10010112 FileToSearch = "decloverz3004 afd 070 CvH.txt"

10010115 If Not Dir(DirToSearch & FileToSearch) = vbNullString Then
10010116 MsgBox "Bestand decloverz3004 afd 070 CvH.txt gevonden!! Bewerking wordt voltooid!!"
10010120 Else
10010121 MsgBox "Bestand decloverz3004 afd 070 CvH.txt niet gevonden!! Bewerking wordt beëindigd!!"

'Afvinken van het bewerkte bestand
10010131 ActiveSheet.Unprotect
10010132 Range("H39").Font.ColorIndex = 46
10010134 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

' Zichtbaar maken van het scherm
10010140 Application.ScreenUpdating = True
10010160 Exit Sub

' Einde controle aanwezigheid bestand
10010199 End If

Hierna vervolgt de macro zijn bewerking.