Bonjour a tous,

Je reviens vers vous pour mon pb de connection a ma base de données (SQL server). J' ai réalisé une connection a mon server, j´importe ces données sur une feuille, en manuel j´y suis arrivé.

Mon pb est que j´actulise cette connecction a l´ouverture de mon classeur, le pb est lorsque j´ai un pb de connection a mon server, l´utilisateur ne sait pas explicitement s´il est connecté ou pas.

J´ai alors décidé de passer a une connection manuel par un code vba, ou l´utilisateur en clikant sur un bouton sait síl est connecté ou pas; pour que cela soit plus explicite. Mais j´ai un msg d´ereur informant que le nom d órigine et aucun controleur permis...

Dans un premier temps je voudrais testé ma connexion et ensuite copié les données selon certains filtres. Avant de parler de filtre je souhaite comprendre ou est mon erreur de synthaxe dans ma requete de connnexion.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public Cnx As New Connection
Sub ActBD()
Dim Cadena As String
On Error GoTo ErrorBD
Cadena = "DRIVER=SQL Server;SERVER=BLADELAB01;UID=etiquetas;PWD=francia1;DATABASE=SBO_NATURGEN_PROD"
Cnx.Open
MsgBox "Conexion exitosa ", vbInformation, "Ce que j´aimerais lire"
Cnx.Close
Exit Sub
ErrorBD:
MsgBox "Error de Conexion" & Err.Description
End Sub
Si quelqu´un connais d´ou provient mon erreur...

Merci d´avance pour l´aide