|
|
|
|
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.
Configuration: Windows XP Internet Explorer 7.0
Bonjour,
|
Bonsoir,
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 - "Sur le forum bureautique, on pose des questions concernant la bureautique..." - "Ah bon ???" |
Activer macro excel 2007 Compatibilité macro excel office 2007 Cours vba excel 2007 Créer macro excel 2007 nouveau fichier Excel 2007 vba do while Excel vba bouton macro Initiation macro excel 2007 Macro excel 2007 Macro excel 2007 colorier une cellule en fonction d une autre Macro excel 2007 impression recto verso Macro excel 2007 plus lente Macro excel 2007 tutorial pdf Macro excel vba Macro excel vba chercher comparer des valeurs dans des feuilles Menu macro excel 2007 Office 2007 compatibilité des macro excel 2003 Ouvrir une macro excel 2003 en 2007 Supprimer plusieurs macro excel 2007
