chercher et creer un repertoir

[David Guy]

Bonjour,
Voila le problème:
J'ai sur un classeur ,qui me sert de master un N° de moule
d'autre part j'ai sur un serveur un dossier moule contenant des sous dossier au numero des moule existant
moule __1235
__2432
__1745
etc..
mon classeur creer un deuxieme classeur l'enregistre et le nomme (pour l'instant dans un repertoir C:\Doc
ce que je désire c'est depuis excel enregistrer ce classeur dans le repertoire moule \"N° moule\mesure\fichier.xls
mais je dois tester si le dossier "N°moule" existe si non le creer idem pour le dossier "mesure"
J'ai bien trouver sur l'aide en lgne createfolder et existfolder mais je n'ai pas reussi à comprendre comment créer l'objet réclammer en debut de syntaxe
Merci
G.David

 

[David Guy]

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