Discussion :

[ML0808]

Bonjour à tous,

Comme mon intitulé n'est pas limpide, je vais m'expliquer:
j'ai fait une macro qui copie un paragraphe de Word vers Excel. Le problème se produit quand se paragraphe comment par un tiret comme par exemple :

- ceci est mon paragraphe.

Quand la macro le selectionne, le copie et le colle dans une cellule excel, le texte se transforme en :
=- ceci est mon paragraphe.
Il prend le tiret pour un moins et donc transforme mon paragraphe en formule, qui s'affiche logiquement dans ma feuille par #NOM?

Quelqu'un a-t-il une idée pour résoudre ce problème?
D'avance merci,
Marc

[fring]

Bonjour,

Je ne connais pas ta procédure pour coller le texte dans le fichier Excel mais essaye ceci en l'adaptant à ton code

Code :

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

ActiveSheet.PasteSpecial Format:="Texte"

[Abed_H]

Bonsoir
Pour Excel c’est fonction non reconnue pour cela il affiche #NOM? Peut être qu'il faut précéder le signe - par un apostrophe comme ça

' - ceci est mon paragraphe.

Bonne soirée
Abed_H

[ML0808]

Bonjour,

Fring =>
la ligne de collage est celle ci :

Code :

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

RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Paste:=xlValues, Operation:=xlNone

J'avais en effet déjà essayé ceci :

Code :

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

RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Paste:=xlText, Operation:=xlNone

Mais ça ne marchait pas
Celle là :

Code :

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

RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Format:="Text", Operation:=xlNone

génère une erreur...

Abed_H =>
Le problème est que je n'ai pas le droit de modifier le document Word de base pour enlever les tirets. Une fois le collage effectué, la cellule devient tout de suite une formule et j'ai pas trouvé le moyen de la modifié automatiquement pour rajouter un caractère devant...

Merci pour vos réponses,
Marc

[fring]

Bonjour,
RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Format:="Text"
génère une erreur...

Oui deux choses :
- lorsqu'on utilise PasteSpecial, il faut passer par des Select
- Format:="Texte" et pas "Text"

Code :

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

1
2
3
Sheets("Résultats").Select
Cells(m, 4).Select
ActiveSheet.PasteSpecial Format:="Texte"

[ML0808]

En effet, au temps pour moi.
Avec ta formulation, ça copie/colle en effet, mais le problème persiste!
Merci pour votre aide

[Heureux-oli]

Il ne faut pas copier et coller le texte, mais directement l'utiliser.

Code :

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

ActiveDocument.Paragraph(1).range.text

Correspond à la plage contenant les données.

Normalement, le problème ne devrait plus persister.

[ouskel'n'or]

Bonsoir
Pour Excel c’est fonction non reconnue pour cela il affiche #NOM? Peut être qu'il faut précéder le signe - par un apostrophe comme ça Bonne soirée
Abed_H

Tu n'as pas compris la réponse d'Abed_H.
Quand tu colles ton paragraphe, ajoute "'" au début. Tu auras ainsi
"'- LeParagraphe" dans la cellule.
L'apostrophe (invisible dans Excel) permet de dire qu'il s'agit d'un texte, non d'une formule.
A toutes fins utiles

[ML0808]

Code :

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

RECH.Sheets("Résultats").Cells(m, 4).Value = wrdApp2.wrdDoc.Paragraph(pg).Range.Text

donne "Propriété ou méthode non générée par cet objet"... qu'ai-je mal fait?

ouskel'l'nor : oui, j'y ai pensé mais si je fait

Code :

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

Cells(x,y).PasteSpecial

, il me le colle direct dans la cellule, comment y caser un " " avant?

[ouskel'n'or]

Tu fais ça sur deux lignes
Mets ton code de copie qu'on t'arrange ça...
A+

[ML0808]

Voilà!:

Code :

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

1
2
3
4
5
6
7
8
' Copie le paragraphe contenant le résultat
wrdApp2.Selection.Copy
' Place le curseur à droite du paragraphe copié pour continuer la recherche dans la suite du document
wrdApp2.Selection.Moveright , Extend:=0
 
 
' Colle le résultat dans la feuille "Résultat"
    RECH.Sheets("Résultats").Cells(m, 4).PasteSpecial Paste:=xlValues, Operation:=xlNone

Encore merci pour votre aide