Mise en page Tableau sous Word [Résolu]

[PoluxProg]

Bonjour,

J'ai un tableau constitué dynamiquement sous excel que j'exporte vers un signet d'un document word.

J'arrive à l'exporter, mais pour la mise en page c'est presque ça...
Je n'arrive pas, lorsque j'ai le tableau sur plusieurs page, à faire les bordures sur le bas et sur le haut du tableau. La bordure se met soit en haut ou soit en bas... :c

Pouvez-vous m'aider à résoudre ce problème ?

Merci

[Heureux-oli]

Pourrais-tu nous donner une partie de ton code, que l'on puisse voir d'où vient le problème.

[PoluxProg]

Voici mon 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
Dim appWrd As Word.Application
Dim docWord As Word.Document
 
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = False
Set docWord = appWrd.Documents. _
 Open("D:\XXX.doc", ReadOnly:=False)
 docWord.Application.Visible = False
 
FeuilDevis.Cells.Find(What:="Montant HT", After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Select
 
 FeuilDevis.Range("A14:E" & CInt(Mid(ActiveCell.Address, 4)) + 2).Copy
 docWord.Bookmarks("Bordereau2").Range.Paste
 
 docWord.Tables(1).AutoFitBehavior wdAutoFitWindow
 
 Application.CutCopyMode = False
 
 docWord.SaveAs "D:\YYY.doc"
 docWord.Close
 appWrd.Quit

Pour le résultat : Voir les deux images jointes

Avec ce code j'exporte mon tableau d'excel vers word avec une bonne largeur. Je me suis arrangé sur excel pour que tous les n lignes (n correspond à une page sur word) j'insère une ligne pour les titres.

Mais voilà, pas de bordure sur le haut du tableau de la deuxième page...

[Heureux-oli]

c'est plus facile avec un exemple.
Si c'est un tableau continu, tu peux très bien définir quelles lignes serviront d'entête pour ton tableau.

Pour autoriser des entêtes au tableau :

Code :

 docWord.Tables(1).Rows.HeadingFormat = True

Ça devrait t'éviter de compter les lignes.

Pour ajouter des bordures

Code :

1
2
3
4
5
6
docWord.Tables(1).Select
With Selection.Borders
    .Enable = True
    .InsideLineStyle = wdLineStyleSingle
    .OutsideLineStyle = wdLineStyleDouble
End With

Pour faire plus joli

[PoluxProg]

Merci pour ces codes. On sent la maitrise...
Par contre, malgré les avoir insérés dans mon code, j'ai quelques petits soucis...

1) Mon entête n'est pas répété.

2) J'ai un message d'erreur sur les lignes suivantes:

Code :

1
2
3
4
5
With Selection.Borders
    .Enable = True
    .InsideLineStyle = wdLineStyleSingle
    .OutsideLineStyle = wdLineStyleDouble
End With

"Erreur exécution '438' :
Propriété ou méthode non géré par cet objet"

[Heureux-oli]

Pour les titres du tableau, essaye ceci :

Code :

docWord.Tables(1).Rows(1).HeadingFormat = True

Par contre, pour le second code, je ne trouve pas ce qui coince.

Chez moi il passe bien.

Tu dois le mettre après cette ligne :

Code :

docWord.Tables(1).AutoFitBehavior wdAutoFitWindow

[PoluxProg]

Bon, J'ai avancé un peu sur le problème...

Pour les bordures, c'est OK.
En fait "Selection" pointait sur une cellule excel donc, il ne comprenait pas les objets liés à cette cellules.

Par contre, pour l'entête répété sur chaque feuille, c'est pas encore ça.
quelque soit les 2 codes suivants, il ne fait pas d'erreur, mais j'ai
l'impression qu'il manque une ligne de code pour rafraichir ou qu'il en prenne compte...

Code :

docWord.Tables(1).Rows(1).HeadingFormat = True

ou

Code :

docWord.Tables(1).Rows.HeadingFormat = True

[PoluxProg]

Bon...
C'est tout bon...
Il fallait simplement rajouter avant le Headinformat la ligne suivante :

Code :

 docWord.Tables(2).AllowPageBreaks = False

Merci Heureux-oli pour le temps passé à m'avoir trouvé les codes adéquate.

@+