Discussion :

[Stephane59]

Bonjour à tous

J'ai créé un fichier Excel, dans lequel je copie des cellules dans Word.

Jusque là, tout va bien mais je dois faire des opérations répétitives, que j'aimerais remplacer par une macro.

Je souhaite simplement, dans Word, coller ma copie d'Excel mais d'une manière bien spécifique.

Pour le moment, ma copie me conserve la mise en forme source alors que je voudrais une copie qui lie et utilise les styles de destination).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Macro2()
'
' Macro2 Macro
'
'
    Selection.PasteExcelTable False, False, False
End Sub

Egalement, je souhaiterais un ajustement du contenu du tableau collé.

D'avance, merci à tous pour votre aide.

Bien cordialement,

[Heureux-oli]

Salut,

Un peu court et peu précis comme explication.

Le style de destination, il suffit de le déterminer dans Word.

Répétitif, dans quelle mesure.

[Stephane59]

Bonjour

Je dois faire la manipulation suivante :

- coller en liant et utilisant les styles de destination
- faire un ajustement automatique du contenu du tableau collé

Avec une macro, je gagne du temps, tout se fait un un seul clic, je vais plus vite, d'autant que j'ai des dizaines de tableaux à copier de Excel vers Word.

Je cherche donc tout simplement en vba (que je ne maîtrise pas) la commande qui permet de coller en liant et utilisant les styles de destination.

La commande qui colle en conservant la mise en forme source est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.PasteExcelTable False, False, False

Connaissez-vous celle qui permet de coller en liant et utilisant les styles de destination, tout en me permettant d'ajuster automatiquement le contenu ?

Je pense à ceci mais j'ai un bug :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
'
' Macro1 Macro'
'
    Selection.PasteExcelTable True, True, True
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
End Sub

D'avance, merci pour votre réponse.

[Heureux-oli]

Salut,

Qu'appelles-tu style de destination ?
Serait-ce la mise en forme des données dans Word ?

Tu colles dans une tables ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

Autre problème pour moi, tu collesoù tes données ?

Je ne vois pas de déplacement dans un document ?

Comment se déroulent la copie de tes données ?
Tu copies dans Excel, tu active le document Word et tu cliques sur un bouton ?

Si ça te semble évident, ça l'est beaucoup moins pour moi, les façons de transférer les données d'une application à l'autre sont si nombreuses.

[Stephane59]

Rebonjour

Merci pour la réponse.

Voici ce que je fais, en cliquant, via le ruban de Excel et Word :

- je copie dans Excel quelques cellules qui m'intéressent
- je colle ces cellules dans Word en liant et utilisant les styles de destination
- je fais un ajustement automatique du contenu du tableau collé

J'aimerais automatiser, via une Macro, les opérations que j'ai colorées en bleu.

J'ai tâtonné avec l'enregistrement des Macro mais je ne suis pas doué.

Pouvez-vous m'aider pour une Macro Word reprenant ce que j'ai coloré en bleu ?

D'avance, merci

[Heureux-oli]

Salut,

Le faire au moment du collage va générér une usine à gaz.

Par contre, tu pourrais envisager de le faire quand tout est collé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim oTbl As Table
 
For Each oTbl in activedocument.tables
    oTbl.AutoFitBehavior (wdAutoFitContent)
Next oTbl

[Stephane59]

Salut

Merci beaucoup pour l'aide

Tous les tableaux collés se placent parfaitement à présent.

C'est un grand service, merci encore.