textbox VBA

[souri84]

Bonjour,



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...



Ai-je é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, 2) = .FoundFiles(i)

Cells(i + 2, 3) = TextBox1

Next

End With

End Sub



D’avance merci pour votre réponse,



Thibaut Lefebvre

 

[souri84]

Re : textbox VBA

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