Kidcarotte
XLDnaute Junior
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
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