FileSearch [Résolu]

Messages postés
130
Date d'inscription
jeudi 16 avril 2009
Dernière intervention
8 décembre 2015
- - Dernière réponse : cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
- 20 nov. 2009 à 13:51
Bonjour à tous, cette fois si je cherche un fichier Excel. j'ai utiliser la méthode FileSearch dans Excel, elle marchait très bien mais sous vb6 elle ne trouve rien. J'ai l'impression que l'objet FileSearch ne s'initialise pas. Poutant j'ai écrit "Dim MonExcel as object" dans la zone de déclaration des variables globales. Et dans la procédure d'initialisation de la Form j'ai écrit "Set MonExcel = CreateObject("Excel.Application")


With MonExcel.FileSearch
.NewSearch
.LookIn = Répertoire3
If CboType.Text = "FULL" Then
.FileName = "*Full.xls"
ElseIf CboType.Text = "MEDIUM" Then
.FileName = "*Medium.xls"
ElseIf CboType.Text = "BASIC" Then
.FileName = "*Basic.xls"
End If
.SearchSubFolders = False
.Execute
FichFile = .FoundFiles(1)
End With



nitho l'amateur
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
3
Merci
Salut
Pas très précis.
"elle ne trouve rien" : Déjà, avec ce code, tu dois avoir une erreur si tu tentes le FichFile = .FoundFiles(1) alors qu'il n'a rien trouvé.
Comme expliqué dans l'aide de Excel sur cette fonction, il faut tester si .Execute renvoie autre chose que 0.

Chez moi, je n'ai même pas réussi à le faire marcher, Excel semble se figer et ne plus répondre.

Si tu ne dois rechercher un fichier que dans un seul répertoire, utilise plutôt la fonction VB6 "Dir" :
  Dim sFichier As String
  sFichier = Dir("C:\Mes documents\*Full.xls")
  Do While sFichier <> ""
    MsgBox sFichier
    sFichier = Dir
  Loop


Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 99 internautes ce mois-ci

Commenter la réponse de cs_Jack

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.