Gestion du mot de passe de requete ODBC

**begsym** · 22/11/2007, 16h05

Bonjour,

J'utilise Excel pour mettre en forme des données issues d'une base SQL Server. Pour extraire les données de la base :
1) Je créé une vue dans la base de données
2) Dans Excel, je crée une source de donnée qui pointe sur la base en prenant soin de cocher "Enregistrer l'idendité et le mot de passe de l'utilisateur"
3) Dans une feuille Excel, j'utilise "Données/Données externe/créer une requete" qui m'ouvre l'assistant requete, je sélectionne la source créée et je peux ensuite selectionner les colonnes que je veux importer dans Excel.

Jusqu'alors (en Excel 2000)le fichier Excel devenait "autoporteur", il pouvait être utilisé sur n'importe quel PC sans avoir à connaître et encore moins saisir le mot de passe.
La seule ligne de VB permettant de mettre à jour un onglet comportant une requete d'extraction de données est la suivante :
' Extraction
Selection.QueryTable.Refresh BackgroundQuery:=False

Le problème c'est que depuis que je suis passé à Excel 2k3, lorsque les utilisateur executent ce code,
Excel 2k3 sort en erreur "Echec de l'autorisation".
Si je fais un "Actualiser les données" manuel, dans la feuille concernée, Excel me demande le mot de passe, du
moins la première fois, mais si je ferme et que je réouvre le classeur il le redemande.

Est-ce que quelqu'un pourrait m'aider à retrouver un fonctionnement identique à celui d'Excel 2000, sans demande de mot de passe.

Merci par avance pour toute aide.

**aldapal** · 22/11/2007, 22h18

Salut,

J'ai exactement le même problème. Excel 2003 ne veut rien savoir de m'authentifier sans que je rentre un mdp.

J'ai essayé avec DAO, mais j'ai des erreurs.

Je suis en attente d'une réponse...

**begsym** · 23/11/2007, 11h30

Voilà ce que je fais :

je charge en VB, la string de connexion avant de rafraichir l'onglet, les données de connexion sont dans une feuille du classeur qui peut être protégée si nécessaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'Preparation de la string de connection "connect"
    server = Range("Base").Cells(2, 2)
    base = Range("Base").Cells(3, 2)
    login = Range("Base").Cells(4, 2)
    password = Range("Base").Cells(5, 2)
    connect = "ODBC;DRIVER=SQL Server;SERVER=" & server & _
                ";UID=" & login & _
                ";PWD=" & password & _
                ";APP=Microsoft® Query;;DATABASE=" & base
    Worksheets("Brut").QueryTables(1).Connection = connect
 
    ' Refresh
    Selection.QueryTable.Refresh BackgroundQuery:=False