XL 2019 [Résolu] Sauvegarde des feuilles en fichiers séparés

[michelw]

Bonjour,
Est-il possible de sauvegarder les feuilles d'un classeur.xlsx sous forme de fichiers séparés .xlsx qui ont le nom de la feuille considérée dans le répertoire d'origine. En vous remerciant pour votre réponse.

 

[Sequoyah]

Bonjour michelw
vois si te ça te convient

Option Explicit

Sub test()
    
    Dim Wks As Worksheet
    Dim MonChemin As String, MonFichier As String
    
    MonChemin = ThisWorkbook.Path & "\"
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    For Each Wks In ThisWorkbook.Sheets
        
        MonFichier = Wks.Name & ".xlsx"
        Wks.Copy
        Application.ActiveWorkbook.SaveAs MonChemin & MonFichier
        Application.ActiveWorkbook.Close False
        
    Next Wks
    
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
    
End Sub

Cordialement

 

[michelw]

Merci pour cela.