[vba] remplir un tableau excel depuis une table accessRé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 pollens et dans ma premi&#232;re colonne des noms de pollens venant aussi de ma table.
Maintenant ce que j'aimerais faire c'est pour chaque case de ma feuille aller r&#233;cup&#233;rer la valeur du champ nombre dans ma table correspondant au  pollen et au numero d'&#233;chantillon .
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 & "');"
                Set rst = CurrentDb.OpenRecordset(Mysql, dbOpenDynaset, dbReadOnly)
                xl.Cells(j, i).Value = rst![nombre]
            Next
Next

J'obtiens un message d'erreur comme quoi il n'existe pas d'enreigstrements correspondant.
Il est possible en effet qu'il n'y ai pas de champ correspondant a ce pollen et &#224; ce num&#233;ro d'&#233;chantillon dans ma table pollens.

Mes questions sont : 
- Mon code est-il juste ?
- Si oui comment dire au programme de continuer la boucle m&#234;me si il n'y a pas d'enregistrements ?

Merci,
Seb.

cokinoumasterflash · Answer

J'ai r&#233;ussi &#224; me debuguer en partie:
La solution pour le mssage d'erreur : 
                If rst.EOF False And rst.BOF False Then
                    xl.Cells(j, i).Value = rst![nombre]
                End If

[vba] remplir un tableau excel depuis une table access

1 réponse

Discussions similaires