Copier coller une feuille portant un nom identique

Bonjour,

J'espère que ceci sera mon dernier appel à l'aide, je dois clôturer mon travail pour mercredi au plus tard.

Je vous résume la situation...

J'ai un fichier A qui contient plus d'une centaine de feuilles et une quasi infinité de données

J'ai un fichier B qui actuellement contient uniquement des feuilles dont le nom est identique à celle du fichier A.

Les deux fichiers A et B sont toujours ouverts.

Je souhaiterais dans le fichier B sur la feuille Nom_1 par exemple enregistrer une macro dont le message serait: dans le fichier A (ouvert) copie la feuille Nom_1 et colle les données dans cette feuille (fichier B feuille Nom_1).

J'avoue être totalement à la ramasse ! Pouvez-vous m'aider ?

Belle journée,

Thomas

Bonjour,

Voici une macro pour copier les données de la feuille active du Classeur_A vers la feuille du Classeur_B portant le même nom.

Dans l'exemple, la macro est placée dans le Classeur_B.

Sub Copier()
Dim WkS As Workbook, WkC As Workbook
Dim Reponse As Integer
    Set WkS = Workbooks("Classeur_A.xlsx") 'Classeur Source
    Set WkC = Workbooks("Classeur_B.xlsm") 'Classeur Cible
    Reponse = MsgBox("Voulez-vous copier les données de la feuille " & ActiveSheet.Name & " ?", vbYesNo + vbQuestion, "COPIE DES DONNEES DE LA FEUILLE")
    If Reponse = vbYes Then
        On Error Resume Next
        WkS.Sheets(ActiveSheet.Name).Cells.Copy
        ActiveSheet.Paste WkC.Sheets(ActiveSheet.Name).Cells
        Application.CutCopyMode = False
    End If
End Sub

A+