[Toutes versions] Publispostage "enregistrement suivant" vers une colonne et non une ligne

[alshjv]

Bonjour,
J'ai un publipostage qui fonctionne (pour l'instant) très bien pour un centre de loisirs.
Une base excel qui nous permet d'entrer les activités des enfants en fonctions des dates, des groupes d'enfants et de la période :





Pour ensuite être utilisé (entre autres) sur un publipostage word, dans un tableau où les enregistrements sont en lignes où je me sers de "enregistrement suivant" pour passer d'un enregistrement à l'autre :





ce qui donne ça :




Le tout fonctionne bien mais on m'oblige maintenant, à faire le même tableau en colonne c'est à dire avec la date en haut et les activités en dessous. Et là plus rien ne fonctionne "enregistrement suivant" n'accepte pas les colonnes et je galère depuis quelques temps là-dessus. Ce que je voudrais c'est ça :





Donc :
Comment faire ?
Est-ce possible ?

Merci d'avance
Philippe

[Heureux-oli]

Salut,

Et faire une rotation du tableau ne serait-elle pas plus simple, on fait une macro et on l'utilise à souhait !?!

[alshjv]

Salut,
Tu veux dire une rotation du tableau word une fois fusionné ? Heu je ne sais pas la piste me parait intéressante, mais j'aurais besoin d'un peu plus de détails si possible.
Philippe

[Heureux-oli]

Salut,

Peut-être avec ce code ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub RotationTable()
Dim intL As Integer, intL1 As Integer
Dim intC As Integer, intC1 As Integer
Dim oTbl1 As Table, oTbl2 As Table
 
Set oTbl1 = ActiveDocument.Tables(1)
intL = oTbl1.Rows.Count
intC = oTbl1.Columns.Count
 
 
Set oTbl2 = Selection.Tables.Add(Range:=Selection.Range, numrows:=intC, numcolumns:=intL)
 
For intL1 = 1 To intL
    For intC1 = 1 To intC
     oTbl2.Cell(intC1, intL1).Range.Text = Nettext(oTbl1.Cell(intL1, intC1).Range.Text)
    Next intC1
Next intL1
 
Set oTbl1 = Nothing
Set oTbl2 = Nothing
 
 
 
 
End Sub
 
Public Function Nettext(stTemp As String) As String
Nettext = Left(stTemp, Len(stTemp) - 2)
 
End Function