Comment copier depuis word du texte sans mise en forme dans excel (via vba)

Bonjour,

J'ai créé un formulaire dans une feuille excel avec des cellules protégées et des zones de saisies non protégées pour saisir les données.

Tout fonctionne parfaitement.

Par ailleurs dès lors que je copie un texte venant de Word dans une cellule déprotégée de mon formulaire excel, la donnée est saisie dans le format qu'il avait dans word et du coup, la cellule qui était déprotégée avant la copie, passe en protégée ensuite.

De plus, la mise en forme de cette cellule ne correspond plus à ce que j'avais mis en page avant quelle ne soit copiée.

J'ai recherché et trouvé cette discussion, mais a priori elle ne fonctionne pas dans excel ou bien je n'arrive pas à la mettre en place.

http://www.developpez.net/forums/d60...er-mise-forme/

Qui peux m'aider sur le sujet ?

A plus tard.

bonjour,

l'idéal serait de stocker ta chaîne dans une variable avant de l'amener vers le classeur sans passer par le presse papier.

ex:

Code:

---

texte = ActiveDocument.Paragraphs(6)

---

ou

Code:

---

1 2 3

texte = ActiveDocument.Range(Start:=10, End:=100)   Range("A1") = WorksheetFunction.Trim(WorksheetFunction.Clean(texte))

---

si tu préfères une solution radicale pour tes cellules déjà formatées:

Code:

---

Mes_Cellules.ClearFormat

---

plus souple et manipulable

Code:

---

Range("A1") = Replace(WorksheetFunction.Trim(WorksheetFunction.Clean(Range("A1"))),Chr(10),"")

---

Citation:

---

Envoyé par NVCfrm

l'idéal serait de stocker ta chaîne dans une variable avant de l'amener vers le classeur sans passer par le presse papier.

---

Si je comprend bien, tu me propose de stocker dans WORD mon text dans une variable avant de l'intégrer dans EXCEL ? Si c'est ce que tu me proposes, ce n'est pas ce que je peux envisager.

En effet, les utilisateurs peuvent copier n'importe quoi dans un de mes champs excel, et je ne maitrise à aucun moment la source de la donnée.

Par ailleurs, j'ai une solution que je vais tester, même si ce n'est pas très propre.

C'est de créer un évènement qui agira pour chaque champ, dès lors qu'il est activé. La macro formatera le champ modifié avec les caractéristiques voulu.

Si quelqu'un à une autre idée, je suis preneur.

Merci

Citation:

---

Envoyé par Giantrick

Si je comprend bien, tu me propose de stocker dans WORD mon text dans une variable avant de l'intégrer dans EXCEL ? Si c'est ce que tu me proposes, ce n'est pas ce que je peux envisager.

En effet, les utilisateurs peuvent copier n'importe quoi dans un de mes champs excel, et je ne maitrise à aucun moment la source de la donnée.

Par ailleurs, j'ai une solution que je vais tester, même si ce n'est pas très propre.

C'est de créer un évènement qui agira pour chaque champ, dès lors qu'il est activé. La macro formatera le champ modifié avec les caractéristiques voulu.

Si quelqu'un à une autre idée, je suis preneur.

Merci

---

Bonsoir,

La proposition de stocker suppose que tes données sont copiées via macro.
Si ce n'est pas le cas, les exemples de code qui te sont proposées peuvent toujours s'appliquer à d'autres situations.
Je ne vois pas mieux que la ligne de code donnée adaptable à tes souhaits pour formater une cellule contenant du texte contenant des caractères de contrôle. Celle-ci:

Code:

---

Range("A1") = Replace(WorksheetFunction.Trim(WorksheetFunction.Clean(Range("A1"))),Chr(10),"")

---