Export Excel

[jfarissi]

Bonjour,
Je fais un export des documents sélectionnés, j'ai un champ liste que lis sa valeur de la façon suivante.

For i= 1 To collection.count
Set doc=collection.getnthdocument(i)
For j=1 To MaxField
Set item = doc.getfirstitem(FieldList(j))
If (j = 5) Then
s=0
Forall personne In item.Values
Redim Preserve tabpers(s) As String
Set valeur=New notesname(personne)
tabpers(s)=valeur.Common
s=s+1
End Forall
object.Worksheets(1).cells(i+1,j).FormulaLocal =tabpers
Elseif (j=6) Then
s=0
Forall personne In item.Values
Redim Preserve tabpers1(s) As String
Set valeur=New notesname(personne)
tabpers1(s)=valeur.Common
s=s+1
End Forall
object.Worksheets(1).cells(i+1,j).FormulaLocal =tabpers1
Else
object.Worksheets(1).cells(i+1,j).FormulaLocal =item.text
End If

lors du debug je voix que le tableau reçoit bien les deux valeurs du tableau mais dans la cellule Excel il ne reçoit que la première valeur
une idée

Cordialement.

[jfarissi]

C'est bon ça marche avec la fonction "join"