Discussion :

[AlexisB.]

Bonjour à tous,

J'ai une problématique un peu particulière, qui paraît très étrange. Vous pouvez peut-être me dire si un cas similaire vous est déjà arrivé...
J'ai une macro assez lourde, pas spécialement bien codée car je débute. Disons qu'elle n'est pas optimisée.
En gros, la partie qui m'interroge est la suivante : je parcours des onglets Excel et je fais un export dans Word. Chaque onglet est constitué de 5 parties, ce sont des plages nommées dans Excel.
De temps en temps, je me retrouve avec des doc Word qui sont créés et où une des 5 parties n'est pas présente. J'ai l'impression (une impression étrange, je suis d'accord) que lorsque mon PC "rame un peu", la macro "oublie" des lignes de code. Si je lance la macro deux fois d'affilé, il se peut qu'une fois tout soit complet et une autre fois, des oublis. Sans avoir modifié quoi que ce soit. Pouvez-vous me dire si c'est possible ou complètement aberrant de penser que la macro oublie des choses...?
Voici le bout de code concerné, noyé au milieu du reste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
For i = 10 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(i).Select
If ThisWorkbook.Sheets(i).Range("A4").Value <> "                " Then
sNomRapport = ThisWorkbook.Sheets(i).Range("A1") & "_" & ThisWorkbook.Sheets(i).Name
ThisWorkbook.Sheets(i).Range("Intro_" & i).Copy     'copie le tableau d'intro de chaque onglet
Set wrdApp = CreateObject("Word.Application")     'ouvre une session Word
wrdApp.Visible = False
Set wrdDoc = wrdApp.Documents.Add    'crée un nouveau document
wrdApp.Selection.Paste
 
ThisWorkbook.Sheets(i).Range("Recap_" & i).Copy     'copie le tableau de chaque onglet
wrdDoc.Paragraphs.Add   'ajoute un paragraphe de type ligne blanche
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.Paste  'colle après le paragraphe
 
ThisWorkbook.Sheets(i).Range("Graphs_" & i).CopyPicture     'copie en image les graphiques de chaque onglet
wrdDoc.Paragraphs.Add   'ajoute un paragraphe de type ligne blanche
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.PasteAndFormat (wdChartPicture)    'colle en image les graphiques après le paragraphe
 
ThisWorkbook.Sheets(i).Range("NC_" & i).Copy    'copie l'encadré NC
wrdDoc.Paragraphs.Add   'on ajoute un paragraphe
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.Paste  'on le colle après le paragraphe
 
ThisWorkbook.Sheets(i).Range("Conclusion_" & i).Copy    'copie l'encadré des commentaires
wrdDoc.Paragraphs.Add   'ajoute un paragraphe (une ligne blanche)
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.Paste  'colle après le paragraphe

Merci beaucoup,

Alexis

(Et bien sûr, j'ai un "next i" à la fin...)

[Invité]

Bonjour,

Macro semble oublier des lignes de code

C'est la loi pardon Alois!

Connu pour sa description en 1906 de la maladie qui porte son nom.

J'opterai personnellement pour un modèle word avec des "champs". Ensuite je ferais un replace du "champ" word par mon tableau Excel!

[Philippe Tulliez]

Bonjour,
Comme Robert, je te suggère d'utiliser un modèle Word mais j'utiliserais le signet (Objet BookMark) dans word soit remplacer le signet par le contenu de la plage ou de la cellule nommée

[clementmarcotte]

Bonjour,

J'avoue que tout cela me laisse perplexe. Si le texte est immuable, la voie du modèle évoquée par nos deux compère est toute indiquée.

Si l'idée c'est de récupérer cinq extraits de texte parmi plusieurs extraits, tu pourrais jeter un œil par là:

http://heureuxoli.developpez.com/off...cument-tiroir/

Si tu as toujours les mêmes graphiques (sauf les données qui changent), tu peux les coller en maintenant la liaison avec Excel. Ils vont être mis automatiquement à jour à l'ouverture du document Word et ils peuvent être mis à jour manuellement en cours de travail.

P.S. Quant à savoir si c'est mieux de prendre des champs ou des signets; cela pourrait faire un (des) débat(s) intéressants. Mais cela risque plus de dépendre du besoin réel qui sous-tend la question.

P.P.S. Avec ton Word 2010, tu peux aussi regarder du côté des Quick-Parts (blocs de construction dans Office 2007). Tu peux aussi construire/ajouter les tiens.