Copier une plage d'un autre fichier ?

**dolin007** · 17/11/2009, 13h21

Bonjour à tous,

Est-il possible de copier des plages de cellules situées sur des classeurs fermés ?

Je suppose qu'il y a un code pour ça (en renseignant l'emplacement du classeur), mais je n'ai rien trouvé sur l'aide d'Excel.

Voilà ce que j'ai jusque là, vos réponses me seront trés précieuses.

En gros c'est une mise à jour que je veux faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Sub miseajour()
Call Histo
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("A2:A1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("B2:B1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("C2:C1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("D2:D1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("E2:E1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("F2:F1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("G2:G1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("H2:H1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("I2:I1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("J2:J1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("K2:K1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("L2:L1000").ClearContents
Workbooks.Open Filename:="ARTICLE PR06.XLS"
Workbooks.Open Filename:="ARTICLE PR04.XLS"
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("D10:D1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("A2").Paste
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("J10:J1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("B2").Paste
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("K10:K1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("E2").Paste
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("H10:H1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("H2").Paste
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("V10:V1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("K2").Paste
Workbooks("ARTICLE PR04").Sheets("ARTICLE PR04").Range("D10:D1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("C2").Paste
Workbooks("ARTICLE PR04").Sheets("ARTICLE PR04").Range("J10:J1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("D2").Paste
Workbooks("ARTICLE PR04").Sheets("ARTICLE PR04").Range("K10:K1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("F2").Paste
Workbooks("ARTICLE PR04").Sheets("ARTICLE PR04").Range("E10:E1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("I2").Paste
Workbooks("ARTICLE PR04").Sheets("ARTICLE PR04").Range("H10:H1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("J2").Paste
Workbooks("ARTICLE PR04").Sheets("ARTICLE PR04").Range("V10:V1000").Copy
Workbooks("OADL").Sheets("Feuille_SAP_adresses").Range("L2").Paste
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("A1").Copy
Workbooks("OADL").Sheets("Accueil").Range("D23").Paste
Workbooks("ARTICLE PR06").Close
Workbooks("ARTICLE PR04").Close
End Sub

**rvtoulon** · 17/11/2009, 13h48

Slt,
oui il est possible de copier des valeurs à partir de fichiers fermés. Une petite recherche sur le site te donneras ceci
FAQ:
http://http://excel.developpez.com/f...lasseursFermes

ou Tutos:
http://http://silkyroad.developpez.c...asseursFermes/

De plus il ya sur le forum de nombreuses réponses à cette question.
Bonne Lecture A+

**dolin007** · 17/11/2009, 14h49

Merci rvtoulon mais je ne trouve pas ce que je cherche, ou je ne suis pas assez conaisseur en vba pour comprendre tes solutions.

Donc je n'y arrive toujours pas...

J'ai modifié ma programmation en spécifiant d'abord le chemin des fichiers ou je veux copier les plages de cellules, mais rien n'y fait...

svp Aidez moi!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
 
Sub miseajour()
Call Histo
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("A2:A1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("B2:B1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("C2:C1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("D2:D1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("E2:E1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("F2:F1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("G2:G1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("H2:H1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("I2:I1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("J2:J1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("K2:K1000").ClearContents
ThisWorkbook.Sheets("Feuille_SAP_adresses").Range("L2:L1000").ClearContents
Application.Workbooks.Open "W:\SAP\OADL\EXTRACTIONS\ARTICLE PR06.xls"
Application.Workbooks.Open "W:\SAP\OADL\EXTRACTIONS\ARTICLE PR04.xls"
Application.Workbooks.Open "W:\SAP\OADL\EXTRACTIONS\EXPE PR06.xls"
Windows("ARTICLE PR06.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR06").Range("D10:D1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("A2").Paste
Windows("ARTICLE PR06.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR06").Range("J10:J1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("B2").Paste
Windows("ARTICLE PR06.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR06").Range("K10:K1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("E2").Paste
Windows("ARTICLE PR06.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR06").Range("H10:H1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("H2").Paste
Windows("ARTICLE PR06.xls").Activate
Workbooks("ARTICLE PR06").Sheets("ARTICLE PR06").Range("V10:V1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("K2").Paste
Windows("ARTICLE PR04.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR04").Range("D10:D1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("C2").Paste
Windows("ARTICLE PR04.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR04").Range("J10:J1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("D2").Paste
Windows("ARTICLE PR04.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR04").Range("K10:K1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("F2").Paste
Windows("ARTICLE PR04.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR04").Range("E10:E1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("I2").Paste
Windows("ARTICLE PR04.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR04").Range("H10:H1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("J2").Paste
Windows("ARTICLE PR04.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR04").Range("V10:V1000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_adresses").Range("L2").Paste
Windows("ARTICLE PR06.xls").Activate
ActiveWorkbook.Sheets("ARTICLE PR06").Range("A1").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Accueil").Range("D23").Paste
Windows("EXPE PR06.xls").Activate
ActiveWorkbook.Sheets("EXPE PR06").Range("B7:B2000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_sorties").Range("A4").Paste
Windows("EXPE PR06.xls").Activate
ActiveWorkbook.Sheets("EXPE PR06").Range("E7:E2000").Select
Selection.Copy
Windows("OADL.xls").Activate
ActiveWorkbook.Sheets("Feuille_SAP_sorties").Range("B4").Select
Selection.Copy
Windows("EXPE PR06.xls").Activate
Workbooks("EXPE PR06").Sheets("EXPE PR06").Range("G7:G2000").Select
Selection.Copy
ActiveWorkbook.Sheets("Feuille_SAP_sorties").Range("C4").Paste
Workbooks("ARTICLE PR06").Close
Workbooks("ARTICLE PR04").Close
Workbooks("EXPE PR06").Close
End Sub

**mercatog** · 17/11/2009, 14h59

Remarque:

Code :

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

Sheets("Feuille_SAP_adresses").Range("A2:L1000").ClearContents

suffit (moins de lignes: plus de visibilité)
Essayes en outre d'instancier tes classeurs (et éventuellement tes feuilles)
genre:

Code :

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

1
2
3
4
5
Dim awbk as workbook, wbk1 as workbook
set awbk=activeworkbook
 
Set wbk1 = Workbooks.Open("W:\SAP\OADL\EXTRACTIONS\ARTICLE PR06.xls")
wbk1.Sheets("ARTICLE PR06").Range("J10:J1000").Copy awbk.Sheets("Feuille_SAP_adresses").Range("B2")

à adapter
sans select, ni activate, ni presse papier

Copier une plage d'un autre fichier ?

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager