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

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #2

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #3

Re

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

VB:

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

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 24 Janvier 2021

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #5

rE

A tester

VB:

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.

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 24 Janvier 2021

• #6

Merci Staple1600

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #7

Re

=>raf26
Donc cela fonctionne chez toi?

 

Vote positif 0 Vote négatif

R

raf26

XLDnaute Occasionnel

• 24 Janvier 2021

• #8

Oui après avoir adapter à mon fichier

 

Vote positif 0 Vote négatif