VBA problème reconnaissance macro Excel 2007
julien37
-
m@rina Messages postés 26524 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 26524 Date d'inscription Statut Contributeur Dernière intervention -
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.
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:
- VBA problème reconnaissance macro Excel 2007
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Reconnaissance musique en ligne sans télécharger - Guide
- Word et excel gratuit - Guide
3 réponses
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
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
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
