Centrer un tableau copié de Excel vers word VBA
Bonjour à tous,
Je recherche une solution pour pouvoir centrer un tableau dans word copié depuis une feuille excel, j'utilise un collage spécial métafichier amélioré avec liens.
J'utilise également un signet pour identifier ou copier dans le fichier word ouvert.
Pour centrer le tableau copié, j'ai essayé d'utiliser
Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
ou
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Mais cela ne fonctionne pas du tout pour le premier et le deuxième n'a aucun effet lors de la copie.
Enfin je ne sais pas si c'est possible en VBA mais le fichier word sera mis à jour avec de nouvelles versions du tableau donc j'aurai besoin de supprimer/remplacer le tableau dans le fichier word placé sur le signet identifié dans le code.
Ci-dessous le code.
Merci pour votre aide et vos idées.
Blaise
Sub Macro_copie_word()
'
' Macro_copie_word Macro
'
Dim Wd As Object
'Empêche le rafraîchissement de l'écran du moniteur
Application.ScreenUpdating = False
'Capter l'instance de l'application Word qui est ouverte
Set Wd = GetObject(, "Word.Application")
If Sheets("Paramètres").Range("B5").Value = "Yes" Then
'Avec la feuille de calcul de l'application Excel
With Worksheets("Tableaux")
'Avec la plage A3:F13
With .Range("A3:F13")
'Copier dans le presse-papier la cellule
.Copy
End With
End With
With Wd
.Selection.Goto what:=-1, Name:="Tableau2"
.Selection.PasteSpecial Link:=False, _
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, _
DisplayAsIcon:=False
End With
End If
End Sub
Bonjour,
Regardez chez Marina Tableaux
Il y a plusieurs sujets qui pourraient vous intéresser, notamment celui-ci Tableau homogène
Nb : On suppose que dans votre document Word, vous ayez une trame du tableau sur une seule ligne (donc bien centré), et que vous veniez coller votre tableau après cette ligne.
Bonjour Eric,
Merci pour la réponse et surtout le site que je connaissais pas.
Je pense que je vais pouvoir progresser en macro word grâce à ce dernier.