× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 macro excel copier collage special vers word
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
betabasic
  Posté le 03/11/2010 @ 11:52 
Aller en bas de la page 
Nouvel astucien

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

Publicité
galopin01
 Posté le 03/11/2010 à 14:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. 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
-5 € / -30 €5 € dès 29 €, 30 € dès 299 € chez Rakuten
Valable jusqu'au 03 Juin

Rakuten offre aujourd'hui 5 € de réduction dès 29 € d'achats sur son site avec le code RAKUTEN5 et 30 € de réduction dès 299 € d'achats avec le code RAKUTEN30.


> Voir l'offre
13,79 €Adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 à 13,79 €
Valable jusqu'au 06 Juin

Amazon fait une promotion sur l'adaptateur USB 3.0 Ethernet Gigabit TP-Link UE300 qui passe à 13,79 € au lieu de 20 €. Cet adaptateur vous permettra de rajouter une prise Ethernet Gigabit à votre ordinateur portable (ou votre tablette via un adaptateur OTG) qui en est dépourvu.


> Voir l'offre
25,95 €Clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C à 25,95 €
Valable jusqu'au 06 Juin

Amazon fait une promotion sur la clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C qui passe à 25,95 €. Cette clé USB  dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 40 €.


> Voir l'offre

Sujets relatifs
macro pour passer de word vers excel
Macro excel vers word
Copier/Collage spécial dans excel
collage depuis excel vers word en tant qu'image
Word : Copier/coller : collage spécial (résolu)
Excel vers Word
Macro Copier ligne vers un autre fichier
(Macro) Copier onglet sur autre fichier Excel (2007)
excel vba passer une variable de commande vers macro
Comment Copier efficacement de PDF vers WORD
Plus de sujets relatifs à macro excel copier collage special vers word
 > Tous les forums > Forum Bureautique