Copier/Coller valeur Range d'un classeur vers un autre

[YaGo]

Bonjour à tous!

J'ai n'arrive pas a effectuer un copier-coller d'une plage de données d'un Tableau Esclave vers un Tableau Maitre.

Ci-joint un exemple avec un Fichier esclave et maitre. (le code se trouve dans le fichier Maitre et les deux fichier doivent être présent dans le même dossier)

Je compte garder dans mon code Range(Cells(1, 1), Cells(1, 5)) et non un range("A1:A5)!

Merci d'avance pour votre aide.

YaGo

 

[Pierrot93]

Re : Copier/Coller valeur Range d'un classeur vers un autre

Bonjour,

regarde ceci :

    Do While WorkbookSlave <> ""
        Set Slave = Workbooks.Open(ActiveWorkbook.Path & "\" & WorkbookSlave)
        Set TableSlave = Slave.Sheets("Tableau")
    
    With TableSlave
        .Range(.Cells(2, 1), .Cells(2, 5)).Copy
        TableMaster.Range(TableMaster.Cells(2, 5), TableMaster.Cells(2, 10)).PasteSpecial Paste:=xlPasteValues
    End With

mais en l'état si tu as plusieurs fichiers esclaves, tu collera les données dans la même plage... sera nécessaire d'adapter...

bonne journée
@+

 

[Pierrot93]

Re : Copier/Coller valeur Range d'un classeur vers un autre

Re,

préférable ainsi :

    With TableSlave
        .Range(.Cells(2, 1), .Cells(2, 5)).Copy
    End With
    
    With TableMaster
        .Range(.Cells(2, 5), .Cells(2, 10)).PasteSpecial Paste:=xlPasteValues
    End With

 

[YaGo]

Re : Copier/Coller valeur Range d'un classeur vers un autre

Ok merci Pierrot!
T'inquiet je vais adapter ça comme il faut dans mon programme