Bonjour,

Je cherche à résoudre un problème consistant à faire varier une source de données de TCD par une Macro en fonction de la valeur d'une cellule. On m'a déjà aidé à trouver un code mais celui ci ne fonctionne pas tout à fait... Si quelqu'un peut m'aider à compléter ma requête. Merci d'avance !!!

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub test()
Macro1 Array("REPORT DEMARQUE NORD")
Macro1 Array("REPORT DEMARQUE EST")
Macro1 Array("REPORT DEMARQUE CENTRE EST")
Macro1 Array("REPORT DEMARQUE CENTRE OUEST")
End Sub
 
Sub Macro1(MyArray As String)
 
    With ActiveWorkbook.Connections("DEMARQUE 2015").OLEDBConnection
        .CommandText = MyArray
        .CommandType = xlCmdTable
        .Connection = Array( _
       "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=T:\Itmaf\Appros-Flux\5-Reporting\REPORTING CDG\DEMARQUE\REPORT DEMAR" _
        , _
        "QUE.accdb;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine " _
        , _
        "Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New " _
        , _
        "Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Comp" _
        , _
        "act=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
        )
    End With
 
End Sub
 
Sub CHGT_REGION()
 
    If Sheets("LEGENDE").Range("B10") = 1 Then ????????
    End If