insert > copy > paste - formules avec liaisons vers un fichier source

Bonjour,

Je veux programmer une fonction qui me permet de copier des lignes "modèles" vers un nouvel emplacement.
Les lignes modèles comportent des formules avec une liaison vers un fichier externe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' lignes destination , calculées dans une autre partie de la macro. ligdeb = 85 ligfin = 159 With Sheets("test") .Select .Range("A10:HH84").Copy 'modèle .Range("A" & ligdeb & ":HH" & ligfin & "").Insert Shift:=xlShiftDown .Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormulas) .Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormats) End With

---

Ce copier/coller fonctionne bien, ce qui ne va pas c'est que les lignes poussées vers le bas ont toujours les mêmes formules.

L'ancienne ligne 85 avait pour formule

Code:

---

='[autreFichier.xls]DansFeuille'!A80

---

poussée en ligne 160 elle a toujours la même formule alors que j'attendais

Code:

---

='[autreFichier.xls]DansFeuille'!A155

---

merci pour votre aide pour résoudre ce problème.

note : si le fichier ne contient pas de liaison vers un autre classeur, cette fonction de copie semble fonctionner.

Citation:

---

Envoyé par coyote90

Code:

---

1 2 3

With Sheets("test") .Select

---

---

Ton Select ne sert à rien pour au moins deux raisons.
D'abord, il est redondant avec le With (en gros, les deux servent à peu près à la même chose, du moins dans ce cas).
Ensuite, Select sert plutôt à sélectionner une cellule. Pour une feuille, on utilise Activate.
Donc, supprime-le et tu verras que ça marchera aussi bien (et même un peu plus vite).

Citation:

---

Code:

---

1 2	.Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormulas) .Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteFormats)

---

---

Pourquoi ne pas écrire plus simplement :

Code:

---

.Range("A" & ligdeb & ":HH" & ligfin & "").PasteSpecial (xlPasteAll)

---

Citation:

---

L'ancienne ligne 85 avait pour formule

Code:

---

='[autreFichier.xls]DansFeuille'!A80

---

poussée en ligne 160 elle a toujours la même formule alors que j'attendais

Code:

---

='[autreFichier.xls]DansFeuille'!A155

---

---

Les références à des tableaux externes ne sont pas modifiées dans la mesure où Excel ne peut pas savoir si le fichier destination a été modifié ou non.

Ta seule solution est de te pastiller par code la modification des formules déplacées. Compliqué mais faisable.