Microsoft 365 Macro copie données sur la première ligne non vide d'un autre classeur

[raf26]

Bonjour,

J'ai besoin de votre aide pour une macro

J'aimerais copier des données du classeur TEST onglet Cumul (A12 à G12) sur la première ligne vide d'un classeur ESSAI onglet Réception, à partir de la colonne A

J'ai trouvé .End(xlDown).Row +1 mais je n'arrive pas à utiliser correctement ce code.

Merci d'avance

Cordialement

 

[Staple1600]

Bonjour

C'est plutôt du côté du End(xlUp) qu'il faut chercher 😉
Et plus précisément
Cells(Rows.Count,1).End(xlUp)(2)

 

[Staple1600]

Re

Un exemple de macro à adapter
(ici pour le test, je suis sur le même classeur)

Sub Exemple_Copie()
Dim Source As Range, Desti As Range
Set Source = Feuil1.[A12:G12] ' à adapter
Set Desti = Feuil2.Cells(Rows.Count, 1).End(xlUp)(2) ' à adapter
Source.Copy Desti
End Sub

 

[raf26]

Merci Staple1600

je viens d'essayer sur un même classeur, impeccable !

Par contre comment j'adapte pour Desti pour le classeur qui est sur le bureau ?

Set Desti = "C:\User\monnom\Desktop\monfichier.xlsm et comment indiquer le bon onglet ?

Merci

 

[Staple1600]

rE

A tester

Sub Exemple_Copie_BIS()
Dim Source As Range, Desti As Range
Set Source = _
            ThisWorkbook.Sheets("Cumul").[A12:G12]
Set Desti = _
            Workbooks("ESSAI.xlsm").Sheets("Réception").Cells(Rows.Count, 1).End(xlUp)(2)
Source.Copy Desti
End Sub

NB: Les deux classeurs sont ouverts et la macro est dans le classeur TEST.

 

[raf26]

Merci Staple1600

 

[Staple1600]

Re

=>raf26
Donc cela fonctionne chez toi?

 

[raf26]

Oui après avoir adapter à mon fichier