Microsoft 365 VBA ADODB RECSET : écrire le résultats dans deux cellules.

[VBA_dev_Anne_Marie]

Bonjour,

J'ai fait une requête ADODB Recordset qui marche bien. Cette requête retourne deux enregistrements pour un numéro.
Je me demande comment écrire le deuxième résultat dans une cellule adjacente (cellule "D").

Voici mon code :

Sub Date_de_Naissance()

    Dim RECSET As New ADODB.Recordset, numero_de_police
  
    With Sheets("Coûts").Range("A1").CurrentRegion
    Call CONNEXION_PE("xxx", "xxx", "xxx")
    For I = 2 To .Rows.Count
  
    numero= .Cells(I, "A").Value
  
 
    If Len(numero) > 0 Then

         RECSET.Open " select pers.D_NAISSANCE as D_NAISSANCE  from dossier sousc,contractant cntr, personne pers" & _
            " where sousc.no_police = '" & numero & "'" & _
            " and sousc.is_contractant = cntr.is_ctant_pere and pers.is_personne=cntr.is_personne", cnn_Pe, adOpenDynamic, adLockBatchOptimistic

            If Not RECSET.EOF Then
                .Cells(I, "C").Value = RECSET.Fields("D_NAISSANCE").Value
            Else
                .Cells(I, "C").Value.Value = "Inconnu"
            End If
 
        RECSET.Close
    End If
    Next
End With
Call DECONNEXION_PE
End Sub

Je me demande comment écrire le résultat dans les cellules "C" et "D" :

            If Not RECSET.EOF Then
                .Cells(I, "C").Value = RECSET.Fields("D_NAISSANCE").Value
                .Cells(I, "D").Value = RECSET.Fields("D_NAISSANCE").Value
            Else
                .Cells(I, "C").Value.Value = "Inconnu"
                .Cells(I, "D").Value.Value = "Inconnu"
            End If

Merci pour votre aide !

 

[Hasco]

Bonjour,

Un objet Recordset est lu Enregistrement par Enregistrement (ligne par ligne) il faut donc que vous déplaciez le curseur après le traitement du premier enregistrement

 If Not RECSET.EOF Then
                .Cells(I, "C").Value = RECSET.Fields("D_NAISSANCE").Value
                ' Faire avancer le curseur de lecture d'un enregistrement plus loin
                RECSET.MoveNext
            ' Vérifier qu' il y a bien un enregistrement (la fin n'est pas atteinte)   
            If Not RECSET.OEF Then .Cells(I, "D").Value = RECSET.Fields("D_NAISSANCE").Value
            Else
                .Cells(I, "C").Value.Value = "Inconnu"
                .Cells(I, "D").Value.Value = "Inconnu"
            End If

bonne Soirée

 

[VBA_dev_Anne_Marie]

Bonjour,

Un objet Recordset est lu Enregistrement par Enregistrement (ligne par ligne) il faut donc que vous déplaciez le curseur après le traitement du premier enregistrement

 If Not RECSET.EOF Then
                .Cells(I, "C").Value = RECSET.Fields("D_NAISSANCE").Value
                ' Faire avancer le curseur de lecture d'un enregistrement plus loin
                RECSET.MoveNext
            ' Vérifier qu' il y a bien un enregistrement (la fin n'est pas atteinte)  
            If Not RECSET.OEF Then .Cells(I, "D").Value = RECSET.Fields("D_NAISSANCE").Value
            Else
                .Cells(I, "C").Value.Value = "Inconnu"
                .Cells(I, "D").Value.Value = "Inconnu"
            End If

bonne Soirée

Merci beaucoup !
Bonne soirée !