macro copier coller

bonjour a tous

voila j'ai une longue macro qui copie des donnés d'une fichier "liste" "feuille 1", vers un fichier "facture" feuille "suivi fournisseur"

jusqu'ici rien de complexe
petit exemple

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Windows("liste.xls").Activate Range("A1").Select Selection.Copy Windows("facture.xls").Activate Range("A1").Select ActiveSheet.Paste End Sub

---

mais ce que j'aimerais faire c'est utiliser ce type de macro ci-dessous mais a cause du passage d'un fichier a l'autre, je bloque. l'exemple ci dessous fonctionne pour les cellules A1 du même fichier, je veux donc l'adapter pour les cellules A1 de 2 "woorkbooks" differents

Code:

---

1 2 3 4 5 6

Sub CopieZoneCourante2() Range("A1").CurrentRegion.Copy _ Sheets("Feuil2").Range("A1") Application.CutCopyMode = False End Sub

---

bonsoir,

comment sont ouvert tes 2 classeurs, tu les ouvre avant de lancer ta macro où c'est ta macro qui les ouvre ?

ton code il est écrit dans un des deux classeurs ?

les 2 classeurs sont ouvert

la macro est dans le fichier "liste" car c'est le fichier ou se trouve les éléments qui vont être copié vers "facture"

Lorsque tu travailles sur plusieurs classeurs à la fois, il est vivement recommandé de référencer le classeur dans lequel tu travailles avant chaque accès.

Petit exemple:

Code:

---

1 2 3 4 5

Sub CopieZoneCourante2() Workbooks("liste.xls").Range("A1").CurrentRegion.Copy _ Workbooks("facture.xls").Sheets("Feuil2").Range("A1") Application.CutCopyMode = False End Sub

---

super
ça fonctionne impec

donc ça venait de la manière de nommer le chemin des fichiers.

bon cours

merci