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.
Filename, filetype ne fonctionne pas. je voudrais savoir si vous connaissez des équivalents.
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
Merci beaucoup!
Partager