Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier un tableau sous word et le centrer en largeur

  • Initiateur de la discussion Initiateur de la discussion manuthemalicious
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

manuthemalicious

Guest
Bonjour,

Cette marco copie le tableau plage A1 à C38 et le colle dans un doument word existant et pour lequel un certain nombre de signets permettent de coller le tableau a bon endroit.

Je coince sur la fonction "centrer le tableau copié sur la page", le reste de la macro fonctionnant bien.

D'avance merci.

Manu

Code:
Sub test2()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Manu\Mes documents\test.docx")    'ouvre le document Word
    WordApp.Visible = False    'Word est masqué pendant l'opération


        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        Range("A1:C38").Copy
        WordDoc.Bookmarks("Signet" & 1).Range.Select
       WordApp.Run "coller"

'Sub coller() a mettre dans le document word
'
' coller Macro
'
'    Selection.PasteAndFormat wdFormatOriginalFormatting
        
'End Sub

  

    WordApp.Visible = True
    
End Sub
 
Re : Copier un tableau sous word et le centrer en largeur

Bonsoir Manuthemalicious, le fil,



Code:
Sub coller() [COLOR="Green"]'a mettre dans le document word[/COLOR]

[COLOR="Green"]' coller Macro[/COLOR]

    Selection.PasteAndFormat wdFormatOriginalFormatting
[COLOR="Blue"]    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter        
[/COLOR]End Sub

Tu as essayé en rajoutant la ligne en bleu?

Bon test et bon WE

Cordialement
 
Re : Copier un tableau sous word et le centrer en largeur


Bonjour,

Je viens de tester mais malheureusement sans succès...

Je suis preneur de toute autre idée.

D'avance merci.
 
Re : Copier un tableau sous word et le centrer en largeur

Bonsoir,

Pas souvent programmé sous Word...

Essayer peut-être :

Code:
Selection.PasteAndFormat wdFormatOriginalFormatting
[COLOR="Red"]Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
Selection.Tables(1).Rows.LeftIndent = InchesToPoints(0)[/COLOR]

Edit : ce code je l'ai trouvé sur le web, mais il s'agissait d'un collage dans une zone de texte...

A+
 
Dernière édition:
Re : Copier un tableau sous word et le centrer en largeur

Bonsoir,

Selection.Tables(1).Rows.Alignment = wdAlignRowCenter

Etait la solution.

Merci bien et bonne soirée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
Réponses
0
Affichages
1 K
Stateaid
S
T
Réponses
11
Affichages
2 K
T
P
Réponses
24
Affichages
8 K
pakito49
P
B
Réponses
16
Affichages
3 K
bilbinou
B
N
Réponses
3
Affichages
2 K
n.excel
N
N
Réponses
3
Affichages
2 K
C
Réponses
1
Affichages
4 K
Conrad13
C
S
Réponses
2
Affichages
1 K
samia89
S
A
  • Question Question
Réponses
0
Affichages
2 K
AUDREYPHIL
A
P
Réponses
1
Affichages
1 K
P
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…