SQL VBA problème

Question

Bonjour,

je demande de l’aide à ce sujet car en SQL je m’y connais pas vraiment,

je m’explique j’ai pour projet de faire un outil sur Excel, on m’a fournit un fichier qui permet de prélevé des informations sur un logiciel de l’entreprise ( via code SQL je pense ) et maintenant fini ( j’ai mit un mois a le faire ) lorsque je l’utilisais il marchait nickel !!! Je sais pas un beau jour je l’essaye on me met déboggage je comprend pas pourquoi ,

si quelqun aurais l’amabilité de pouvoir m’aider ? Je vous joint les photos du déboggage ainsi du code en photo et en écrit ici :

Sub Macro1()

'

' Macro1 Macro

' Macro enregistrée le 21/12/2007 par Agnus

'

ThisWorkbook.Worksheets("Données").Select

Range("A4").Select

If ActiveSheet.Name <> "req_id" Then

Dim cnx As ADODB.Connection

Set cnx = New ADODB.Connection

cnx.CommandTimeout = 600

'Définition de la chaîne de connexion et ouverture de la connexion

'Connexion à la base live

cnx.ConnectionString = "DRIVER={SQL Server};Provider='sqloledb'; Integrated Security='SSPI'; Data Source='S-BE-KI-SQL42\SQL42'; Initial Catalog='SQL_A_POWER_SMC_WH61'"

cnx.Open '=> le déboggage ce met en jaune ici mais je pense c’est plus haut

Je vous remercie d’avance pour votre aide !

Invité · Answer

Bonjour Kodir-301

N'est-ce pas aujourd'hui, un problème d'authentification ?

Il faudrait peut-être essayé ceci

cnx.ConnectionString = "DRIVER={SQL Server};Provider='sqloledb'; Data Source='S-BE-KI-SQL42\SQL42'; Initial Catalog='SQL_A_POWER_SMC_WH61'; Integrated Security='SSPI'; User ID=myDomain\myUsername; Password=myPassword;"

@+