macro excel copier collage special vers word

betabasic

Posté le 03/11/2010 @ 11:52

Bonjour,

Hyper débutant en vba, je voudrais créer une macro permettant de copier coller des tableaux excel dans un document word. J’ai essayé d’enregistrer la macro mais ça ne fonctionne pas…

Je travaille sous excel et word 2007. Je ne connais pas le langage VBA.

Je voudrais :

1.copier le tableau situé de la cellule F4 à la cellule T14 de l’onglet “PROJET“ du fichier excel.

2.collage spécial dans un fichier word (Image métafichier amélioré)

3.passer une ligne dans le fichier word

4.copier le tableau situé de la cellule AA6 à la cellule AL23 de l’onglet “PROJET“ du fichier excel.

et ainsi de suite pour une trentaine de tableaux

Je voudrais pouvoir faire la même chose avec collage spécial “Feuille de calcul Microsoft Office Excel (Code) Objet“.

Pour l’instant je suis arrivé à ça :

Sub Macro3()
'
' Macro3 Macro
Dim oWdApp As Object 'WordA.Application
Dim oWdDoc As Object 'Word.Document
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Add
oWdApp.Visible = True
ActiveSheet.Range("F4:T14").Copy
oWdApp.Selection.PasteSpecial
Application.CutCopyMode = False
'
ActiveWorkbook.Save
Application.Run "'TEST MEGA V2 bis Benchmark_SD_1002 V2k7.xlsm'!Macro3"
End Sub

Mais il me manque le collage special et le saut de ligne dans le doc word…

Je vous remercie par avance de votre aide et de vos explications

galopin01

Posté le 03/11/2010 à 14:05

Bonjour,

Je ne suis pas un spécialiste de Word... et le VBA Word n'est pas de tout repos ! Tu ne commences pas par le plus facile...

Il est nécessaire de récupérer la "syntaxe Word" du code VBA pour les actions que tu veux réaliser (en enregistrant tes actions dans Word).

Dans ton exemple ça donne :

Sub test()
Dim oWdApp As Object
Dim oWdDoc As Object
Set oWdApp = CreateObject("Word.Application")
Set oWdDoc = oWdApp.Documents.Add
oWdApp.Visible = True
ActiveSheet.Range("F4:T14").Copy
oWdApp.Selection.PasteAndFormat (13)
oWdApp.Selection.TypeParagraph
'...
End Sub

Euh... Il faudra peut-être ajuster le paramètre (13) en fonction de ta version Word... En tâtonnant un peu (de 0 à 16) tu y arriveras sans peine.
cette syntaxe à numéro me semble préférable, elle permet de tatonner facilement. Il semble que les constantes VBA Word (dans la macro enregistrée) ne soit pas très fiable. Enfin tu verras...

Il peut s'avérer nécessaire de cocher (dans VBA Excel : Outils / référence : Microsoft Word ?? Object...) mais je n'en ai pas eu besoin.

A+

Modifié par galopin01 le 03/11/2010 14:11

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

Console Retro Games The Amiga 500 Mini à 81,70 € livré
81,70 € ~~129 €~~ -37% @Amazon Allemagne

Amazon Allemagne fait une promotion sur la console Retro Games The Amiga 500 Mini qui passe à 75,61 €. Comptez 6,09 € pour la livraison en France soit un total de 81,70 € livré au lieu de 129 €. Découvrez 25 des plus grand jeux Amiga classiques incluant Alien breed 3D, Another World, ATR: All terrain Racing, Battle Chess, Cadaver, Kick Off 2, Pinball Dreams. Fournie avec une souris à boutons et une manette de jeu. Possibilité de lire vos roms depuis une clé USB.

Voir le bon plan

Smartphone 6.43 pouces Xiaomi Redmi Note 12 (FHD+, 4Go/128Go) à 157,72 €
157,72 € ~~185,99 €~~ -15% @Amazon

