Euh réqu'a
bon laisser tomber j'ai trouvé un truc qui marche
Sub testoucree()
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\doc")
Set sf = f.SubFolders
For Each f1 In sf
s = f1.Name
If s = "th" Then
t = 1
End If
Next
If t = 1 Then
ChDir "c:\doc\th"
Range("a1").Value = "th existe"
Else
Range("a1").Value = "th n'existait pas"
ChDir "c:\doc"
MkDir "c:\doc\th"
ChDir "c:\doc\th"
End If
End Sub
merci de m'avoir lu
G.David