Discussion :

[muchek]

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

[antonysansh]

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 :

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

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 :

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

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.

[muchek]

Bonjour antonysansh ,

Et merci pour ta réponse.
Je vais essayer avec ta méthode , ça m'a l'air jouable.

[muchek]

YEP !
Comme prévu, ça marche nickel.
Merci BEAUCOUP.

[muchek]

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



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,

[muchek]

J'ai un peu avancé.
J'ai ajouté ces lignes pour mettre à jour la connexion

Code :

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

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 : ??...