Bonjour à tous,
Je viens de passer sur excel 2007, et la fonction filesearch semble avoir été supprimée sur cette version.
Voilà le code que j'utilisais auparavant
Dim fsReport as filesearch
Set fsReport = Application.filesearch
With fsReport
.LookIn = "C:\Users\Portable\Desktop\Planning Prod\"
.Filename = "planning prod*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderDescending) > 0 Then
For i = 1 To .FoundFiles.Count
If i > 1 Then
blablabla....
Est-ce que quelqu'un aurait une idée du code correspondant pour excel 2007?
Merci d'avance pour votre aide.
Murdoc
Je viens de passer sur excel 2007, et la fonction filesearch semble avoir été supprimée sur cette version.
Voilà le code que j'utilisais auparavant
Dim fsReport as filesearch
Set fsReport = Application.filesearch
With fsReport
.LookIn = "C:\Users\Portable\Desktop\Planning Prod\"
.Filename = "planning prod*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByFileName, sortorder:=msoSortOrderDescending) > 0 Then
For i = 1 To .FoundFiles.Count
If i > 1 Then
blablabla....
Est-ce que quelqu'un aurait une idée du code correspondant pour excel 2007?
Merci d'avance pour votre aide.
Murdoc