se connecter automatiquement à la base de données sans cliquer sur "ok"

[playm]

bonjour

j'ai une macro où je fais appel à une base de données

le code est le suivant

With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER=SQL Server;SERVER=SERVX;UID=analyses;;APP=Microsoft Office 2003;WSID=SERV1;DATABASE=totoCF" _
        , Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT * FROM ""dbo"".""toto_150708""")
        .Name = "totocf"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "C:\Program Files\Fichiers communs\ODBC\Data Sources\toto.dsn"
        .Refresh BackgroundQuery:=False

ça marche bien , sauf que je suis obligé de cliquer sur Ok quand je me connecte pour continuer la macro et valider la connexion ....

y-a-t-il possibilité pour passer cet étape en rajoutant une option ?

merci d'avance

bon après midi

playm

 

[Staple1600]

Re : se connecter automatiquement à la base de données sans cliquer sur "ok"

Bonjour


Au pif


.SavePassword = True


Ca ne change rien?

 

[playm]

Re : se connecter automatiquement à la base de données sans cliquer sur "ok"

salut Staple1600

je viens de le faire ça ne change rien ....

merci de ta réponse