1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub test1()
Application.ScreenUpdating = False ' on enleve le rafraichissement de l'ecran
Application.DisplayAlerts = False ' on enleve tout les message d'avertissement
Dim wbkprincipal, wbkBDD2 As Workbook, wbkBDD3 As Workbook, tablobdd2, tablobdd3 ' declarations des variables
Set wbkprincipal = ThisWorkbook 'wbkprincipal devient le classeur actuel (BDD principale)
Set wbkBDD2 = Workbooks.Open("chemin de ton BDD2") ' on ouvre le classeur bdd2
tablobdd2 = wbkBDD2.Sheets(1).Range("A1:F1") ' on met la plage (a1:f1)du 1er sheets dans une variable tableau
wbkBDD2.Close 'on ferme bdd2
Set wbkBDD3 = Workbooks.Open("chemin de ton BDD3") ' on ouvre le classeur bdd3
tablobdd3 = wbkBDD3.Sheets(2).Range("A1:F1") ' on met la plage (a1:f1) du 2 eme sheets dans une variable tableau
wbkBDD3.Close 'on ferme bdd3
' maintenant on a 2 variables tableaux qui sont remplie par le passage eclair dans les deux BDD
'on les pose ou on veux en l'ocurence ici en ligne 1 et 2 pour l'exemple
wbkprincipal.Sheets(1).Cells(1, 1).Resize(UBound(tablobdd2), 6) = tablobdd2
wbkprincipal.Sheets(1).Cells(2, 1).Resize(UBound(tablobdd3), 6) = tablobdd3
End Sub |
