Macro VBA coller une ligne d'une table word avec le format

Question

Je suis en train de creer une macro pour creer un email automatique avec une ligne d'une table de mon document word mais je ne recupere que le texte dans la ligne pas le format.

Sub Tools_and_Process()

Dim updating As Table
Set updating =  ActiveDocument.Tables(1)
updating.Select

Dim ligne As Row
Dim Edition As String
Set ligne = updating.Rows.Last
ligne.Select
Selection.Copy

If MsgBox("Do you need to send an email?", vbYesNo + vbQuestion) = vbNo Then
            Else
            Dim P As Outlook.Application
            Dim Mess2 As Outlook.MailItem
            Set P = New Outlook.Application
            Set Mess2 = P.CreateItem(olMailItem)
            Mess2.To = "arnaud.evrard@blabla.com"
            Mess2.Body =  "Hi," &  ligne.Range   & "Thanks you," & vbCrLf & vbCrLf & "Tools and Process Team"
            Mess2.Subject  = "Update" 
            Mess2.Display
 
            Set Mess2 = Nothing
            Set P = Nothing
            End If

End Sub

La fonction  ligne.Range copie le contenu des case l'une apres l'autre dans mon e-mail.
j'ai teste les :
Selection.Paste
select.pasteandformat un peu tout mais je ne trouve pas!
j'ai limpression que le passage word a outlook pose des probleme

mais si une fois le mail ouvert je fais ctrl+v ca copie tout comme il faut!!!

un peu d'aide ?????????

Merci

cs_luyo · Answer

Pour un peu plus de clarte: voila ce que je veux: 4 , August 15 2008 , 22 24 , Renaming , hhhh voila ce que j'ai: 4 August 15 2008 22 24 Renaming hhhh

Calade · Answer

Bonjour,

   Je ne suis pas sur à 100% mais il semble que d'après ta copie d'écran ton doc Word contienne un tableau que tu veux lui aussi copier et c'est là où le bât blesse. Je pense qu'il faudrait sélectionner le tableau et le texte qu'il contient en un seul bloc.

   Puisque tu dis qu'un CTRL+V fonctionne, pourquoi n'essaie-tu pas de passer par le presse-papier. Même si ce n'est pas très orthodoxe.

   En espérant t'aider.

Calade

cs_luyo · Answer

J'ai deja essayer et cela ne fonctionne pas . il refuse ma requete (select.pasteandformat)
meme avec un nouveau document word avec tout mon text que je copie entierement ca ne fonctionne pas!

Tant pis je vais faire avec1!!!

MERCI

Macro VBA coller une ligne d'une table word avec le format

3 réponses

Votre réponse

Discussions similaires