Bonjour,

Par enregistrement auto macro, j'ai obtenu les lignes de code suivantes (modification d'une chaîne de connexion d'un tableau croisé).
J'aimerais pouvoir associer le texte en bleu (Data Source=...) à une variable et appeler cette variable dans la propriété .Connection.
J'ai essayé d'intégrer la variable avec des "" & "" au milieu du texte, mais ça ne fonctionne pas.
Merci pour votre aide,

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
 With ActiveWorkbook.Connections("ECROUS G").OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array("'ECROUS G$'")
        .CommandType = xlCmdTable
        .Connection = Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=\\C:\doc\CARTO TEST.xlsm;Mode=Share Deny Write;Extended Properties=""HDR=YES;"";" _
        , _
        "Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=37;Jet OLEDB:Databa" _
        , _
        "se Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Je" _
        , _
        "t OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Com" _
        , _
        "pact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=" _
        , "False")
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
        .ServerFillColor = False
        .ServerFontStyle = False
        .ServerNumberFormat = False
        .ServerTextColor = False
    End With
    With ActiveWorkbook.Connections("ECROUS G")
        .Name = "ECROUS G"
        .Description = ""
    End With
    ActiveWorkbook.Connections("ECROUS").Refresh