Macro récupérer des données de plusieurs classeurs

[achraf akansous]

Bonjour,

Si possible, je souhaiterai créer une macro qui récupère des valeurs d'autres classeurs et alimente mon classeur de synthèse.
J'ai essayé de le faire mais il je suis confronté à l'erreur 1004. Je ne sais pas ce qu'elle veut dire ni comment la régler d'ailleurs.

Je vous faire parvenir le code utilisé :

code :

Sub ActualiserVentes()

Workbooks.Open "C:\Users\admin\Desktop\test macro\SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx"

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Sheets("BOURGOGNE").Range("C7:AA35").Copy
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Activate
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("BOURGOGNE").Range("C7").Select
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("BOURGOGNE").Paste

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Sheets("OULFA").Range("C7:AA35").Copy
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Activate
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("OULFA").Range("C7").Select
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("OULFA").Paste

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Sheets("HAY MOHAMMADI").Range("C7:AA35").Copy
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Activate
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("HAY MOHAMMADI").Range("C7").Select
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("HAY MOHAMMADI").Paste

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Sheets("MAARIF").Range("C7:AA35").Copy
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Activate
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("MAARIF").Range("C7").Select
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("MAARIF").Paste

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Sheets("HAY FARAH").Range("C7:AA35").Copy
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Activate
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("HAY FARAH").Range("C7").Select
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("HAY FARAH").Paste

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Sheets("SETTAT").Range("C7:AA35").Copy
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Activate
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("SETTAT").Range("C7").Select
Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 -.xlsm").Sheets("SETTAT").Paste

Workbooks("SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx").Close

End Sub

Pourriez vous m'aider à ce sujet.

Mille merci.

 

[Theze]

Bonjour,

A tester :

Sub ActualiserVentes()

    Dim Cls As Workbook
   
    Set Cls = Workbooks.Open("C:\Users\admin\Desktop\test macro\SUIVI DES VENTES ET REALISATION - DECEMBRE 2017 - CASA I.xlsx")
   
    ThisWorkbook.Sheets("BOURGOGNE").Range("C7:AA35").Value = Cls.Sheets("BOURGOGNE").Range("C7:AA35").Valu
    ThisWorkbook.Sheets("OULFA").Range("C7:AA35").Value = Cls.Sheets("OULFA").Range("C7:AA35").Value
    ThisWorkbook.Sheets("HAY MOHAMMADI").Range("C7:AA35").Value = Cls.Sheets("HAY MOHAMMADI").Range("C7:AA35").Value
    ThisWorkbook.Sheets("MAARIF").Range("C7").Value = Cls.Sheets("MAARIF").Range("C7:AA35").Value
    ThisWorkbook.Sheets("HAY FARAH").Range("C7:AA35") = Cls.Sheets("HAY FARAH").Range("C7:AA35").Value
    ThisWorkbook.Sheets("SETTAT").Range("C7:AA35").Value = Cls.Sheets("SETTAT").Range("C7:AA35").Value
   
    Cls.Close

End Sub

 

[achraf akansous]

@Theze Merci infiniment, je teste ce code et te reviens incessamment.

 

[achraf akansous]

@Theze. Mille merci, ton code fonctionne parfaitement. J'ai même pu m'en inspirer pour ajouter d'autres classeurs.

C'est super gentil.