Discussion :

[Johnour]

Bonjour, voici mon problème. Nous avons changer de version au travail et la macro ne fonctionne plus sur la version 2010. Voici la macro :

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
Sub LectureFichiersDonnées()
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\Mes documents\Galbes\TXT_Files"
    .FileName = "*.txt"
    If .Execute > 0 Then
        MsgBox .FoundFiles.Count & " Fichier(s) ont été trouv és.", vbInformation
        j = .FoundFiles.Count
        jj = Right$(Str$(j), Len(Str$(j)) - 1)
        Sheets("Fichiers").Select
        Cells.ClearContents
        For i = 1 To j
            Range("A" & Right$(Str$(i), Len(Str$(i)) - 1)).Select
            ActiveCell.Value = .FoundFiles(i)
            'MsgBox .FoundFiles(i)
        Next i
    Else
        Sheets("BP").Select
        MsgBox "Aucun fichier n'a été trouvé."
    End If
End With
    Sheets("BP").Select
    ActiveSheet.Shapes("Drop Down 6").Select
    With Selection
        .ListFillRange = "Fichiers!$A$1:$A$" & jj
        .LinkedCell = "Fichiers!$I$1"
        .DropDownLines = j
        .Display3DShading = False
    End With
    Worksheets("Fichiers").Cells(1, 9).Clear
Range("B8").Select
End Sub

Merci à vous

[Philippe Tulliez]

Bonjour,
Effectivement, l'objet FileSearch n'est plus supporté depuis la version 2007 .
Une réponse qui pourrait peut-être t'aider ici http://silkyroad.developpez.com/vba/classefilesearch/ ou là http://www.developpez.net/forums/d11...e-2007-2010-a/

[Johnour]

Merci de votre réponse, mais est ce que ça marche avec Excel 2010? Sachant que c'est pour le travail et que je n'ai accès a excel chez moi. Et je crois que j'avais déjà vu cette solution sans réussir à l'appliquer.

Concrètement je voudrai modifier la formule pour ne plus jamais avoir d'autres problèmes.

[Philippe Tulliez]

Bonsoir,
Dans le deuxième lien que j'ai donné, je crois que l'on propose une solution avec FSO qui fonctionne avec les versions 2003 et supérieures et d'ailleurs il me semble que le titre de la discussion Application.FileSearch sur Office 2007 et 2010 est suffisamment explicite il me semble.

[Johnour]

Re bonsoir Phillippe,

J'ai essayer chez moi avec la version 2007 et maintenant je bloque a la fonction il.execute>0. Je ni arrive vraiment pas.

Au boulot avec la version 2010 c'est encore pire!!!!

Est ce que vous pouvez me faire les codes pour la version 2007, je transférais les fichiers chez moi si ça marche. De plus au boulot je n'ai pas trop le droit d'aller sur des forums.

Merci d'avance pour votre aide.

(L'extraction de mon fichier doit marcher pour hier, patron tombe dessus ce matin! :-( )