coper coller couleur avec liaison

[TEMAGOULTFARID]

Bonjour a vous tous,
j'ai trouvé ce fichier de Pierrejean et un tres bon fichier me concernant, cependant , dans le module il y ce code :
Private Sub Worksheet_Activate()
Sheets("Feuil1").Range("B8:E8").Copy Destination:=Range("B8")
Sheets("Feuil1").Range("B1414").Copy Destination:=Range("B14")
End Sub
et fonctionne très bien tel qu'il a été conçu, mais serait-il possible de modifier la ligne en gars vers un autre classeur .
j'ai beau chercher, mais je calle, un petit coup de main svp
par avance, merci

 

[Jacky67]

Bonsoir,
Cela pourrait ressembler à ceci
En adaptant les noms de dossier et fichier
Dans l'exemple
le dossier et le même que le fichier source
et le nom du classeur de destination est ==>Copie de nougatClasseur2.xlsm

Private Sub Worksheet_Activate()
    Dim Dossier As String, Fichier As String
    Application.ScreenUpdating = False
    Sheets("Feuil1").[B8:E8].Copy [B8]
    Dossier = ThisWorkbook.Path & "\"    '**** A adapter
    Fichier = "Copie de nougatClasseur2.xlsm"    '*****A adapter
    Workbooks.Open Filename:=Dossier & Fichier
    ThisWorkbook.Sheets("Feuil1").[B14:D14].Copy ActiveWorkbook.Sheets("Feuil2").[b14]
    Workbooks(Fichier).Close True
    Application.ScreenUpdating = True
End Sub