Amazon fait une belle promotion sur le smartphone Xiaomi Redmi Note 12 qui passe à 157,72 € au lieu de 185,99 €. Ce smartphone dispose d'un écran 6.43 pouces 90 Hz FHD+ (2400x1080 pixels), un processeur Snapdragon 685 8 coeurs, 4 Go de mémoire, de 128 Go d'espace de stockage extensible par microSD, d'un APN 50 MPixels + 8 + 2 MPixels et d'un APN 13 MP avant, du bluetooh, du Wifi, d'un lecteur d'empreintes digitales. Le tout tourne sous Android 13 avec une surcouche Xiaomi. La batterie à charge rapide 33W est de haute capacité 5000 mAh.

Voir le bon plan

Pack de 4 ampoules Philips Hue White Ambiance bluetooth à 50,52 €
50,52 € ~~75 €~~ -33% @Amazon Allemagne

Amazon Allemagne fait une belle promotion sur le lot de 4 ampoules Philips Hue White Ambiance bluetooth qui passe à 45,37 €. Comptez 5,15 € pour la livraison en France soit un total de 50,52 € livré gratuitement au lieu de 75 €. Vous pourrez contrôler et programmer l'éclairage des lampes avec votre smartphone sous Android ou iOS (compatible avec le HomeKit d'Apple) ainsi que via les assistants vocaux (Alexa, OK Google). Faites varier l’intensité de votre éclairage et personnalisez votre ambiance avec les nuances de blancs et profitez de 4 scénarios lumineux pré-programmés : stimulation, concentration, lecture et détente.

Voir le bon plan

PC Portable 16 pouces Acer Nitro 16 (WQXGA 165Hz, Ryzen 7 7735H, 16 Go DDR5, SSD 512 Go, GeForce RTX 4070 8 Go) à 1399,99 €
1399,99 € ~~1699 €~~ -18% @Darty

Darty fait une belle promotion sur l'ordinateur portable Acer Aspire Nitro AN16-41-R8UR qui passe à 1399,99 € au lieu de 1699 €. Ce portable dispose d'un écran 16 pouces WQXGA 2560x1600 IPS 165 Hz, d'un processeur AMD Ryzen 7 7735HS (8 Cœurs, 3,2 GHz / jusqu'à 4,75 GHz, 16 Mo Cache), de 16 Go de mémoire RAM DDR5 (extensible à 32 Go), d'un SSD de 512 Go (2d emplacement disponible) et d'une carte graphique Nvidia GeForce RTX 4070 avec 8 Go de mémoire. Le tourne sous Windows 11.

Une bonne affaire pour une belle machine dernière génération à l'aise partout pour plusieurs années.

Voir le bon plan

Support Invision MX400 articulé pour deux écrans PC de 19 à 32 pouces à 51,43 €
51,43 € ~~70 €~~ -27% @Amazon

Amazon fait une promotion sur le support Invision articulé pour 2 écran PC de 19 à 32 pouces à 51,43 €. On le trouve ailleurs à partir de 70 €.

Compatible VESA 75 x 75 mm et 100 x 100 mm. 9 kg max par bras. Ce bras de moniteur unique est extrêmement polyvalent et l'installation est simple. Le montage se fait avec une pince en C robuste. Bras articulé facile à régler. Il permet la rotation des écrans à 360°, pivot à 180°, inclinaison de + 90° à – 45°.

Voir le bon plan

SSD Interne M.2 NVMe Samsung 970 Evo Plus 1 To à 42,99 €
42,99 € ~~75 €~~ -43% @Amazon

Amazon fait une belle promotion sur le SSD Interne M.2 NVMe Samsung 970 Evo Plus 1 To qui passe à 42,99 €. On le trouve ailleurs autour de 75 €. Ce SSD offre des taux de transfert de 3400 Mo /s en lecture et 2300 Mo/s en écriture.

Voir le bon plan