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
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
Tiens, je vais en profiter pour le mettre dans Contribuez quand tu auras testé
Tu dis
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
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager