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

achraf akansous · 7 Décembre 2017

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 · 10 Décembre 2017

Bonjour,

A tester :

Code:

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 · 11 Décembre 2017

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

achraf akansous · 14 Décembre 2017

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

C'est super gentil.

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

achraf akansous

XLDnaute Nouveau

Theze

XLDnaute Occasionnel

achraf akansous

XLDnaute Nouveau

achraf akansous

XLDnaute Nouveau

Discussions similaires