[Macro] Copie de Word vers Excel : mise en formule

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

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:

---

ActiveSheet.PasteSpecial Format:="Texte"

---

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

Citation:

---

' - ceci est mon paragraphe.

---

Bonne soirée
Abed_H :mouarf:

Bonjour,

Fring =>
la ligne de collage est celle ci :

Code:

---

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

---

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

Code:

---

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

---

Mais ça ne marchait pas
Celle là :

Code:

---

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

Citation:

---

Envoyé par ML0808

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:

---

1 2 3

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

---

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

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

Code:

---

ActiveDocument.Paragraph(1).range.text

---

Correspond à la plage contenant les données.

Normalement, le problème ne devrait plus persister.

Bonjour,

J'ai pas compris ta réponse. Ma macro cherche un mot dans un document word, quand elle le trouve elle sélectionne le paragraphe, le copie et le colle dans une cellule d'un autre document excel puis continue sa recherche sur la fin de document Word.

D'après toi (si j'ai bien compris) je devrais :
- trouver le mot,
- sortir le numéro du paragraphe avec

Code:

---

wrdApp2.ActiveDocument.Range(Start:=0, End:=wrdApp2.Selection.End).Paragraphs.Count

---

et le stocker dans un entier "a" par exemple
- et enfin l'utiliser avec

Code:

---

ActiveDocument.Paragraph(a).range.text

---

Je vais essayer cette méthode après la pause déjeuner, je vous tiens au courant.

Ça devrait le faire.

Citation:

---

Envoyé par 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 Bonne soirée
Abed_H :mouarf:

---

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

Code:

---

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:

---

Cells(x,y).PasteSpecial

---

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

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

Voilà!:

Code:

---

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

Je me permets un petit Up...
J'ai continuer à trifougner de mon côté, mais je n'ai toujours rien trouvé...

Bonjour, (je ne t'avais pas vu passer)
Donc, au lieu de faire

Citation:

---

wrdApp2.Selection.Copy

---

passe par une variable

Code:

---

1 2	Valeur = wrdApp2.Selection RECH.Sheets("Résultats").Cells(m, 4).Value = "'" & Valeur

---

Je n'ai pas testé mais ça devrait le faire...
Tu dis
A+

Je ne sais pas pour quelle raison tu continues à faire de copier coller des données !

Essaie ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim xlApp As Excel.Application Dim wb As Workbook Dim ws As Worksheet   Set xlApp = CreateObject("excel.application") Set wb = xlApp.Workbooks.Add Set ws = wb.Worksheets(1)   ws.Cells(1, 1) = ActiveDocument.Paragraphs(1).Range.Text ws.Cells(1, 2) = "moi" xlApp.Visible = True     End Sub

---

Le premier paragraphe du document :
- premier paragraphe

Tu verras que le "=" ne se trouve pas dans la cellule !

Bonjour,

ouskel'n'or :

Ca marche, mais chaque début et fin de ligne dans le document est marqué par un carré


Si ma ligne est :

Sarko et Ségo sont sur un bato

la ligne collée dans Excel devient :

Sarko et Ségo sont sur un bato

Une ligne vide devient :




Une idée?
----------------
Heureux oli : je regarde tout de suite


Merci,
Marc

Pour la ligne vide, c'est lié au vbCrLf qui se trouve en fin de paragraphe.

Heureux oli : j'ai même problème de carrés qu'avec la solution de ouskel'n'or...

"Pour la ligne vide, c'est lié au vbCrLf qui se trouve en fin de paragraphe."
Je suis pas sûr de comprendre?

Encore merci à vous deux

Après avoir bien regardé, ca vient des tabulations et retour chariot... (c'est peut-être que tu me disais, Heureux O li?) Comment peut-on faire pour qu'ils ne se transforme pas en carrés?