Quelqu'un connait l'objet activeworkbook.connections

anthooooony · 12 Décembre 2014

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

Code:

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 · 12 Décembre 2014

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

Quelqu'un connait l'objet activeworkbook.connections

anthooooony

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

Discussions similaires