Discussion :

[Menhir]

Bonjour à tous,

J'ai développé un code qui transfère des zones de texte d'un document à un autre.
Voici un résumé de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
For Each Y_S In Documents(Y_FileSource).Shapes
	Y_S.Select
	Selection.Copy
	Documents(Y_FileCible).Activate
	Selection.Collapse
	Selection.Paste
	Selection.Collapse
	Documents(Y_FileSource).Activate
Next Y_S

Il remplit bien la fonction demandée : copier chaque zone de texte dans la source et la coller dans la cible.

Je voudrait l'améliorer.
Les zones de texte sont nombreuses et la succession de Activate pour passer alternativement de la source à la cible crée un effet pas très agréable à regarder (voir même inquiétant pour les utilisateurs) et ralentit sans doute le programme.

Malheureusement, je n'ai pas trouvé comment faire des Copy et des Paste sur autre chose que des Selection.

Existe-t-il un moyen de faire des Copy ou des Paste sur un document non activé ?
Je suppose qu'il doit exister quelque chose du style :
Documents(Y_FileSource).[...].Copy
Mais, après m'être usé les yeux sur l'Aide et avoir essayé plusieurs méthodes infructueuses, je n'ai toujours pas trouvé de solution.

Pourriez-vous m'aider ?
Merci d'avance.

[Menhir]

J'ai trouvé un début de solution avec la syntaxe suivante :

Code :

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

1
2
3
4
5
For Each Y_S In Documents(FileSource).Shapes
	Y_S.Select
	Selection.Copy
	Documents(FileCible).Range.Paste
Next Y_S

Seul problème : ça ne marche que pour la première page.
Et j'ai besoin que cette copie se fasse pour tous les éléments de la première page mais aussi de la dernière page.

J'ai essayé de déplacer le curseur du document cible avec le code suivant.

Code :

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

1
2
3
4
Documents(FileCible).Activate
ActiveDocument.Content.Select
Selection.Collapse Direction:=wdCollapseEnd
Documents(FileSource).Activate

Le curseur se déplace effectivement sur la dernière page du fichier cible mais les shapes de la dernière page continuent à se copier sur la première.

Je pense que le problème doit venir du Range qui précède le Paste. Il faut soit une autre propriété, soit une propriété supplémentaire qui signifie la position du curseur.

Avez-vous une méthode pour résoudre ça sans avoir à activer le document cible systématiquement à chaque Paste ?

[Heureux-oli]

Salut,

Si c'est l'affichage qui pose problème, cache le.

Code :

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

application.ScreenUpdating = False

et True pour l'afficher à nouveau.

[Menhir]

Merci pour ta réponse Oli mais depuis hier, je suis parvenu à trouver une solution en passant pas les onglets.

Pour ceux qui pourraient rencontrer le même problème, je donne la solution que j'ai utilisée.

Je place un onglet sur la dernière page de mon modèle (qui devient le document cible dans ma macro) et je copie avec le code suivant

Code :

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

1
2
3
4
5
For Each Y_S In Documents(FileSource).Shapes
         Y_S.Select
         Selection.Copy
         Documents(Y_FileCible).Bookmarks("Onglet_PageFin").Range.Paste
Next Y_S

[Menhir]

Pour ceux que ça intéresse, il existe une méthode encore meilleure, en utilisant des onglets prédéfinis comme \EndOfDoc ou \Section.

[Heureux-oli]

Salut,

Il y a encore mieux, ne pas passer par une sélection.

[Menhir]

Bin... justement, c'était tout l'objet de la question.
La méthode Copy (ou la propriété Range) n'étant pas membre de l'objet Shape, comment faire sans passer par l'intermédiaire d'une sélection ?

[Heureux-oli]

Salut,

comme tu faisait les questions et les réponses tout seul, difficile de te donner une indication sur le voie à suivre. Et une de tes demandes était de ne pas montrer à l'écran les manipulations.

Quand je mentionne le Range, ce n'est pas pour en faire une copie, mais l'utiliser tel quel.