Bonjour,
Je suis tout nouveau chez Developez.com, et j'arrive avec une question déjà débattue plusieurs fois. Il s'agit de la fonction FileSearch, plus supportée depuis la version 2007, et les solutions apportées pour XL 2007 que j'ai trouvées sur le site ne fonctionnent pas sur la version 2010 installée tout fraichement sur mon poste...

En gros, voici mon code:

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
Private Sub Workbook_Open()
 
ActiveSheet.Unprotect
Dim i As Integer
 
Range("b11:b250").ClearContents
Range("a7").ClearContents
Range("g20").Value = "Mise à jour des données... ... ... Merci de patienter !   :)"
 
    With Application.FileSearch
        .NewSearch
        .LookIn = Range("c4") & "\"     '< c'est une donnée entrée par l'opérateur, mais il s'agit surtout d'un emplacement réseau
        .SearchSubFolders = True
        .Filename = "*as300*.*"
    End With
 
    With Application.FileSearch
        If .Execute() > 0 Then
            Range("b11").Select
            For i = 1 To .FoundFiles.Count
                ActiveCell.Value = .FoundFiles(i)
                ActiveCell.Offset(1, 0).Range("A1").Select
            Next i
        Else
            MsgBox "Aucun fichier correspondant à ce critère"
        End If
        Range("A11").Select
    End With
 
 Range("g20").ClearContents
 
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowSorting:=True, AllowFiltering:=True
 
End Sub
Le but est de recherchez tous les fichiers d'une racine réseau (avec tous ses sous répertoires...) contenant les caractères "AS300", et d'en afficher la liste sur ma feuille avec le path...

Si quelqu'un pouvait m'aider, ça m'enlèverait une sacré épine du pied, parceque depuis que xl2010 est installé sur mon poste, je passe une moitié de mon temps à traficoter sans succès mon code, et l'autre moitié de mon temps à me palucher cette fameuse recherche pour effectuer la mise à jour à la main... truc de fou!
Un Grand Merci A Vous !

Thibe