Discussion :

[calitom]

Bonjour,

J'ai quelques notions de VB qui remonte à mes études, mais n'en ayant pas depuis, je suis un peu à la masse...

J'aurai besoin de faire une requete vers une base de données pour récupérer une valeur, et l'insérer dans mon fichier excel...

En gros voici ce que je souhaite faire:
SELECT prix FROM matable WHERE ref='champ AX de ma feuille excel'

Et ensuite inserer le prix dans le champ JX de ma feuille...

Merci de me décrire comment faire, car je n'ai pas du tout l'habitude de travailler en VB...

[calitom]

J'ai trouvé un article, et je voulais savoir si je pouvais partir de ca pour commencer...

Voici l'article en question:

- Créer un fichier Excel (2003).
- Aller dans Outils > Macro > Visual Basic Editor.
- Ajouter les références suivantes : Microsoft DAO 3.6 Object Library et Microsoft ActiveX Data Objects 2.8 Library.
- Dans la fenêtre VB qui s'ouvre créer un nouveau module depuis l'onglet de gauche et y insérer ce code :

Public cN As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub conNect()
Set cN = New ADODB.Connection
dbPath = paTh
cN.ConnectionString = "Provider=SQLOLEDB;Data Source=Nom_Du_Serveur;Initial Catalog=Nom_de_La_Base; User ID=Votre_Login;Password=Votre_Password;"
cN.Open
End Sub


- Double-cliquer sur ThisWorkBook (dans l'explorateur d'objects) et insérer ce code:

Private Sub Workbook_Open()
Module1.conNect
Set rs = New ADODB.Recordset
rs.Open ("select * from Ma_Table"), cN
i = 1
While Not rs.EOF
For j = 1 To rs.Fields.Count - 1
Feuil1.Cells(i, j) = rs(j - 1)
Next
i = i + 1
rs.MoveNext
Wend
End Sub


- Sauvegarder le tout.
- Fermer et ouvrir le fichier XLS créé.

J'ai fait un essai en mettant mes données de connexion et en ecrivant ma requete sql correctement, mais j'ai une erreur au moment de la conncection à la base:

Ce serveur SQL n'existe pas ou son accès est refusé.

[Godzestla]

Bonjour,

jette un coup d'oeil ici

Attention que le string de connection ADO est spécifique au type de connection/DB.


Pour avoir la doc de cela, j'ai du télécharger la "Platform SDK Collection for Windows Server 2003 SP1" du site de microsoft.

Edit---------------
j'avais aussi des problèmes de connection que j'ai pu résoudre en utilisant l'IP du server plutot que le DNS.