Bonjour,
Sauf erreur de ma part, je n'ai pas trouvé de réponse à ma question, c'est pour ça que j'ouvre cette nouvelle discussion.
Sur un de mes document excel, j'ai une macro qui copie et colle une partie de mon tableau sur Word. Je souhaite que celà apparaisse comme un texte (et non comme un tableau), c'est donc un collage spécial. Du coup, le collage ne prend pas en compte la mise en forme (gras, souligné, couleur etc).
Est-il possible de rajouter dans le code de la macro la mise en forme ? (Si nécessaire je peux faire des modifications sur les élements du tableau pour qu'il y ait comme des balises équivalent à HTML <br> etc)
Merci d'avance poru votre aide 🙂
Sauf erreur de ma part, je n'ai pas trouvé de réponse à ma question, c'est pour ça que j'ouvre cette nouvelle discussion.
Sur un de mes document excel, j'ai une macro qui copie et colle une partie de mon tableau sur Word. Je souhaite que celà apparaisse comme un texte (et non comme un tableau), c'est donc un collage spécial. Du coup, le collage ne prend pas en compte la mise en forme (gras, souligné, couleur etc).
Est-il possible de rajouter dans le code de la macro la mise en forme ? (Si nécessaire je peux faire des modifications sur les élements du tableau pour qu'il y ait comme des balises équivalent à HTML <br> etc)
Merci d'avance poru votre aide 🙂
Code:
Sub Main()
Const wdFormatText = 2
Const wdFormatPlainText = 22
Dim oWdApp As Object
Dim oWdDoc As Object
'Créer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Créer un nouveau document Word
Set oWdDoc = oWdApp.Documents.Add
'Copier les cellules Excel
ActiveSheet.Range("A1:I63").Copy
'Coller dans Word au format "texte brut sans mise en forme"
oWdApp.Selection.PasteAndFormat wdFormatPlainText
'Enregistrer le document Word au format "texte brut"
oWdDoc.SaveAs "C:EQUIPE\Hélène\Nouveau dossierMonDocument1.txt", wdFormatText
'Annuler le mode Copier
Application.CutCopyMode = False
'Rendre le document Word visible
oWdApp.Visible = True
End Sub
