Discussion :

[pedrold75]

Bonjour,
Je souhaite enregistrer une feuille excel dans une feuille Word à l'aide d'une macro VBA. Pourriez-vous m'indiquer comment je peux faire?
Merci

[ouskel'n'or]

Tiens, je vais en profiter pour le mettre dans Contribuez quand tu auras testé

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
16
17
18
19
20
21
22
23
24
Sub CopierDesCellulesDansWord()
Dim WdApp As Word.Application
Dim WdDoc As Word.Document
Dim i
    Set WdApp = CreateObject("word.application")            'ouvre la session
    Set WdDoc = WdApp.Documents.Open("D:\Doc\Worddoc.doc")  'ouvre le doc
    WdApp.Visible = False                   'masque l'appli
    ActiveSheet.Range("B26:E37").Copy       'plage copiée
    DoEvents 'laisse au système le temps de copier la plage
 
    With WdApp
        .Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
          wdInLine, DisplayAsIcon:=False
        WdDoc.InlineShapes(1).Height = 172.9 'Règle la hauteur dans Word
        WdDoc.InlineShapes(1).Width = 453.55 'Règle la largeur dans Word
    End With
 
    WdDoc.Close True        'Enregistre et ferme le doc word
    DoEvents                'Laisse au système le temps d'enregistrer le fichier
    WdApp.Quit              'ferme la session
 
    Set WdApp = Nothing
    Set WdDoc = Nothing
End Sub

Tu dis
A+

NB - La largeur indiquée correspond à 16 cm. La Hauteur se règle en fonction de cette largeur limite (pour une feuille en disposition Portrait)
Pour régler la hauteur en fonction de cette largeur, tu calcules le rapport Largeur après collage/Largeur après redimensionnement et tu appliques ce rapport à la hauteur après collage pour redimentionner cette hauteur.