Re : VBA création dossier avec différentes réponses pour différentes condition
Bon si, voici la macro finale. en aillant le fichier Excel enregistré dans "C:\Documents and Settings\Test\" et les dossiers de créés dans "C:\Documents and Settings\Test\demande\"
Code :
Sub N_Dossier()
Dim dossier As String, f As String
dossier = InputBox("N° Dossier CAV", "Création du Dossier CAV")
If dossier = "" Then MsgBox "Création annulée ...": Exit Sub
f = "C:\Documents and Settings\Test\demande\" & dossier
If dir(f, vbDirectory) = "" Then
MkDir f
MsgBox "le dossier : " & dossier & " a été créé."
Else
MsgBox "le dossier : " & dossier & " existe déjà"
If dir("C:\Documents and Settings\Test\demande\" & dossier, vbDirectory) = "" Then _
MkDir ("C:\Documents and Settings\Test\demande\" & dossier)
End If
End Sub
Encore un grand MERCI pour tout