XL 2013 Copier + insertion

[Kidcarotte]

Bonjour

Apres plusieurs recherche sur ce forum je n'ai pas reussi a trouver la solution a mon probleme, du coup je me permet de creer ce poste 🙂

Jai deux bases de donnees. Je souhaiterais inserer les donnees d'une base dans une autre. La base de donnees n1 est mise a jour de maniere journaliere. Les donnees peuvent varier de 1 jusqua 2000 de maniere journaliere. La base de donnees 1, une fois mise a jour se supprime, et fait place a de nouvelle donnees. La base de donnee n2 quand a elle ne bouge pas.
J'ai utilise un code VBA qui me permet de copier coller, jusqu'a la ca va.
Cependant, je n'arrive pas a mettre a la ligne.
A chaque fois que je clique sur ma macro " update database", les donnees de la vieille sont effacees pour laisser place aux nouvelles.
Voici mon code :

Private S1 As Worksheet <= Database 1
Private S2 As Worksheet <= Database 2
Private TV As Variant
Private VI As Integer

Sub Update_to_uL_version()

Set S1 = Worksheets("Database")
Set S2 = Worksheets("ULVersion")
TV = S2.Range("A1").CurrentRegion

S2.Rows(2).Insert Shift:=xlDown
S1.Range("A3:A2000").Copy S2.Range("A2:A2000")


MsgBox ("Database has been formatted")


Auriez vous des suggestions ?

Cordialement

 

[pierrejean]

Bonjour kidCarotte

En supposant avoir bien compris
modifie
S1.Range("A3:A2000").Copy S2.Range("A2:A2000")
en
S1.Range("A3:A2000").Copy S2.Range("A"& rows.count) .end(xlup).offset(1)

 

[Robert]

Bonjour Kidcarotte, bonjour le forum,

Peut-être comme ça :

Sub Update_to_uL_version()
Dim S1 As Worksheet
Dim S2 As Worksheet

Set S1 = Worksheets("Database")
S1.Range("A3:A2000").Copy
Set S2 = Worksheets("ULVersion")
S2.Range("A2").Insert Shift:=xlDown
MsgBox ("Database has been formatted")
End Sub

[Édition]
Bonjour PierreJean nos posts se sont croisés...