Résultats de requête SQL comme paramètres de fonction VBA

Bonjour,

J'aimerais avoir votre aide concernant une fonction VBA que j'essaye de développer. J'ai déjà une fonction qui me retourne le prix d'un titre à une date en se basant sur ses caractéristiques passés comme paramètres.

La fonction est: prix(date, date_emission, date_echeance, taux, methode)

J'aimerais améliorer cette fonction en la remplaçant par prix(date, code). Le paramètre code sera considéré comme paramètre d'une requette SQL "execute get_parametres(code)" qui me retourne les autres éléments dont j'ai besoin: date_emission, date_echeance, taux, methode.

Par la suite, ce résultat sera utilisé dans le code VBA déjà développé.

Est-ce qu'il y a une manière d'utiliser les résultats d'une requête SQL comme paramètres de fonction VBA?

Merci d'avance.

Bonsoir,

Ce lien sera peut-être un peut trop pour toi mais dis moi si c'est ce genre de truc dont tu parle!

N'essaies pas de comprendre le code regarde l'aspect général de la sub test!

https://www.developpez.net/forums/d1...a/#post9283354

Precise ta pensée sur ce que tu entends par paramètres et ce que ta fonction doit retourner?

Merci beaucoup pour ta réponse. Je vais essayer de comprendre la logique du code.

Pour être un peu plus claire, voici une partie de ma fonction VBA (le code est assez long donc je le simplifie):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function prix(date, date_émission, date_échéance, taux, maturité)   Dim flux() As Double Dim echeancier(), date_flux As Date Dim p, cc, di As Double Dim i, nbr_flux, jour_inclus As Integer   If maturité = 13 Or maturité = 26 Or maturité = 52 Then nbr_flux = 1 ReDim flux(1 To nbr_flux) ReDim echeancier(1 To nbr_flux) flux(1) = Round(nominal * (1 + taux * (CDate(date_échéance) - CDate(date)) / 360), 2) echeancier(1) = CDate(date_échéance) Else flux(1) = Round(nominal * (1 + taux * (CDate(date_échéance) - CDate(date)) / 365), 2)   p = (flux(1) )   prix=p   end function

---

Donc d'après ton code, si je veux transformer ma fonction en prix(date, code), je dois ajouter :

Code:

---

1 2 3 4 5

Dim Cn As New ADODBRD, Sql As String Cn.Server = "172.2": Cn.Base = "DBTEST": Cn.TYPEBASE = SQLSERVER2005: Cn.User = "dysorthographi ": Cn.PassWord = "dysorthographie" Cn.OpenConnetion   Sql = "execute get_parametres ?"

---

mais comment mentionner que code doit être le parametre de ma requete SQL? (c'est à dire "execute get_parametres 'code'" qui va me retourner: date_émission, date_échéance, taux, maturité)

Merci beaucoup.

Bonjour,
Dans l'exemple du lien il est question d'un module de classe qui gère la manipulation de données en lien avec une base de données X!

Dans cette exemple il s'agit d'une procédure stocké sur Sql Serveur.

Il faudra donc modifier la connexion en du type de base Access,Excel,Sql serveur.

Un requet paramétré s'écrit comme çà

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sql="select [Champ1],[Champ2] From [Table] Where [Champ3]=?" adSmallInt = 2 adParamInputOutput = 3 adCmdText = 1 'Paramètre de type integer de valeur 55 Set Param1= CreateObject("ADODB.Command").CreateParameter("Champ3", adSmallInt, adParamInputOutput, 4, 55) With CreateObject("ADODB.Command") Set .ActiveConnection = Connexion .CommandType = adCmdText .CommandTimeout = 500 .Parameters.Append Param1 .CommandText = Sql Set CommadExecute = .Execute End With

---

Merci pour cette réponse.

Donc si je veux utiliser le paramètre code de la fonction VBA comme paramètre de la requete SQL, je dois remplacer 55 par code?

Oui exactement.

J'essaye d'adapter la fonction mais ça ne marche pas encore.

Voici une partie de code qui contient les modifications:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

Function prix_titre2(date_liquidation, code, rendement)   Dim Cn As New ADODBRD, Sql As String Cn.Server = "ATWMANARPRD": Cn.BASE = "MSAP": Cn.TYPEBASE =SQLSERVER2000 Cn.OpenConnetion   Dim flux() As Double Dim echeancier(), date_flux As Date Dim p, cc, di As Double Dim i, nbr_flux, jour_inclus As Integer   Sql = "select date_emission, date_echeance, taux, nominal, premier_j, methode_valo, periodicite_cp, maturite, periodicite_cap, base From dbo.get_parametres() where code=code" adSmallInt = 2 adParamInputOutput = 3 adCmdText = 1   Set Param1 = CreateObject("ADODB.Command").CreateParameter("code", adSmallInt, adParamInputOutput, 4, code)   With CreateObject("ADODB.Command") Set .ActiveConnection = Connexion .CommandType = adCmdText .CommandTimeout = 500 .Parameters.Append Param1 .CommandText = Sql Set CommadExecute = .Execute End With       If methode_valo = "M" Then p = flux(1) / (1 + rendement * (echeancier(1) - CDate(date_liquidation)) / 360) End If '******************valorisation linéaire******************   If methode_valo = "L" Then If periodicite_cap = "F" Then p = nominal + cc Else p = Round((nominal - Round((nominal / maturite), 2) * (maturite - nbr_flux)), 2) + cc End If   End If   p = p + (flux(i) / ((1 + rendement) ^ di)) Next End If     Else p = 0 End If   prix_titre2 = p End Function

---

Bonjour,
non ta requête c'est exactement ça!

Code:

---

Sql = "select date_emission, date_echeance, taux, nominal, premier_j, methode_valo, periodicite_cp, maturite, periodicite_cap, base From dbo.get_parametres() where code=?"

---

Je suis désolée mais ça ne marche pas encore.

Le résultat de la requete SQL doit être stocké dans une variable pour pouvoir l'utiliser ou bien ça marche comme dans mon code?

Déjà as tu un message d'erreur, si oui le quel?

Le résulta de ta requête est dans CommadExecute {Set CommadExecute = .Execute}

Après si c'est Ok on verra comment la gérer.

Je n'ai pas de message d'erreur. Mais quand j'utilise la fonction ça me retourne #VALEUR!

Bonjour,
En fait, si je comprends bien,tu utilises ta fonction dans une cellule Excel {#VALEUR}!

Hors CommadExecute c'est un recordSet une sorte te tableau à plusieurs dimensions! L'erreur est inévitable!

Il faut traiter CommadExecute avant de retourner une valeur à Excel! Que veux tu récupérer dans ta cellule, sachant que tu n'a le droit qu'à une seule valeur?

Positionnes toi sur la ligne Set CommadExecute = .Execute et appuie sur la touche [F9];
Exécutes ta formule dans Excel;
Quand la macro s'arrête sur la ligne Set CommadExecute = .Execute, fait un click droit sur CommadExecute-> ajouter à l'espion;
Appuies sur [F8] et regardes le résultat dans l'espion.

Accessoirement fais un imprime écran et poste l!