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

[farid]

Bonjour,

Actuellement, j'ai un dossier, dans ce dossier le classeur "Source" dans lequel, j’ai intégré votre macro en modifiant la ligne cible " classeurCible = "1.xlsm". Et je copie bien la feuille source nommée "PARAM" vers le classeur 1. J'ai déjà un bout de vba qui fonctionne, mais que pour un seul classeur.

Les questions sont :

- Est-ce possible à partir du classeur source de copier la feuille uniquement "PARAM" pas seulement vers le classeur 1, mais vers tous les classeurs dans ce même dossier.

- La faisabilité de copie à partir du fichier source, ouvrir le classeur 1 coller, fermer/ ouvrir classeur 2 fermer/ et ainsi de suite.

- La faisabilité lors du collage de la feuille dans les classeurs et que si ces derniers ont déjà une feuille qui est nommée « PARAM », de pouvoir supprimer celle-ci et de le remplacer par celle du fichier source.

Par avance merci pour votre retour.

 

[Jacky67]

Bonjour,

Actuellement, j'ai un dossier, dans ce dossier le classeur "Source" dans lequel, j’ai intégré votre macro en modifiant la ligne cible " classeurCible = "1.xlsm". Et je copie bien la feuille source nommée "PARAM" vers le classeur 1. J'ai déjà un bout de vba qui fonctionne, mais que pour un seul classeur.

Les questions sont :

- Est-ce possible à partir du classeur source de copier la feuille uniquement "PARAM" pas seulement vers le classeur 1, mais vers tous les classeurs dans ce même dossier.

- La faisabilité de copie à partir du fichier source, ouvrir le classeur 1 coller, fermer/ ouvrir classeur 2 fermer/ et ainsi de suite.

- La faisabilité lors du collage de la feuille dans les classeurs et que si ces derniers ont déjà une feuille qui est nommée « PARAM », de pouvoir supprimer celle-ci et de le remplacer par celle du fichier source.

Par avance merci pour votre retour.

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

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

 

[farid]

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

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

Bonjour Jacky
j'espère que tu vas bien.
Je te remercie pour ton retour et la solution qui fonctionne parfaitement .
Bien à toi
Farid