Macro copier/coller sur word avec mise en page

LN34

XLDnaute Nouveau
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 :)

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
 

Discussions similaires


Haut Bas