2010 Deze actie wordt niet ondersteund door het object

[HWV]

Beste,

ik gebruik in excel 2010 de volgende code, die eerder gemaakt is in office 2003

  With Application.FileSearch
    .LookIn = "P:\Ingevulde bonnen\Orderbonnen"
    .Filename = "" & Naam & " - " & Plaats & " - " & Debnummer & " - " & Format(Date, " dd-mm-yyyy") & " - " & Formulier & "(*.xls"
    ActiveWorkbook.SaveAs .LookIn & "\" & Replace(.Filename, "*", .Execute & ")")
  End With

Maar nu in 2010 krijg ik hierop de volgende melding:

Deze actie wordt niet ondersteund door het object.

nu zal ik bij de verwijzingen iets moeten aanvinken, maar weet zelf niet wat.
kan iemand mij hier ondersteuning in geven !

groet HWV

 

[Warme bakkertje]

Net zoals in XL2007 wordt FileSearch niet ondersteund in XL2010.
Kijk op volgende link voor een eventuele oplossing.
http://www.mrexcel.com/forum/showthread.php?t=348269