recopie auto de plusieurs onglets vers nouveau classeur

[wang]

Bonjour,
je découvre ce forum et espère que quelqu'un pourra m'aider.

J'ai 1 classeur A, contenant plusieurs onglets, je souhaite copier avec liaison une plage de cellules (A11; G27) de chaque onglet vers un classeur B.

Quelqu'un aurait-il une macro à me proposer ??
Merci .

 

[ziopizza]

Re : recopie auto de plusieurs onglets vers nouveau classeur

Bonjour Wang,
Ce code à placer dans un module de ton classeurA.
Il faut que tes 2 classeurs sois ouvert, et partir de ton ClasseurA

Sub tt()
For i = 1 To Workbooks("Classeurb").Sheets.Count
Sheets("Feuil1").Activate
Workbooks("Classeurb").Sheets(i).Range("a11:g27") = Sheets("feuil1").Range("a11:g27").Value
Next i
End Sub
Salut
Yves

 

[myDearFriend!]

Re : recopie auto de plusieurs onglets vers nouveau classeur

Bonjour wang, ziopizza, le Forum,

Sauf erreur, wang souhaite copier la plage du classeur A vers B avec liaison...

Une façon de faire :

[SIZE=2]Sub CollageLiaison()
[COLOR=navy]Dim [/COLOR]F[COLOR=navy] As [/COLOR]Worksheet
      Application.ScreenUpdating = [COLOR=navy]False[/COLOR]
      [COLOR=navy]For Each[/COLOR] F[COLOR=navy] In [/COLOR]Workbooks("ClasseurA").Sheets
            F.Range("A11:G27").Copy
            Application.Goto Workbooks("ClasseurB").Sheets(F.Name).Range("A11")
            ActiveSheet.Paste [B]Link:=[COLOR=navy]True[/COLOR]
[/B]      [COLOR=navy]Next[/COLOR] F
      Application.ScreenUpdating = [COLOR=navy]True
End[/COLOR] Sub[/SIZE]

Bien entendu, cet exemple suppose que le classeur B possède le même nombre d'onglets et avec les mêmes noms que le classeur A.

Cordialement,

 

[wang]

Re : recopie auto de plusieurs onglets vers nouveau classeur

Merci beaucoup !
la dernière macro indiquée fonctionne et répond à ce que je cherchais.

encore merci du coup de main🙂