Intégrer une variable dans une chaîne de connexion

Version imprimable

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:

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

Bonjour muchek,

Dans un fichier que j'avais développer, il y a des connections vers les onglets du même classeur.
Le fichier pouvant être dupliqué il fallait trouver une solution pour mettre a jour les connections (changement de chemin et de nom de fichier)

Voila la solution que j'ai utilisé :

Une variable public qui est la chaine de correction :

Code:

Public Const Chaine_Connexion = "ODBC;DSN=Excel Files;DBQ=**FullName**;DefaultDir=**Path**;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"

Tu remarque que je remplace le FullName par **FullName** idem pour le Path.

Ensuite dans mon code pour la mise a jour :
Code:

1 2 3 4 5 6 7 8 9 Sub Init_Chaines_Connexions() Dim t$(), i&, Connect As WorkbookConnection, s$ s = Chaine_Connexion s = Replace(s, "**FullName**", ThisWorkbook.FullName) s = Replace(s, "**Path**", ThisWorkbook.Path) '... Connect.ODBCConnection.Connection = s '... End Sub
C'est un peut diffèrent de ton problème mais cette solution doit pouvoir s'adapter dans ton cas.
C'est en tout cas une piste de réflexion.

25/08/2016, 08h31
muchek

Bonjour antonysansh ,

Et merci pour ta réponse.
Je vais essayer avec ta méthode , ça m'a l'air jouable.;)
25/08/2016, 08h57
muchek

YEP ! :D
Comme prévu, ça marche nickel.
Merci BEAUCOUP.
25/08/2016, 15h03
muchek

1 pièce(s) jointe(s)

C'est bon pour la modif des propriétés de la chaîne de connexion.
Mon problème à présent est de pouvoir actualiser mon tableau croisé dynamique, après avoir changé les propriétés de la connexion.
Voici les messages successifs qui s'affichent

Pièce jointe 218758

J'arrive à mettre à jour cette connexion en recherchant mon fichier source avec "parcourir" dans l'onglet definition de ma connexion.
Comment puis-je exécuter la même action par macro ?

Merci par avance,
25/08/2016, 15h47
muchek
J'ai un peu avancé.
J'ai ajouté ces lignes pour mettre à jour la connexion
Code:

1 2 ActiveWorkbook.Connections("ECROUS G").OLEDBConnection.Refresh
Lorsque j'exécute la 1ère fois cette commande, j'obtiens le message
"Echec de l'actualisation d'un tableau croisé dynamique, d'une function cube ou d'un segment qui utilise "Ecrous G", voulez-vous continuer l'actualisation ?"

Si j'exécute une 2ème fois la ligne, le TCD se met bien à jour sans message d'erreur : ??...
15/04/2020, 00h52
Deltaplouf

Yess ça marche pour moi également !
Salut, je déterre cette discussion juste pour :
1. dire merci à antonysansh
2. confirmer que ça marche également pour une chaîne de connexion vers une base Access
Pour ma part, j'ai rencontré un petit problème supplémentaire, après le premier "replace(maChaîneDeConnexion, **L'endroitDeLaVariable**, LaValeurDeLaVariable), ma chaîne de connexion était légèrement altérée : l'utilisation de la fonction Replace avait changé les paires de guillemets doubles (valeurs vides pour certains paramètres de la chaîne de connexion) en un seul guillemet double (par exemple Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=5 était devenu Jet OLEDB:Registry Path=";Jet OLEDB:Engine Type=5)

Donc j'ai juste rajouté un second Replace :

Code:

maChaîneDeConnexion = Replace(maChaîneDeConnexion, "=" & Chr$(34), "=" & Chr$(34) & Chr$(34))

Ensuite, il reste effectivement à actualiser la connexion, sans message d'erreur pour ma part. Le message d'erreur de Muchek était peut-être dû à ce genre de remplacements abusifs qui s'autocorrige ensuite (mais ce n'était pas mon cas).