FileSearch.FileName en VBA Excel

Résolu
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 4 avril 2006 à 17:52
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 4 avril 2006 à 18:02
Salutation,

Je cherche un moyen d'afficher mes Police mais pas moyen !
J'ai essayé ça :

Set fs = Application.FileSearch
With fs
.LookIn = "C:\WINDOWS\Fonts"
.FileName = "*.ttf"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
End If
End With

Il me dit "Erreur d'exécution 5
Argument ou appel de procédure incorrect"

Quelqu'un aurait-il une solution ?

Mortalino

1 réponse

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
4 avril 2006 à 18:02
C'est fait autrement mais ta4444 a repondu à mon problème :

http://www.vbfrance.com/forum.v2.aspx?ID=706248&post=ok

Merci à lui

Bonne soirée à tous !

Mortalino
3
Rejoignez-nous