Discussion :

[paimour]

Bonjour à tous,

Mon code suivant fait quelque chose bizarre que je ne comprends pas.
Une fois dans la boucle While, il passe par la première ligne et deuxième ligne de code qu'il contient et reviens automatiquement sur le While. Il ne passe jamais par mon update et mon movenext. Pourquoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    ValeurVL = feuille.Range("A1:J1").Find("VL retenue", LookAT:=xlWhole).Column
    nbligne = Excel.WorksheetFunction.CountA(feuille.Columns(1))
    Set rs_parcours = CurrentDb.OpenRecordset("Table.tp_opcvm")
    Do While Not rs_parcours.EOF
        rs_parcours.Edit
        rs_parcours.fields("[VL]") = Excel.WorksheetFunction.VLookup(rs_parcours.fields("[ISIN]"), "A2:I" & nbligne, ValeurVL, False)
        rs_parcours.Update
        rs_parcours.MoveNext
    Loop

[marot_r]

Bonjour.

Étrange ton truc, le code à l'air propre.

As-tu suivi le code pas à pas et bien confirmé que ce n'était pas une illusion ?

Si tu mets la ligne du VLookup en commentaire, est-ce que le parcours de la boucle se fait ?

A+

[hyperion13]

Salut
En L6 ne manque-t-il pas .Value après [ISIN] ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs_parcours.fields("[VL]") = Excel.WorksheetFunction.VLookup(rs_parcours.fields("[ISIN]").Value, "A2:I" & nbligne, ValeurVL, False)

[paimour]

Bonjour,

J'ai bien fait mon code pas à pas, et c'est comme ça que je me suis rendu compte que mon programme n'allait pas jusqu'au bout.
Par contre j'ai remarqué, par je ne sais quel mystère, que même si le programme ne passait pas par mon movenext, il le fait automatiquement. C'est très perturbant
Lorsque je replace le morceau Vlookup par une chaîne de caractère quelconque, le code fonctionne bien.

[paimour]

Salut
En L6 ne manque-t-il pas .Value après [ISIN] ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rs_parcours.fields("[VL]") = Excel.WorksheetFunction.VLookup(rs_parcours.fields("[ISIN]").Value, "A2:I" & nbligne, ValeurVL, False)

C'était ça ! Merci beaucoup !