Public Sub MakeRep()
Dim Rep As FileSystemObject
Dim vrtWrileEOF As Variant
Const strRepMain As String * 6 = 'C:\XLD'
Const strRepTemp As String * 17 = 'C:\XLD\Temp_Files'
On Error Resume Next
' Aucune information déjà présente ne sera écrasé lors de ce processus
Set Rep = CreateObject('Scripting.FileSystemObject')
With Rep
.CreateFolder (strRepMain)
End With
Set Rep = Nothing
Set vrtWrileEOF = Nothing
On Error GoTo 0
End Sub