Discussion :

[a.dequidt]

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 :

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

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

[ouskel'n'or]

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

Aurore

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

Code :

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

wordApp.selection.TypeParagraph

[a.dequidt]

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

[Jean-Philippe André]

le retour chariot en vba vaut chr(13)

[ouskel'n'or]

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

Code :

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

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

[a.dequidt]

Pour Ouskel'n'or


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

Code :

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

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?!