VBA problème reconnaissance macro Excel 2007 Fermé

Question

Bonjour à tous,

J'étais sur Excel 2003 et en passant sur Excel 2007, la macro suivante ne fonctionne plus...

Voici la macro :

Sub EDITIONLISTEDEFICHIERS()
Set fs = Application.FileSearch
With fs
.LookIn = "\Mes documents\julien37\Extraction"
.Filename = "*.EXT"
If .Execute > 0 Then
    MsgBox "Nombre de fichiers  :  " & .FoundFiles.Count
    For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(i)
    Next i
Else
End If
Range("A1").Select
ActiveCell.Value = .FoundFiles.Count
Range("A6").Select
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Range("A1").Select
Next i
Range("A6").Select
End With

L'erreur reconnu par Excel se situe dans "Set fs = Application.FileSearch
                                                            With fs"

Excel 2007 ne comprend pas cette macro.

Si quelqu'un peut m'aider à trouver la solution, je le remerci d'avance,

Merci à tous d'avance.

m@rina · Answer

Bonjour,

Effectivement la fonction FileSearch n'existe plus sous Excel 2007... On se demande pourquoi !

Tu trouveras ici une fonction qui pourra la remplacer :
http://excelabo.net/trucs/filesearch07

m@rina

julien37 · Answer

Merci beaucoup marina pour ta réponse et ta rapidité.

J'ai regardé le lien que tu m'as envoyé, et n'étant pas un expert en vba, je n'arrive pas à savoir ce qu'il faut changer dans ma macro.

Puis-je te demander ce renseignement supplémentaire???

Merci d'avance

Cordialement,

m@rina · Answer

Bonsoir,

Excuse-moi pour la réponse tardive, j'étais occupée ailleurs ! ;)

S'il s'agit de lister tes fichiers, il suffit tout simplement que tu copies colles la fonction personnalisée ainsi que la macro FileSearch2007.

Tu supprimes ta macro actuelle et tu mets tout ça à la place.

Tu remplaces la ligne
 sFile = Dir(path & IIf(Right(path, 1) = "", "", "") & "*.xls")par :
 sFile = Dir("\Mes documents\julien37\Extraction" & "*.EXT")

Et si tu veux que les fichiers soient listés dans la colonne A, tu remplaces "E1" dans la macro par "A2" par exemple.

m@rina

VBA problème reconnaissance macro Excel 2007

3 réponses

Discussions similaires