Bonjour à tous,

Je viens de passer de 2003 à 2010 et j'ai tout un code qui n'a pas l'air d'apprécier!
J'ai créer un complément excel (.xla) qui rend disponible directement des fichiers excels que j'utilise régulièrement. Le problème c'est que j'utilisais filesearch. J'ai réglé le problème grâce au tuto et classefilesearch, mais le reste du code ne fonctionne pas non plus.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub VaversLast11Listes()
Dim i As Long
Dim Recherche As ClFileSearch.ClasseFileSearch
 
    'Ouverture du fichier Pythagore sélectionné
    chemin_pyth ="C:/TEST"    
    debut_nom = "11 Listes"
    'ZoneFoe = "11 Listes"
 
    Application.AskToUpdateLinks = False
 
Set Recherche = ClFileSearch.Nouvelle_Recherche
 
With Recherche
        .FolderPath = chemin_pyth
        .SubFolders = False
        .Filename = debut_nom & "*.xls"
        .MatchTextExactly = False
        .FileType = msoFileTypeAllFiles
        If .Execute(SortBy:=msoFileFindSortbyDateCreated, SortOrder:=msoSortOrderDescending) > 0 Then
            If .Execute(SortBy:=msoFileFindSortbyDateSaved, SortOrder:=msoSortOrderDescending) > 0 Then
                lien_Pyth = .FoundFiles(1)
                For Each wrkcurrent In Workbooks
                    If wrkcurrent.FullName = lien_Pyth Then
                        wrkcurrent.Activate
                        Exit Sub
                    End If
                Next
                Workbooks.Open lien_Pyth, False, True
            End If
        Else
            i = i + 1
        End If
    End With
 
    Application.AskToUpdateLinks = True
End Sub
Filename, filetype ne fonctionne pas. je voudrais savoir si vous connaissez des équivalents.

Merci beaucoup!