XL 2019 Exporter une feuille dans un classeur (ouvert ou fermé)

Jacky67 à dit:

Bonjour,
Dans l'exemple les classeurs cibles sont dans le même répertoire que le classeur source
Essaye cette macro

VB:

Sub copiefeuille()
    Dim Chemin$, Fichier$
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin)
    Application.EnableEvents = False: Application.DisplayAlerts = False: Application.ScreenUpdating = False
    Do While Fichier <> ""
        If Fichier <> ThisWorkbook.Name Then
            Workbooks.Open Filename:=Chemin & Fichier
            If IsError(Evaluate("='" & "PARAM" & "'!A1")) Then
                ThisWorkbook.Sheets("PARAM").Copy After:=Workbooks(Fichier).Sheets(1)
            Else
                ThisWorkbook.Sheets("PARAM").Cells.Copy Workbooks(Fichier).Sheets("PARAM").[a1]
            End If
            Workbooks(Fichier).Close True
        End If
        Fichier = Dir
    Loop
    Application.EnableEvents = True
End Sub

Cliquez pour agrandir...