exporter un champs d'un table access vers excel selon une conditionRésolu

Question

Bonjour,
Je suis en train d'essayer d'exporter des donn&#233;es d'une table Access vers Excel.
Pour le moment j'ai r&#233;ussi &#224; exporter dans la premi&#232;re ligne de ma feuille excel des numeros d'&#233;chantillons venant d'une table et dans ma premi&#232;re colonne des noms de pollens venant aussi de ma table.
Ensuite j'essaie d'aller chercher le nombre de pollens compt&#233;s pour chaque case de la feuille (croisement du nom du pollen et du numero d'echantillon). Tous ces champs sont dans ma table pollens.
J'ai &#233;crit ce code,



For i = 5 To n   ' toutes les lignes de ma feuille en partant de la n&#176; 5
             For j = 2 To m ' toutes les colonnes de ma feuille en partant de la n&#176;2
                Mysql = "SELECT [nombre] FROM pollens WHERE ([numech]= '" & xl.Cells(1, j).Value & "' AND [taxon] = '" & xl.Cells(i, 1).Value & "');"                If rst.EOF False And rst.BOF False Then
                    xl.Cells(j, i).Value = rst![nombre]
                End If
            Next
        Next


Mon probl&#232;me est que mon programme ne me renvoie aucun nombre dans les case de ma feuille et que je n'ai pas de message d'erreur.
Quelqu'un a-t-il une id&#233;e ?

Merci,
Seb.

cokinoumasterflash · Accepted Answer

En fait c'est bon.
A force de faire des modifications j'avais supprim&#233; une ligne de code que je n'aurais pas du.

code :
For i = 5 To n
             For j = 2 To m
                Mysql = "SELECT [nombre] FROM pollens WHERE ([numech]= '" & xl.Cells(1, j).Value & "' AND [taxon] = '" & xl.Cells(i, 1).Value & "');"
                Set rst = CurrentDb.OpenRecordset(Mysql, dbOpenDynaset, dbReadOnly)                If rst.EOF False And rst.BOF False Then
                    xl.Cells(j, i).Value = rst![nombre]
                End If
            Next
        Next

Exporter un champs d'un table access vers excel selon une condition

1 réponse

Discussions similaires