Caster une variable recordset en double

Re : Caster une variable recordset en double

Je t'ai mis trois fichiers : la source, la destination et la macro
Dans la macro il faut mettre à jour le chemin du fichier source.
J'ai fait une petite macro qui expose mon problème, merci beaucoup de m'aider.

Bonne chance !

Sub MACRO()

Dim Cn As ADODB.Connection
Dim fichier As String
Dim NomFeuille As String, texte_SQL As String
Dim Centre As String
Dim Rst As ADODB.Recordset

'Définit le classeur fermé servant de base de données
fichier = "CHEMIN A COMPLETER POUR VOUS \FICHIERSOURCE.xls"

'Nom de la feuille dans le classeur fermé
NomFeuille = "Feuil1"
Set Cn = New ADODB.Connection

'--- Connection ---

With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & fichier & _
";Extended Properties=Excel 8.0;"
.Open
End With

'-----------------

'Définit la requête.

Centre = Range("A2").Value
texte_SQL = "SELECT sum(montant)FROM [Feuil1$] WHERE centre='A5'"

Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute(texte_SQL)

Dim Resultat As Variant
Resultat = Trim(Replace(Rst, ",", "."))
Resultat = CDbl(Resultat)


'Resultat = (Resultat / 1000) * (-1)

Range("B2").CopyFromRecordset Rst

End Sub

Re : Caster une variable recordset en double

Re,

voici qui fonctionne chez moi.
Ne pas oublier de mettre les cellules au format Nombre.
J'ai modifié quelques valeur du fichier source pour avoir des virgules.

Ne pas oublié non plus qu'avec MSADO il vaut mieux nettoyer correctement les variables objets et fermer la connexion après usage.(risque d'erreur d'entrée/sortie et/ou ralentissement)

Où l'on voit l'intérêt de se fendre de fichier exemples.

A+

Re : Caster une variable recordset en double

Ca fonctionne à merveille,
Merci beaucoup pour ton aide, vous avez vraiment un super forum à l'écoute des gens !
A+