Export vers Access vers EXCEL en VBA

Bonjour,

Je souhaites insérer dans une cellule Excel les différentes valeurs prise par un champs pour une enregistrement donné
exemple de code:
Comment faire pour que les différentes valeurs prise par "ETA_DENO_COUR" dans ma requete (r étant mon curseur) soient insérées les unes derrieres les autres dans la cellule définie dans la ligne ci dessous et donc que la deuxieme valeur s'ajoute a la premiere et non l'éfface?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 While r.Fields("id_proj") = vproj_unit wk.Worksheets(1).Cells(ligne, 7) = r.Fields("ETA_DENO_COUR") r.MoveNext If r.EOF Then GoTo Suite1 Wend
D'avance Merci de vos reponses

En admettant que ton chp soit de type TXT , eh bien tu concatènes tes résuktats avant de l'affecter à la cellule :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
While r.Fields("id_proj") = vproj_unit  
   monString = monString & " " & r.Fields("ETA_DENO_COUR")  
   r.MoveNext  
   If r.EOF Then 
      GoTo Suite1 
      wk.Worksheets(1).Cells(ligne, 7) = monString
  end if
Wend
...

:P

Merci et desole pour cette question un peu stupide
Citation:
Envoyé par micniv
En admettant que ton chp soit de type TXT , eh bien tu concatènes tes résuktats avant de l'affecter à la cellule :
Code:

1 2 3 4 5 6 7 8 9 10 11 While r.Fields("id_proj") = vproj_unit monString = monString & " " & r.Fields("ETA_DENO_COUR") r.MoveNext If r.EOF Then GoTo Suite1 wk.Worksheets(1).Cells(ligne, 7) = monString end if Wend ...
:P