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