Bonjour à toutes et tous,

Je fais suite à mon post précédent marqué comme résolu http://www.developpez.net/forums/d14...n-taille-page/ mais en fait non... j'ai toujours un (autre) problème d'où ce nouveau post connexe

Clementmarcotte me suggérait de
Une fois le tableau collé dans Word. Enregistrer une macro pendant que tu centres ton tableau. Tu sélectionnes ton tableau et tu ajustes la taille du tableau et/ ou les marges. Une fois le code terminé, tu le raboutes à ta macro Excel en faisant les ajustements qui s'imposent à cause du pilotage par automation.
Sauf qu'a priori, l'enregistrement de macro ne permet pas de sélectionner des images (puisque en collant mon tableau excel, il devient une image sous word afin que je garde sa mise en forme) et donc de le manipuler. Est-ce exact ?

Du coup je retombe sur mon problème de ConvertToShape & ConvertToInlineShape. Et là je ne trouve pas beaucoup d'info...
http://www.tech-archive.net/Archive/...4-02/0082.html ici en english

Début de mon code :
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'Référence Microsoft Word 14.0 Object Library chargée dans menu déroulant Outils
'VBA 7.0
'Office 2010
'Excel et Word v.14
 
 
Option Explicit
 
'macro édition Rapport
Sub rapport()
 
'Lancement application Word et Ouverture du document-modèle (format .docm) rendu visible
Dim aWord As Word.Application
Dim dWord As Word.Document
Set aWord = CreateObject("Word.Application")
aWord.Visible = True
'chemin EXACT du fichier !!!
Set dWord = aWord.Documents.Open("MON PRé-RAPPORT.docm")
 
 
'chapitre I : SYNTHESE
'Copie Tableau 1 depuis Excel onglet "synth global diag+RenfcT"
Sheets("synth global diag+RenfcT").Select
Range("H12:R21").Select
Selection.Copy
 
    'Cherche Signet1 dans le rapport-modèle
    aWord.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
    DoEvents
 
    'Colle Tableau 1 à Signet1
    aWord.Selection.PasteSpecial , Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
 
    'autres collages possibles
    'aWord.Selection.PasteSpecial , Link:=False, DataType:=wdPasteEnhancedMetafile, DisplayAsIcon:=False
    'aWord.Selection.PasteAndFormat (wdPasteDefault) 'copie en format tableau / ajuste à la largeur de la page word POURRIE
 
    'mise en page du Tableau 1 selon sa taille
    aWord.Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
    DoEvents
    With dWord.InlineShapes(1)
        .LockAspectRatio = msoTrue
        .Height = 140 'redimensionne hauteur image
        '.Width = 510 'redimensionne largeur image
        .ConvertToShape
    End With
    dWord.Shapes(1).Left = wdShapeCenter
    dWord.Shapes(1).Rotation = 90
    ActiveDocument.Shapes(1).ConvertToInlineShape
Et Rien ne se passe comme prévu dans ma tête : ce n'est pas le tableau collé qui subit la transformation mais un logo du document source...

What else...?

Merci d'avance et bons fêtes