Astuces Excel
  1. Astuces Excel
  3. copyr la feuille Excel vers Word
Intereting Posts
Deux cellules se contrôlent dans Excel Transposition compliquée + peut-être que VLOOKUP aide Excel nécessaire Excel VBA SQL Query avec des valeurs variables qui peuvent être vierges Comment masquer les sections d'une page Excel en fonction de la list déroulante comment générer un file Excel pour une application Windows à l'aide de C # .net et d'une application Web utilisant C # ASP.NET MS Excel VBA – Comment sauter WorksheetFunction.Match si une erreur apparaît Existe-t-il un moyen d'exporter automatiquement des données depuis Excel? Pourquoi je ne peux pas ouvrir le file excel qui crée par fastExcel Code VBA pour find le numéro de ligne d'une date dans datatables Excel COUNTIFS: la formule ne fonctionne pas Comment empêcher l'exécution du code si une textbox est vide? Transposer CopyFromRecordset Excel VBA Ouvrir panneau de vues personnalisées depuis VBA Comparer les noms dans la même colonne Excel Problèmes liés à la lecture de excel CSV et à l'écriture à d'autres

copyr la feuille Excel vers Word

J'ai besoin d'exporter la feuille 'GreatIdea' vers un document Word. 'GreatIdea' est divisé en pages et mes colonnes sont basées sur ces pages.

A-C contient une table des matières, D-F contient le chapitre 1, … 

Sub test() ' Open LOL.docx' Dim appWD As Word.Application Set appWD = New Word.Application Dim docWD As Word.Document Set docWD = appWD.Documents.Open("C:\Users\TOM\Desktop\LOL.docx") docWD.Activate Sheets("Sheet1").Select ' Copy from GreatIdea to LOL.docx' Range("A1:K40").Copy appWD.Selection.PasteSpecial appWD.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "/" & "OEF_OFFERTE" appWD.ActiveDocument.Close appWD.Quit Set appWD = Nothing Set docWD = Nothing End Sub

Cela copy tout dans Word, mais ne copy pas la disposition des colonnes. D'autres solutions pour copyr tout sont également acceptées. Je dois juste m'assurer que toutes datatables de chaque colonne sont copiées.

La réponse de Mike a été éditée: 

  Range("A1:C40").Copy appWD.Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True

    Comme vous l'êtes dans une application WORD (AppWD), il existe une meilleure fonction: 

     expression.PasteExcelTable(LinkedToExcel, WordFormatting, RTF)

    Essayez l'un de ces 

     AppWD.Selection.PasteExcelTable False, True, True ' aequivalent to PasteSpecial As RTF AppWD.Selection.PasteExcelTable False, False, True ' keeps Excel formats AppWD.Selection.PasteExcelTable False, False, False ' aequivalent to PasteSpecial As HTML

    Bonne chance – MikeD