Bonjour tout le monde,
J'ai un besoin d'aide assez urgent. J'ai un gros souci dans mon document WORD.
J'explique le sujet.
A partir d'un fichier texte, je dois créer dans un document WORD un organigramme sur plusieurs pages.
J'arrive bien à créer mes textbox sur ma première page.
J'arrive à créer les n pages dont j'ai besoin.
Par contre, je n'arrive pas à passer d'une page à une auter pour faire les couches successives de mon diagramme.
Voici mon code :
' mise en page de la première page du document
With ActiveDocument.PageSetup
.LeftMargin = InchesToPoints(0.5)
.RightMargin = InchesToPoints(0.5)
.TopMargin = InchesToPoints(0.5)
.BottomMargin = InchesToPoints(0.5)
.Orientation = wdOrientLandscape
PaperSize = wdPaperA3
End With
Li_TopMax = 800: Li_LeftMax = 570
' Affichage de la 1e partie de l'organigramme
Li_Shape = Li_Shape + 1: Li_top = 385: Li_left = Li_left + 0
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, Li_top, Li_left, 36, 20
With ActiveDocument.Shapes(Li_Shape).TextFrame
.TextRange = tSiege.matricule.poste
.Orientation = msoTextOrientationHorizontal
.TextRange.Font.Size = 8
End With
' SAUT DE PAGE
With ActiveDocument.Range
.Collapse Direction:=wdCollapseEnd
.InsertBreak wdPageBreak
End With
Li_Shape = 0
' Affichage de chaque direction
Li_Shape = Li_Shape + 1: Li_top = 585: Li_left = Li_left + 40
ActiveDocument.Shapes.AddTextbox msoTextOrientationHorizontal, Li_top, Li_left, 36, 20
With ActiveDocument.Shapes(Li_Shape).TextFrame
.TextRange = tDir(1).matricule.poste
.Orientation = msoTextOrientationHorizontal
.TextRange.Font.Size = 8
End With
' Saut de page
With ActiveDocument.Range
.Collapse Direction:=wdCollapseEnd
.InsertBreak wdPageBreak
End With
Est-ce que quelqu'un aurait une idée ou pourrait me dire ce que j'aurai oublier, SVP ?
Merci par avance.
