Discussion :

[Vivi03]

Bonjour,
Je vous adresse ma demande après avoir fait des recherches sur différents forums. Je pensais trouver facilement la solution mais ce n’est pas le cas.
Je précise que je ne suis pas une pro de VBA !

Besoin : je veux copier un classeur A vers un nouveau classeur B. Dans le classeur A, j’ai plusieurs onglets avec des formules qui utilisent des cellules d’un autre onglet de ce classeur (onglet 1a du classeur A avec des formules utilisant des cellules de l’onglet 2a de mon classeur A)
Pb : lorsque je fais la copie vers mon classeur cible B, dans l’onglet 1b, la formule fait référence à l’onglet 2a de mon classeur initial A. Je voudrais que la formule fasse référence à l’onglet 2b de mon classeur cible B.
J’ai utilisé la fonction classique copy / pasteSpecial (avec Paste:=xlPasteAll ou Paste:=xlPasteFormulas ) mais je n’arrive pas à obtenir le résultat souhaité.

J’ai aussi essayé d’utiliser des zones nommées dans mes formules mais j’ai le même problème, dans le fichier cible, la formule est bien copiée mais la zone nommée fait référence au fichier d’origine.
Je voudrais éviter d’avoir à coder toutes mes formules, ce qui est une solution mais très lourde

J’espère avoir été claire. Merci beaucoup pour votre aide

[Patrice740]

Bonjour,

Pour conserver les liaisons, il faut copier les 2 feuilles simultanément, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub Test()
Dim A As Workbook
Dim B As Workbook
Dim f As Variant
   Set A = Workbooks("Classeur1")
   Set B = Workbooks("Classeur2")
   f = Array("1a", "2a")   'nom des 2 feuilles
   A.Worksheets(f).Copy Before:=B.Worksheets(1)
End Sub

[Vivi03]

Bonjour,

Merci beaucoup Patrice pour votre réponse et votre aide . Je vais le tester. Je n'aurais jamais trouvé toute seule !