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

Réponses
2
Affichages
413

Statistiques des forums

Discussions
294 412
Messages
1 938 345
Membres
188 789
dernier inscrit
moni986