Bonjour,
Actuellement j'essaye de copier des tableaux excel et de les coller puis les mettre en forme sous word. Mais la macro est bien trop longue (environ 10 secondes)
Je debute sous vba, aussi je me suis renseigné à droite et à gauche pour reduire le temps des macros. J'ai desactivé de nombreuses choses notamment l'affichage. Mais je ne parviens pas à réécrire le code ci-dessous sans l'utilisation de la methode Selection (qui il me semble est très gourmande)
Voici une partie du code qui pose probleme
Pour comprendre "ma logique" vu que je debute..et que celà ressemble plus à du charcutage qu'autre chose, le document final doit ressembler à ça
Titre
Sous titre 1
Tableau 1
Sous titre 2
Tableau 2
Sous titre 3
Tableau 3
Code :
- wordapp.Selection.TypeText (Titredudocument)
- worddoc.Paragraphs(1).Format.Alignment = 1
- worddoc.Paragraphs(1).Range.Font.Size = 18
- wordapp.Selection.TypeParagraph
- worddoc.Paragraphs(2).Range.Font.Size = 14
- worddoc.Paragraphs(2).Range.ParagraphFormat.SpaceAfter = 1
- worddoc.Paragraphs(2).Range.Font.Bold = True
- worddoc.Paragraphs(2).Format.Alignment = 0
- wordapp.Selection.TypeText (soustitretableau1)
- Range(Rangetableau1).Copy
- wordapp.Selection.Paste
- wordapp.Selection.TypeText (soustitretableau2)
- Range(Rangetableau2).Copy
- wordapp.Selection.Paste
- wordapp.Selection.TypeText (soustitretableau3)
- Range(Rangetableau3).Copy
- wordapp.Selection.Paste
|
Je vous remercie d'avance