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