mickaelbou
Messages postés3Date d'inscriptionlundi 16 août 2010StatutMembreDernière intervention11 avril 2011
-
1 févr. 2011 à 12:21
mickaelbou
Messages postés3Date d'inscriptionlundi 16 août 2010StatutMembreDernière intervention11 avril 2011
-
11 avril 2011 à 15:35
Bonjour,
Je suis actuellement en train de travailler sur une macro qui me renverrai la liste des documents Excel d'un Dossier, seulement je bloque au niveau de la variable LookIn de la fonction FileSearch.
J'ai beau mettre :
With Application.FileSearch
Dir = "D:/"
.LookIn = Dir
Msgbox(.LookIn)
Il me renvoie toujours "C:/MyDocuments" par défaut
c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 1 févr. 2011 à 13:30
Bonjour
A adapter
Function Chercheexcel()
With Application.FileSearch
.NewSearch
.LookIn = "d:"
.FileName = "*.xls"
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
CHEMIN_EXCEL = .FoundFiles(i)
Next i
Else
MsgBox "fichier excel non trouvé"
End If
End With
End Function
mickaelbou
Messages postés3Date d'inscriptionlundi 16 août 2010StatutMembreDernière intervention11 avril 2011 11 avril 2011 à 15:34
J'ai trouvé une autre fonction qui fonctionne bien :
Set Obj = CreateObject("Scripting.FileSystemObject")
Set Doss = Obj.Getfolder("D:")
Set F = Doss.Files
'F représente les Fichiers du dossier Doss donc le D:/ apres il te suffit de faire :