URGENT - Variable d'un recordset en VBA Access vers ExcelRésolu

Question

Bonjour! Bon mon probl&#232;me est surement juste un petit d&#233;tail, mais malheureusement ca fait plusieurs heures que je cherche une solution et j'en ai toujours pas trouv&#233; alors je me suis dit que j'allais surement avoir une r&#233;ponse d'une &#226;me charitable.

Je travaille en VBA Access qui envoye des donn&#233;es dans un classeur Excel. Mon probl&#232;me se situe au niveau des recordset.     

(d&#233;but du code)

Dim rsMois As New ADODB.Recordset
Dim valMois As String
Dim Mois As String
valMois = 4Mois "SELECT * FROM tblMois WHERE Num_Mois " & valMois & ""
 rsMois.Open Mois, cn, adOpenDynamic, adLockOptimistic, 1


 Mois = rsMois![Mois]

Dim rsH35 As New ADODB.Recordset
Dim H35 As String
        H35 "SELECT * FROM tblExemple WHERE Niveau_de_service 'Disponibilit&#233; des applications AND Ann&#233;e_trait&#233;e = " & Annee & ""
rsH35.Open H35, cn, adOpenDynamic, adLockOptimistic, 1


Jusqu'ici j'ai pas de probl&#232;me c'est lorsque j'arrive pour appeler ma valeur mois dans mon recordset

   objSheet.cells(35, 8).Value = rsH35![" & Mois & "]       C'est a cette ligne que ca plante.

Je sais que c'est la d&#233;claration de ma variable qui n'est pas correct mais je ne sais pas ce que je dois &#233;crire exactement. Car lorsque j'&#233;cris ca : objSheet.cells(35, 8).Value = rsH35![Avril] tout fonctionne &#224; merveille.

Si vous savez ce que je dois faire s'il vous pla&#238;t utiliser quelques secondes de votre temps pour me r&#233;pondre c'est assez URGENT...


Merci d'avance!

cs_wape · Accepted Answer

Bonjour,

Essaye avec :

objSheet.cells(35, 8).Value = rsH35.Fields(Mois)

wape

karitchy · Answer

Merci encore &#224; toi Wape... tu m'es d'une grande aide pour mon projet. Si &#231;a continue comme &#231;a au lieu de demander &#224; tout le monde qui vient sur ce site mes questions je vais juste te les poser. hihi!

Tu es fantastique!!!

hyrockbass · Answer

je veux bien t'aider mais il y a juste une ligne que je ne comprend pas. A quoi sert Mois = rsMois![Mois] ou plutot que fait cette ligne car si c'est pour recup&#233;rer le champs "Mois" du recordset moi je ferais "Mois = rsMois.Fields("Mois")" et &#231;a je suis sur que &#231;a marche.

karitchy · Answer

Pour ceux qui on eu le m&#234;me probl&#232;me que moi... j'ai trouv&#233; une 2ieme solution lors de mes recherches... 

Dim rsMois As New ADODB.Recordset
Dim valMois As String
Dim Mois As String
valMois = 4Mois "SELECT * FROM tblMois WHERE Num_Mois " & valMois & ""
 rsMois.Open Mois, cn, adOpenDynamic, adLockOptimistic, 1 
Mois = rsMois![Mois]

Dim rsH35 As New ADODB.Recordset
Dim H35 As String
        H35 "SELECT " & Mois & " FROM tblExemple WHERE Niveau_de_service 'Disponibilit&#233; des applications AND Ann&#233;e_trait&#233;e = " & Annee & ""
rsH35.Open H35, cn, adOpenDynamic, adLockOptimistic, 1


Set rsH35 = cn.Execute(H35)
objSheet.Cells(35, 8).CopyFromRecordset rsH35

En esp&#233;rant que wape ou moi nous vous avons aider... Sinon ne l&#226;cher pas vous aller trouver vous aussi!

karitchy · Answer

Bonjour hyrockbass! Cette ligne de code sert juste car j'utilise souvent cette variable dans mon code alors j'ai a &#233;crire moins de code &#224; chaque fois. Tout simplement! Et en plus cette ligne de code fonctionne bien de la mani&#232;re que je l'ai cod&#233;... Mais ta facon fonctionne aussi... Mon probl&#232;me &#233;tait d'aller chercher la valeur dans ma variable. Et non l'affectation d'une donn&#233;e &#224; ma variable. Seulement un probl&#232;me de communication entre nous 2. 

Merci quand m&#234;me pour ton aide!

URGENT - Variable d'un recordset en VBA Access vers Excel

5 réponses

Discussions similaires