Discussion :

[raph-68i]

Bonjour,
Je souhaiterais réaliser une connexion avec une base de données sous SQL server 2005 via un fichier Excel.
Je sais faire la manipulation manuel avec Donnée -> Donnée externe -> Connexion existante.

Ce que je voudrais c’est pouvoir "automatiser" tout ceci dans une macro qui en s’exécutant, établie la connexion vers ma BDD puis exécute une procédure stockée ''PROC_PERSO'' (déjà développé en SQL, qui rempli une table de ma base de donnée) et enfin m’affiche ma table "TABLE_RESULTAT" à partir de la cellule A1 par exemple.

Si vous avez des pistes pour m’aider à trouver des solutions ce serait une grande avancé pour moi.

Merci d’avance pour vos réponses.

Cordialement Raphael

[sabzzz]

bonjour raph-68i,

il y a un bon tuto ici:
http://silkyroad.developpez.com/VBA/ClasseursFermes/
bonne lecture,

[raph-68i]

Merci de ta réponse.

Je pense que je me suis peut-être mal exprimé ou je sais pas mais je ne veut pas du tout utiliser Excel comme SGBD.

Je veux juste pouvoir me connecter à ma BDD et exécuter une requête et afficher une table sur ma feuille Excel pour après pouvoir faire de beau graphique

En gros Excel permet, dans mon cas, juste d'exécuter une requête mettant à jour une table et après, utiliser les performances d'Excel pour tracer des courbes etc...

[branlix]

Salut,

pour que la procédure fonctionne il faut au préalable avoir configurer un lien ODBC que tu nommeras MABASE.

N'oublie pas d'ajouter la référence Microsoft ActiveX Data Objects 2.X library

En espérant répondre à ton besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub TOTO()
Dim cnx As ADODB.Connection 'variable permettant de créer la connexion
Dim rst As ADODB.Recordset 'variable permettant de stocker le résultat de la requête SQL
 
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
'si le temps d'exécution dépasse 120 secondes, la requête est arrêtée
cnx.CommandTimeout = 120
cnx.Open "MABASE", "login", "pwd"
 
'---------------pour une requête sql--------
rst.Open "SELECT * " & _
"FROM MATABLE " & _
"WHERE .....", cnx
'---------------ou bien pour une proc stock
rst.Open "EXEC MA_PROCEDURE", cnx
'---------------------------------------------
 
For i = 0 To rst.Fields.Count - 1
    Cells(1, i + 1) = rst.Fields(i).Name
Next i
Cells(2, 1).CopyFromRecordset rst
cnx.Close
End Sub

[raph-68i]

Merci pour la réponse je pense bien que c'est ce qu'il me faut.
cependant j'ai un petit soucis, pour l'accès a ma base de donnée je n'ai pas d'identifiant, enfin j'ai pris l'option identification Windows et je ne sait pas trop a quoi cela correspond...


j'ai un message d'erreur quand je tente d'effectué ma procédure et je pense que cela peut venir de là...

si vous avez une solution pour moi


en tout cas déjà un grand merci pour les réponses que vous m'avez données

[raph-68i]

Merci branlix pour ta réponse en fait je n'ai plus de message d'erreur !!