Textbox dans un .LookIn en VBA

Rebonjour,

Voilà, j'ai une textbox intitulé

textbox1

. Dans cette textbox, on insère un ou plusieurs mots et j'aimerai que ma macro recherche dans le dossier: "P:\desktop\Thibaut test macro\textbox1" avec textbox1 = les mots entrés...

j'ai été clair?

Mon bout de macro:

With Application.FileSearch
.LookIn = "P:\desktop\Thibaut test macro\" 'et là j'aimerai rajouter la variable textbox1
.FileType = msoFileTypeWordDocuments
.SearchSubFolders = True
.Execute
MsgBox ("" & .FoundFiles.Count & _
" fichiers trouvés")
For i = 1 To .FoundFiles.Count
Cells(i + 2, i + 2) = .FoundFiles(i)
Cells(i + 2, i + 3) = TextBox1
Next
End With
End Sub

c'est bon, j'ai trouvé en créant une textbox2... merci quand même...

Bon bah en fait, ça ne marche pas... l'ordi ne me trouve pas les fichiers présents dans le répertoire créé par la textbox 2...

En fait dans ma macro j'avais ajouté:

textbox2= "P:\desktop\Thibaut test macro\" & textbox1
With Application.FileSearch 
.LookIn = textbox2
.FileType = msoFileTypeWordDocuments 
.SearchSubFolders = True 
.Execute 
MsgBox ("" & .FoundFiles.Count & _ 
" fichiers trouvés") 
For i = 1 To .FoundFiles.Count 
Cells(i + 2, i + 2) = .FoundFiles(i) 
Cells(i + 2, i + 3) = TextBox2 
Next 
End With 
End Sub

Mais la macro ne fonctionne pas, elle me dit 0 fichiers word alors qu'il y en a 2 pour le test...

Salut tout le monde,

J'ai compris pourquoi ça ne marchait pas...

j'avais oublié le .value après textbox...

le code est donc:

C'est bon, j'ai trouvé... j'avais oublié de mettre .value après le & textbox1...

ce qui donne:

With Application.FileSearch

.LookIn = "P:\desktop\Thibaut test macro\" & textbox1.value

.FileType = msoFileTypeWordDocuments

.SearchSubFolders = True

.Execute

MsgBox ("" & .FoundFiles.Count & _

" fichiers trouvés")

For i = 1 To .FoundFiles.Count

Cells(i + 2, 2) = .FoundFiles(i)

Cells(i + 2, 3) = TextBox1

Next

End With

End Sub