[VBA-E] Aide copier-coller vers Word

Hello,


Je travaille sous Excel en VBA, j'ai appeller ma macro "test"

Celle ci a pour but d'ouvrir d'un fichier word, et de copier dans un tableau le contenu de certaines cellules de mon fichier .xls

Jusqu'a la, j'arrive a le faire. Mon probleme, insérer un saut de ligne avant la copie de mon texte.

Code:

---

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

Sub exportValeursExcelVersTableWord() 'Necessite d'activer la reference Microsoft Word xx.x Object Library Dim wordApp As Word.Application Dim wordDoc As Word.Document Set wordApp = CreateObject("word.application") wordApp.Visible = True 'mettre False pour garder Word masqué Set wordDoc = wordApp.Documents.Open("C:monDocument.doc") 'ouvre le document Word 'Tables(2) correspond au 2eme tableu du document Word 'transfert la donnée de la cellule A1 dans la 3eme cellule de la 1ere colonne wordDoc.Tables(2).Columns(1).Cells(3).Range.Text = Range("A1") 'transfert la donnée de la cellule A2 dans la 2eme cellule de la 3eme colonne wordDoc.Tables(2).Columns(3).Cells(2).Range.Text = Range("A2") 'wordDoc.Close True 'ferme le document Word en enregistrant les modifications 'wordApp.Quit 'ferme l'application Word EndSub

---

Citation:

---

Envoyé par Aurore

Je suis chiante...
... ET ALORS! :bebe:

Aurore

---

Là c'est foutu !
Mais pour "ça"

Code:

---

wordApp.selection.TypeParagraph

---

Marche pô :(

En fait je cherche la mettre dans une cellule de tableau word, un retour chariot puis le contenu d'une cellule excel

Mon probleme: Le retour chariot

le retour chariot en vba vaut chr(13)

Autant pour moi, si tu ne sélectionnes pas la cellule, tu peux faire

Code:

---

1 2	wordDoc.Tables(2).Columns(1).Cells(3).Range.Text = _ wordDoc.Tables(2).Columns(1).Cells(3).Range.Text & vbcr

---

Placera un saut de ligne en fin du texte existant dans la cellule.
Il y a peut-être + sioux sans sélection mais faudra attendre plus savant ;)

:lahola: Pour Ouskel'n'or


Bon je continue sur ma lancée, j'ai concaténer plusieurs cellules:

Code:

---

wordDoc.Tables(1).Columns(1).Cells(2).Range.Text = vbCr & Cells(14, 7) & vbCr & Cells(16, 7) & vbCr & vbCr & "Tél : " & Cells(18, 7) & "- Fax : " & Cells(18, 10)

---

Et j'aimerai que "Tél : " et "Fax : " soit en gras! Est ce possible?! :oops:

Citation:

---

Envoyé par a.dequidt

Je suis chiante...
... ET ALORS!
Aurore

---

C'est pas moi qui l'ai dit !

Citation:

---

Envoyé par a.dequidt

Et j'aimerai que "Tél : " et "Fax : " soit en gras! Est ce possible?! :oops:

---

Ça devrait donner ça

Code:

---

1 2 3 4 5 6 7 8 9 10

wordDoc.Tables(1).Columns(2).Cells(3).Range.Select Set Cellule = wordApp.Selection With Cellule .Find .ClearFormatting .Text = "Tél :" .Execute Forward:=True If .Found = True Then wordApp.Selection.Font.Bold = True End If End With

---

Tu testes et si c'est bon, tu en fais autant avec "Fax :"