Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur FileName dans Windows 2000

Erreur FileName dans Windows 2000

2 réponses
Avatar
Guy DETIENNE
Bonjour =E0 tous,

Je rencontre un petit probl=E8me avec du code VBA.
Ce code fonctionne tr=E8s bien en Windows NT 4 mais pas en=20
Windows 2000.

Une erreur se produit sur .FileName =3D "*"
Une petite id=E9e ?

Merci =E0 tous

Guy DETIENNECODE:


Sub test()
Dim fs As Object

Set fs =3D Application.FileSearch
=20
With fs
.LookIn =3D "C:"
.FileName =3D "*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont =E9t=E9=20
trouv=E9s."
For i =3D 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a =E9t=E9 trouv=E9."
End If
End With

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dédé
Salut Guy !

j'ai fais un simple copié-collé de ton code et chez moi (Windows 2000 Pro )
il fonctionne sans problème !!!

je vois pas ce qui ne pourrait pas fonctionner ....

Salutations
Dédé

--
Pour répondre, enlever le NOSPAM
"Guy DETIENNE" a écrit dans le message de
news:092b01c36b9d$ecdf71d0$
Bonjour à tous,

Je rencontre un petit problème avec du code VBA.
Ce code fonctionne très bien en Windows NT 4 mais pas en
Windows 2000.

Une erreur se produit sur .FileName = "*"
Une petite idée ?

Merci à tous

Guy DETIENNECODE:


Sub test()
Dim fs As Object

Set fs = Application.FileSearch

With fs
.LookIn = "C:"
.FileName = "*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été
trouvés."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With

End Sub
Avatar
michdenis
Bonjour Guy,

Si tu définis ce paramètre de la méthode FileSearch comme ceci :
.Filename = "*"

Tu vas obtenir tous les fichiers qui appartiennent aux applications "office"

Si tu veux obtenir tous les fichiers même ceux qui ne font pas parti de Microsoft Office , utilise plutôt ceci :
.Filename = "*.*"


'------------------------------
Sub test()
Dim fs As Object

Set fs = Application.FileSearch

With fs
'Nouvelle recherche
.NewSearch
'Recherche dans tous les sous-répertoires
'Mettre à faux pour le cas contraire
.SearchSubFolders = True
.LookIn = "C:"
.Filename = "*.*" 'tous les fichiers
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With

End Sub
'------------------------------


Salutations!



"Guy DETIENNE" a écrit dans le message de news:092b01c36b9d$ecdf71d0$
Bonjour à tous,

Je rencontre un petit problème avec du code VBA.
Ce code fonctionne très bien en Windows NT 4 mais pas en
Windows 2000.

Une erreur se produit sur .FileName = "*"
Une petite idée ?

Merci à tous

Guy DETIENNECODE:


Sub test()
Dim fs As Object

Set fs = Application.FileSearch

With fs
.LookIn = "C:"
.FileName = "*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été
trouvés."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With

End Sub