Copier la dernière ligne d'un tableau dans un autre fichier Excel

Bonjour à vous tous

Voila, j'ai une base de donnée que j'ai mis dans un tableau et que j'incrémente avec un Userforme standard pour la remplire.

Je souhaite récupérer à chaque fois la dernière ligne de ma base de donnée, copier ses valeurs et les coller dans un autre fichier excel.

Ces valeurs viendront dans des emplacements spécifiques pour compléter une fiche technique (dans l'autre fichier).

Ce que je recherche, c'est le code me permetant de copier la dernière ligne de ma base de donnée pour l'exporter vers mon autre fichier contenant la fiche technique. (je ne peut pas mettre la fiche technique sur le même fichier que ma base de donnée, contrainte imposée...)

Merci pour votre aide, malheureusement je ne peut pas vous fournir les fichiers en question...

Si vous avez besoin de plus d'informations n'hésitez pas à m'envoyer un message !

Bonne journée à vous !!

Bonjour,

Pour indiquez que dans l'autre fichier les valeurs viendront à des emplacements spécifiques. ... ce n'est plus du copier coller mais plutôt un renvoi de valeur

cellules par cellules

Un exemple : On suppose Fichier macro : "ORIGINE.xlsm" et fichier destination "TECHNIQUE.xlsx"

-La Cellule A1 du fichier Technique prendra la valeur de la dernière ligne de la colonne A du fichier origine.

-La cellule L3 du fichier Technique prendra la valeur de la dernière ligne de la colonne B du fichier origine.

Sub Macro1()

'ON TROUVE LA DERNIERE LIGNE ( fichier origine)
Dim DERLINGE As Long
DERLIGNE = Range("A65536").End(xlUp).Row

'ON OUVRE LE FICHIER DE DESTINATION  ( Technique.xlsx) 
Workbooks.Open Filename:="D:\Users\toto\Desktop\TECHNIQUE.xlsx"

'ON INDIQUE A QUOI SONT EGALES LES CELLULES DE DESTINATION DANS LE FICHIER D'ORIGINE
Range("A1").Value = Workbooks("ORIGINE.xlsm").Worksheets("Feuil1").Range("A" & DERLIGNE).Value
Range("L3").Value = Workbooks("ORIGINE.xlsm").Worksheets("Feuil1").Range("B" & DERLIGNE).Value

'On REFERME LE FICHIER DE DESTINATION
ActiveWorkbook.Close SaveChanges:=True

End Sub

Noms de fichiers , de Feuilles, et emplacements de fichiers à personnaliser a votre besoin.

Merci beaucoup ! Vous avez parfaitement compris ma problématique !!

Je vais tester ce code imédiatement :)