Bonjour,
Je fais une macro excel qui copie des données dans un doc word mais j'ai quelques petits soucis.
donc j'ouvre mon doc word et je copie dedans un tableau excel
Code :
- Set appWord = CreateObject("Word.Application" )
- 'Ouverture du document word
- appWord.Documents.Open ("mon_doc.doc" )
- With appWord.Selection
- .TypeText Text:="FAITS MARQUANTS"
- .ParagraphFormat.Alignment = wdAlignParagraphCenter
- .Font.Size = 18
- With .Font
- .Name = "time new roman"
- .Size = 10
- .Bold = True
- End With
- 'Copier le tableau Excel dans le presse papier
- ThisWorkbook.Sheets("feuille" ).Range("O10:AI27" ).Select
- Selection.Copy
- ' Coller le tableau dans Word
- .PasteSpecial Link:=True, _
- DataType:=wdPasteOLEObject, _
- Placement:=wdInLine, DisplayAsIcon:=False
- End With
- 'Enregistrer et quitter Word
- appWord.ActiveDocument.Save
- appWord.ActiveDocument.Close
- 'Réinitialiser l'objet
- Set appWord = Nothing
|
ca marche nikel mais le graphique est enorme et je sais pas comment le redimensionner
ca doit etre le membre Width qu'il faut modifier mais comment selectionner le tableau pour pouvoir faire un truc du genre
Selection.InlineShapes(1).Width = Selection.InlineShapes(1).Width/2
Mirci de votre aide ^^
