XL 2019 Copier / Coller des cellules d'un classeur dans un autre classeur

Dravol

XLDnaute Junior
Bonjour à tous,

Je souhaiterais copier certaines cellules d'un classeur pour les coller à la fin d'un tableau (donc 1ière ligne vide) en gardant le format du fichier destination.

Ma macro ci-dessous s'exécute correctement mais ne recherche pas la dernière ligne après chaque lancement...

Il faudrait remplacer => Range("A164").Select par un code qui recherche la 1ière ligne vide il me semble.

Pouvez-vous m'aider ?


Sub transfert()
'
' Transfert Macro
'

'
Range("AE3:AU9" & derlig + 1).Select
Selection.Copy
Windows("LUP Atelier.xls").Activate
Range("A164").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Analyse des pertes journalière v4.xlsm").Activate
End Sub

Drav.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla