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