Créations Fichiers

Application.DisplayAlerts = False

Option Explicit
Sub Création_Fichiers()
    ' Export Fichier
    Dim memPath As String   'Mémorise l'emplacement du fichier ouvert
    Dim Path As String      'Défini la variable Path
    Dim nom As String
    Dim nom_1 As String       'Défini la variable nom
    Dim nom_2 As String
    Dim nom_3 As String

    ActiveWorkbook.Save                  'sauvegarde le classeur en cours
    memPath = ThisWorkbook.FullName      'Mémorise l'emplacement du fichier
    Application.DisplayAlerts = False 'Enlève les messages d'alertes Excel
    Application.ScreenUpdating = False
        
    Path = ActiveWorkbook.Path & "\"
    nom_1 = "Mon fichier 1" & ".xlsm"     'Enregistre le fichier
    nom_2 = "Mon fichier 2" & ".xlsm"
    nom_3 = "Mon fichier 3" & ".xlsm"
        
    ActiveWorkbook.SaveAs Filename:=Path & nom_1  'Enregistre le fichier dans le dossier d'origine
    ActiveWorkbook.SaveAs Filename:=Path & nom_2
    ActiveWorkbook.SaveAs Filename:=Path & nom_3
    
    Workbooks.Open Filename:=Path & nom_1
    With Workbooks(nom_1)
        .Sheets(Array("Liste Complete", "Cachée Tri", "Liste Triable 2", "Liste Triable 3")).Delete 'Supprime les onglets non pertinents
        .Close True
    End With
    
    Workbooks.Open Filename:=Path & nom_2
    With Workbooks(nom_2)
        .Sheets(Array("Liste Complete", "Cachée Tri", "Liste Triable 1", "Liste Triable 3")).Delete 'Supprime les onglets non pertinents
        .Close True
    End With
    
    'le classeur actif n'est plus celui d'origine mais: nom_3
    With ActiveWorkbook
        .Sheets(Array("Liste Complete", "Cachée Tri", "Liste Triable 2", "Liste Triable 1")).Delete 'Supprime les onglets non pertinents
        .Save
    End With
     
    Application.DisplayAlerts = True 'Remet les alertes Excel
    Application.ScreenUpdating = True
         
    Application.Workbooks.Open memPath  'Réouvre l'emplacement du fichier qui a été mémorisé
    Workbooks(nom_3).Close False            'Fermer ce classeur (la copie)
End Sub