Sujet Précédent Sujet Suivant

VBA problème reconnaissance macro Excel 2007

Fermé
julien37 - 24 juin 2009 à 09:59
m@rina Messages postés 20225 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 mai 2024 - 25 juin 2009 à 22:53
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.
A voir également:

3 réponses

Réponse 1 / 3
m@rina Messages postés 20225 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 mai 2024 11 283
25 juin 2009 à 22:53
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
1
Réponse 2 / 3
m@rina Messages postés 20225 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 18 mai 2024 11 283
24 juin 2009 à 10:04
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
0
Réponse 3 / 3
julien37
24 juin 2009 à 10:08
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,
0