Public Repertoire As String
Public Sous_Rep_1 As String
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sauve
Cancel = True
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Sous_Rep_1 & "\"
.FilterIndex = 2
.AllowMultiSelect = False
.Show
End With
End Sub
Sub Sauve()
Repertoire = "I:\Toto"
Sous_Rep_1 = "I:\Toto\Toto_1"
Creation_Repertoire Repertoire
Application.EnableEvents = False
On Error Resume Next
Cancel = True
End Sub
Sub Creation_Repertoire(Repertoire As String)
If Dir(Repertoire, vbDirectory) = "" Then
MkDir Repertoire
End If
If Dir(Sous_Rep_1, vbDirectory) = "" Then
MkDir Sous_Rep_1
End If
End Sub