Private Sub CommandButton1_Click()
Dim chemin As String, commande As String
Dim repertoire_existe As String, repertoire As String
Call scolarite ' fonction appelée qui détermine Anneesco
repertoire = "C:\mondossier\" & Anneesco & "\"
'MsgBox repertoire
On Error Resume Next
repertoire_existe = GetAttr(repertoire) And vbDirectory
If repertoire_existe = "" Then
chemin = "C:\mondossier\" & Anneesco & "\"
ChDrive "C"
commande = Environ("comspec") & " /c mkdir " & chemin
Shell commande, 0
MsgBox "Le dossier " & Anneesco & " a été créé avec succès dans le répertoire C:\mondossier\ !" '<-- jusque là ça fonctionne
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=chemin & "conférencier.xlsm"
ActiveWorkbook.Close
end if
end sub