Discussion :

[quangdao]

Bonjour à tous,

J'ai copié une plage (marquée par DebutPlage et FinPlage) dans le document Word puis coller cette plage entière dans une cellule Excel.

Code :

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

1
2
3
4
5
 
'je copie
AppWord.ActiveDocument.Range(Start:=DebutPlage, End:=FinPlage).Copy
'je colle
WksExcel.Cells(Nb, 3).PasteSpecial Paste:=xlAll

La plage ne rentre pas dans la cellule et je ne connais pas les paramètres du
PasteSpecial pour le faire.

Si quelqu'un a résolu le même problème, merci de me donner la solution.

Merci.

[Heureux-oli]

Essaie :

Code :

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

WksExcel.Cells(Nb, 3) = AppWord.ActiveDocument.Range(Start:=DebutPlage, End:=FinPlage).Text

[quangdao]

Merci Heureux-Oli, mais le problème c'est que quand ma plage dans Word contient plusieurs paragraphes avec puces et numérotations, la commande la considère comme text.

Moi je voudrais copier en gardant la structure puis coller, comme si on le fais manuellement : on copie Ctrl-C dans Word, puis aller mettre le curseur à côté du "=" de la cellule à coler et on colle Ctrl-V.

Donc je pense plutôt passer par Copy mais je bloque avec PasteSpecial.

Je vais passer voir sur MSDN mais si tu as une idée, ça permet de réduire le temps de recherche.

Encore merci de ta rapidité.

[Heureux-oli]

C'est pas aussi simple qu'un simple coller.
Chaque paragraphe est collé dans une cellule, en fonction de la mise en forme que le texte possède en Word, il y a une mise en forme appliquée à la cellule, par exemple pour les puces, il y a un retrait du texte.
Ce n'est pas un collage global qu'il te faut, mais un collage par portion de texte.

[quangdao]

Merci heureux-oli

Oui les mises en formes dans Word et dans Excel sont différents du coup les puces ne sont plus les mêmes après le copier/coller manuel mais c'est pas grave. L'important c'est de mettre tous les paragraphes de la plage dans une cellule.

Je continue...

C'est pas aussi simple qu'un simple coller.
Chaque paragraphe est collé dans une cellule, en fonction de la mise en forme que le texte possède en Word, il y a une mise en forme appliquée à la cellule, par exemple pour les puces, il y a un retrait du texte.
Ce n'est pas un collage global qu'il te faut, mais un collage par portion de texte.

[Heureux-oli]

Oui, mais quand tu fais un copier coller manuel, tout n'est pas dans la même cellule.

[quangdao]

Ah si, quand je mets le curseur dans la barre formule au-dessus (et pas sur la cellule) puis je colle, ça va coller tous les paragraphes de la plage que j'ai copiée.

Je vais devoir tester toutes les options de PasteSpecial

Oui, mais quand tu fais un copier coller manuel, tout n'est pas dans la même cellule.

[Heureux-oli]

Salut,

Je pense que c'est au niveau du format de la cellule que tu dois chercher.

[quangdao]

Merci Heureux-Oli je vais continuer ce soir après dîner.

Bonne soirée.

Salut,

Je pense que c'est au niveau du format de la cellule que tu dois chercher.