Recopier les données dans la prochaine cellule vide

[chris6999]

Bonjour

J'ai dans une macro qui travaille sur 2 fichiers distincts une commande qui permet d'enregistrer une sélection depuis un classeur X sur la cellule A3 de la feuille "Données brutes d'un autre fichier"

Je souhaiterais au lieu de figer le "collé" sur la cellule A3 que la sélection se colle sur la première cellule vide de ma colonne A (feuille Données brutes).

Mon code actuel est
ActiveWorkbook.Sheets(1).[A1].CurrentRegion.Copy ThisWorkbook.Sheets("Données brutes").[A3]

Pourrait-on à la place du A3 mettre la notion de première cellule vide (colonne A) de ma feuille base de données?

Merci d'avance
Cordialement

 

[Guest]

Re : Recopier les données dans la prochaine cellule vide

Bonjour,

ActiveWorkbook.Sheets(1).[A1].CurrentRegion.Copy ThisWorkbook.Sheets("Données brutes").range("A" & Rows.Count, 1).End(xlUp)(2)

A+

 

[chris6999]

Re : Recopier les données dans la prochaine cellule vide

Super Hasco
Je languis de pouvoir tester demain

Merci encore
Cordialement

Bonjour,

ActiveWorkbook.Sheets(1).[A1].CurrentRegion.Copy ThisWorkbook.Sheets("Données brutes").range("A" & Rows.Count, 1).End(xlUp)(2)

A+

 

[chris6999]

Re : Recopier les données dans la prochaine cellule vide

bONSOIR

Apres un premier test cela ne fonctionne pas dans mon fichier.

Pour que tu ais la vision complète du pb je te mets en PJ 2 fichiers test.
Le premier (test macro coller) sert à lancer la macro

Cette macro propose l'ouverture d'un second fichier (il faut bien sûr renseigner le bon chemin au préalable)
Met en forme ce dernier
et colle l'ensemble des données dans le fichier de départ au niveau de la feuille Données brutes (dans la preière cellule vide de la colonne A).

Cela fonctionnait très bien lorsque je lui demandais de coller les données dans une cellule fixe.

Avec ta proposition, j(ai une erreur 1004

Qu'en penses-tu?

Merci d'aance

Bonjour,

ActiveWorkbook.Sheets(1).[A1].CurrentRegion.Copy ThisWorkbook.Sheets("Données brutes").range("A" & Rows.Count, 1).End(xlUp)(2)

A+

 

[Pierrot93]

Re : Recopier les données dans la prochaine cellule vide

Bonjour Chris, Hasco🙂

Pas ouvert tes fichuiers, mais modifie peut être ainsi :

ActiveWorkbook.Sheets(1).[A1].CurrentRegion.Copy ThisWorkbook.Sheets("Données brutes").Cells( Rows.Count, 1).End(xlUp)(2)

bonne journée
@+

 

[chris6999]

Re : Recopier les données dans la prochaine cellule vide

Bonsoir

Je note que je ne t'ai pas remercié. Ton code fonctionne très bien

Merci