Inclure le mot de passe SQL dans une macro

  • Initiateur de la discussion Initiateur de la discussion Dut
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dut

XLDnaute Nouveau
Bonjour,

j'ai une macro qui exécute une requête SQL pour récupérer des données sur un serveur SQL Server. Tout fonctionne bien. Le seul inconvénient c'est que la macro me réclame le mot de passe de connexion au serveur à chaque exécution de la requête. Est-il possible d'inclure le mot de passe dans le code de la macro pour ne pas avoir à le taper à chaque fois ?

Je vous colle le code de ma requête pour info :


Code:
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER=SQL Server;SERVER=FIDJI;UID=sa;;APP=Microsoft Office 2003;WSID=PC38" _
        , Destination:=Range("A1"))
        .CommandText = "SELECT oitm.ItemName, oitm.ItemCode FROM ""bdd"".dbo.oitm oitm WHERE (oitm.ItemCode Like 'F%')"
        .Name = "requête"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
 
Re : Inclure le mot de passe SQL dans une macro

Re-bonjour à tous,

j'ai finalement résolu mon problème. (c'était finalement tout bête 😀)


Code:
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER=SQL Server;SERVER=FIDJI;UID=sa;[COLOR="Red"][B]PWD=motdepasse;[/B][/COLOR]APP=Microsoft Office 2003;WSID=PC38" _
        , Destination:=Range("A1"))
        .CommandText = "SELECT oitm.ItemName, oitm.ItemCode FROM ""bdd"".dbo.oitm oitm WHERE (oitm.ItemCode Like 'F%')"
        .Name = "requête"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = [COLOR="red"][B]True[/B][/COLOR]
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Power Query power query
Réponses
22
Affichages
4 K
Réponses
2
Affichages
1 K
Retour