Discussion :

[bosk1000]

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 :

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

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 :

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

1
2
3
4
5
6
 
Sub CopieZoneCourante2()
    Range("A1").CurrentRegion.Copy _
       Sheets("Feuil2").Range("A1")
    Application.CutCopyMode = False
End Sub

[JackOuYA]

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 ?

[bosk1000]

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"

[decondelite]

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 :

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

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

[bosk1000]

super
ça fonctionne impec

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

bon cours

merci