bonjour à tous
Gorfael , tu peux remplacer les Variant par
Dim Fichier_En_Cours As Object
Dim fs As Object, fc As Object
sinon , en activant la reference
Microsoft Scripting RunTime , tu peux aussi ecrire
Dim Str_Chemin As String
Dim X As Integer
Dim Fichier_En_Cours As Scripting.File
Dim Str_Test As String
Dim fs As Scripting.FileSystemObject
Dim fc As Scripting.Files
Str_Chemin = CurDir
Set fs = CreateObject('Scripting.FileSystemObject')
Set fc = fs.GetFolder(Str_Chemin).Files
For Each Fichier_En_Cours In fc
If Right(Fichier_En_Cours.Name, 3) = 'doc' Then
Str_Test = Str_Test & Fichier_En_Cours.Name & vbCrLf
End If
Next
MsgBox Str_Test
bonne soirée
MichelXld