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

  • Initiateur de la discussion Initiateur de la discussion playm
  • 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 !

playm

XLDnaute Nouveau
bonjour

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

le code est le suivant

Code:
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
 
- 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
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
97
  • Question Question
Power Query power query
Réponses
22
Affichages
4 K
Réponses
2
Affichages
1 K
Retour