Quelqu'un connait l'objet activeworkbook.connections

[anthooooony]

Bonjour,

J'essaye de modifier une reference dans des connexions des classeurs.

Savez vous s'il est possible de modifier un élement de l'objet activeworkbook.connections

J'ai vu en faisant une macro pas à pas et que ma solution seriez liée à l'objet activeworkbook.connections. je souhaite replacer le mot "agence auvergne" par "agence paris".
Mais la macro en l'état ne fonctionne pas


auriez vous une idée?

bien à vous

anthoooooony

Sub Macro3()
'
' Macro3 Macro
'

'
    With ActiveWorkbook.Connections("instruction").ODBCConnection
        .BackgroundQuery = False
        .CommandText = Array( _
        "SELECT *" & Chr(13) & "" & Chr(10) & "FROM BASE_INSTRUCTIONS" & Chr(13) & "" & Chr(10) & "where `agence de regroupement`= 'Agence PARIS'" _
        )
        .CommandType = xlCmdSql
        .Connection = Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=N:\Automatisation Share.accdb;DefaultDir=N:\;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeou" _
        ), Array("t=5;"))
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("instruction")
        .Name = "instruction"
        .Description = ""
    End With
    ActiveWorkbook.Connections("instruction").Refresh
End Sub

 

[camarchepas]

Re : Quelqu'un connait l'objet activeworkbook.connections

Bonsoir ,

as tu bien écris en lieu et place de
'Agence PARIS'"
'Agence AUVERGNE'" donc attention au ' de chaque coté du terme et des minuscules majuscules