Tous les billets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImportData()

        'Affichage
    Application.ScreenUpdating = False
    
        'Definition variables
    Dim Db As DAO.Database
    Dim i, j As Integer, DernLigne As Integer
    Dim myGroup As String, MyDate As String
    Dim mySCN As String, myValue As Double
    Dim myCurr As String, req As String
    
        'Definition de la base
    Set Db = DAO.OpenDatabase(Worksheets("param").Range("Database"),

...