Bonjour,
 
Avec le code suivant, après compilation VB m'indique une erreur : un objet est requis (erreur 424)
 
    Set file_figures = Application.FileSearch
    With file_figures
        .LookIn = App.Path & "\figures"
        .SearchSubFolders = False 'true
        .FileName = "figure*.jpg"
        .Execute
    End With
Je pense qu'il faut que je fasse appelle à une référence pour que ca marche, mais laquelle ?  
Merci

c'est tout ce que tu as fait ? tu n'as pas l'impression d'avoir oublié un CreateObject("Word.Application" ) quelque part ?
les docs, c'est fait pour être lues, il ne suffit pas de récupérer bètement de bouts de code et de les utiliser sans réflechir

D'accord, c'est un code que j'avais tapé sur excel et qui marchait très bien. Donc conclusion son importation sur VB n'est pas possible directement.
Alors es ce qu'il n'existe pas de fonction similaire sans MS office.
Merci

ben si c'est possible, faut juste ajouter la référence au fichier msword.olb (Microsoft Word Object Library)

D'accord mais mon programme, je veux qu'il tourne sur plusieurs ordinateur, donc si ceux-ci ne possèdent pas Word, mon programme ne va pas marcher.
Es ce qu'il existe pas une fonction provenant de windows même par exemple, pour effectue le même travail.

Excuse moi, je répète ma question car j'en ai besoin pour mon boulot.
Donc ma question est :
Existe-t-il une fonction recherche (qui ne fait pas appel au VBA) comme dans le code tout en haut, mais en VB.
MERci.

Bonsoir,
On peut utiliser la fonction Dir qui fonctionne en VB et VbA :
 
Sub Test()
Dim Répertoire
Dim Liste()
Répertoire = App.Path & "\figures\" '
ChDir Répertoire
Temp = Dir("figure*.jpg" )
Compte = -1
    While Temp <> ""
        Compte = Compte + 1
        Temp = Dir()
    Wend
If Compte > -1 Then
    ReDim Liste(Compte)
    Liste(0) = Dir("figure*.jpg" )
    msg = Liste(0)
    For i = 1 To Compte
        Liste(i) = Dir()
        msg = msg + Chr(10) & Liste(i)
    Next i
MsgBox msg
End If
End Sub
 
Bon courage
Epéna

Merci, je vais tester cela.

y en a vraiment qui manquent de cours de politesse !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!