Discussion :

[emulamateur]

Bonjour,

Avec ce code, j'arrive à créer un dossier à la racine de d: du type "345678 SCHMOL vs DUGUDU"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld = oFSO.CreateFolder("D:\" & N°dossier & " " & Pour & " vs " & Contre)

Il marche impec !

J'aimerai maintenant créer des sous-dossiers "courriers", "procédure", "conclusions" ... mais je sèche (étonnant, non ?)

Quelqu'un aurait-il une idée ?

J'ai essayé "subfolder", j'ai essayé de reprendre le code et d'ajouter "courriers" ... rien n'y fait ...

[Mahefasoa]

Bonjour,
Alors,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set oFld = oFSO.CreateFolder("D:\" & N°dossier & " " & Pour & " vs " & Contre & "\courriers")
Set oFld = oFSO.CreateFolder("D:\" & N°dossier & " " & Pour & " vs " & Contre & "\procédure")
Set oFld = oFSO.CreateFolder("D:\" & N°dossier & " " & Pour & " vs " & Contre & "\conclusions")

Bon courage et @+

[emulamateur]

Merci ...

Pourquoi faire compliqué quand c'est aussi simple ...

Cela marche ! Encore merci !