Créer un répertoire

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

Cliquez pour agrandir...

MkDir 'C:\NouvRepertoire'

Cliquez pour agrandir...

Workbooks('LeNomDeTonFichier.xls').SaveCopyAs Filename:='C:\Répertoire\LeNomDeTonFichier.xls'

Cliquez pour agrandir...