VB Excel vers Word

[dterrail]

Bonjour, j'ai un long tableau créé avec Excel que j'ai copié dans un fichier Word en VB. Jusque là pas de problème. Ce long tableau a des lignes vides (cellules sans bordures, couleur et contenu). JE souhaite remplacer ces lignes vides pas des sauts de pages dans Word. Merci de m'aider.

[jpcheck]

Salut,

j'ai un peu de mal à visualiser ton rendu final

Autant s'il s'agit d'un tableau avec un seule colonne je veux bien, mais quid d'un tableau avec plusieurs colonnes ?

[dterrail]

Envoyé par jpcheck

Salut,

j'ai un peu de mal à visualiser ton rendu final

Autant s'il s'agit d'un tableau avec un seule colonne je veux bien, mais quid d'un tableau avec plusieurs colonnes ?

_________________


Merci pour s'être penché sur mon problème.
En pièce jointe le fichier Excel qui génère un fichier Word.
Comment faire pour que dans le Word les tableaux soient séparés par des sauts de page et non une ligne vide ?

Encore merci.

[jpcheck]

Salut,

le plus simple selon moi ca serait de passer d'un copier/coller complet à un copier/coller par bloc. Tu ajouterais apreès chaque collage un saut de page

En plus, comme tu gères une plage codée en dur, c'est encore plus simple

[dterrail]

Envoyé par jpcheck

Salut,

le plus simple selon moi ca serait de passer d'un copier/coller complet à un copier/coller par bloc. Tu ajouterais apreès chaque collage un saut de page

En plus, comme tu gères une plage codée en dur, c'est encore plus simple

Merci pour ta réponse.
Je ne comprends pas comment je peux séparer chaque tableau vu que je copie l'ensemble en VBA.
Je suppose qu'il me manque le code pour transformer la ligne vide Excel en saut de page Word ?
Merci de ton aide.

[jpcheck]

Salut,

au lieu de
- copier 1 fois tes n tableaux d'un coup, tu va faire
- copier chaque tableau + ajout d'un saut de page dans ta feuille word

Pour l'ajout de saut de page, tu peux utiliser l'enregistreur de macro

[dterrail]

Envoyé par jpcheck

Salut,

au lieu de
- copier 1 fois tes n tableaux d'un coup, tu va faire
- copier chaque tableau + ajout d'un saut de page dans ta feuille word

Pour l'ajout de saut de page, tu peux utiliser l'enregistreur de macro

Bonjour,

Je suis désolé mais j'ai du mal.
Dans mon code qui copie le tableau Excel vers un fichier Word :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub page_portrait_Word()
Set wa = CreateObject("word.application")
' creation de la page word et plage de cellules à copier
With wa
    .Visible = True
    .documents.Add
    Range("A2:D37").Copy
    .Selection.Paste
    .WordBasic.TogglePortrait Tab:=3
End With
' notification des marges
With wa.ActiveDocument.PageSetup
.TopMargin = wa.CentimetersToPoints(0.5)
.BottomMargin = wa.CentimetersToPoints(0.5)
.LeftMargin = wa.CentimetersToPoints(0.5)
.RightMargin = wa.CentimetersToPoints(0.5)
End With
 
Application.CutCopyMode = False
End Sub

Il faut que j'insère dans les pages Word un saut de page quand il y a une ligne vide : ici lignes 2, 8, 14, 20, 26, 32, 38

Quel code faut-il et comment le placer dans celui existant ?

Mille fois merci.