Inclure mot de passe connexion ODBC dans une macro

Bonjour,

J'utilise une macro qui va récupérer des données d'un serveur AS400 via ODBC (données externes => connexions existantes). La récupération de ces données nécessite un identifiant et un mot de passe.

Est-il possible d'inclure l'identifiant et le mot de passe dans la macro ?

D'avance merci

Au cas où cela peut être utile, voici l'extrait de la macro

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="ODBC;DSN=XXX;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _ XXX)  ORDER BY XXX")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceConnectionFile = _
        "XXX.dqy"
        .ListObject.DisplayName = "Tableau_Requête_XXXs"
        .Refresh BackgroundQuery:=False
    End With

Bonjour,

Je n'ai jamais utilisé de DSN dans Excel mais j'en ai utilisé dans des sites web en ASP.

la syntaxe etait la suivante:

Conn.open "DSNname","username","password"

essaie deja ca

Source:="ODBC;DSN=XXX ; username , password"

ou

Source:="ODBC;DSN=XXX ; UID= username ,PWD= password"

Des fois avec un peu de chance........

merci

ta dernière solution est la bonne