[XL-2007] Données externes ms query requêtes multiples

[coconut86]

Bonjour,

Alors voici mon problème. à partir d'excel 2007, dans données externes je vais chercher des requêtes Access. J'ai 10 onglets dans mon fichier qui correspondent chacun à une requête différente dans la même BD.
Pour chaque import, il faut rentrer un mot de passe pour se connecter à la base de données. Du coup quand l'utilisateur clique sur actualiser tout, il faut rentrer 10 fois le mot de passe.
En passant par l'enregistreur de macro, j'ai récupéré le code VBA en me disant que je pourrai le modifier pour n'avoir qu'à rentrer qu'une seule fois le mot de passe mais je n'y suis pas arrivé.
Je pense que le problème vient du fait qu'il se connecte à chaque fois à la source, mais comment puis-je faire une sorte de boucle?
Voici un exmple du programme que me donne l'enregistreur de macro. Je sais que ce n'est pas la meilleure soltuion pour obtenir du programme mais je n'ai pas utilisé VBA depuis longtemps

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
        "ODBC;DSN=MS Access Database;DBQ=S:\partage\Information_de_gestion\BD\ReseauPartage.accdb;DefaultDir=S:\partage\Information_de_gestio" _
        ), Array("n\BD;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _
        Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT PretDeService.NomDirection, PretDeService.NomUnite & Chr(13) &  " & Chr(10) & "FROM `S:\partage\Information_de_gestion\BD\ReseauPartage.accdb`.PretDeService PretDeService" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = _
        "Tableau_Lancer_la_requête_à_partir_de_MS_Access_Database"
        .Refresh BackgroundQuery:=False
    End With

J'espère que je suis assez claire.

Merci d'avance à tous ceux qui voudront bien m'aider

Coco

[jfontaine]

Bonjour,

Regardes ce post, la solution a été trouvé en utilisant ADO
http://www.developpez.net/forums/d11...gurateur-odbc/

[coconut86]

Merci! Je vais regarder cela tout de suite!

[oOVaveOo]

Bonjour,

sinon, je crois que tu peux mettre l'utilisateur et le mot de passe ici :

Code :

1
2
3
"ODBC;DSN=MS Access Database;DBQ=S:\partage\Information_de_gestion\BD\ReseauPartage.accdb;UID=utilisateur;PWD=MotDePasse;DefaultDir=S:\partage\Information_de_gestio" _
        ), Array("n\BD;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;")), _