> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
111,01 €SSD externe portable Samsung T7 1 To à 111,01 € livré
Valable jusqu'au 25 Septembre

Amazon Allemagne fait une promotion sur le SSD externe portable Samsung T7 1 To qui passe à 106,27 €. Comptez 4,74 € pour la livraison en France soit un total de 111,01 € livré alors qu'on trouve le SSD à partir de 189 € ailleurs. Son format compact vous permettra de le transporter facilement avec vous. De quoi stocker parfaitement vos fichiers et de les emporter dans vos déplacements en toute sérénité. Grâce à la technologie PCIe NVMe intégrée et au connecteur USB 3.1 Type C, bénéficiez de vitesses supérieures pouvant atteindre 1050 Mo /s ! Compatible PC, Mac et Android, il se montrera rapidement indispensable. Le disque Samsung T7 se pare d'un boîtier robuste en aluminium qui résistera aux chutes. Il embarque également un cryptage avancé avec mot de passe.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
226,27 €SSD Interne M.2 NVMe Samsung 970 Evo Plus 2 To à 226,27 € livré
Valable jusqu'au 25 Septembre

Amazon Allemagne fait une promotion sur le SSD Interne M.2 NVMe Samsung 970 Evo Plus 2 To qui passe à 221,75 €. Comptez 4,52 € pour la livraison en France soit un total de 226,27 € livré. On le trouve ailleurs autour de 300 €. Ce SSD offre des taux de transfert de 3400 Mo /s en lecture et 2300 Mo/s en écriture. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre
205,67 €Ecran 27 pouces LG Ultragear 27GN650-B (FHD, IPS, 1 ms, 144 Hz) à 205,67 € livré
Valable jusqu'au 25 Septembre

Amazon Italie fait une promotion sur l'écran LG Ultragear 27GN650-B qui passe à 196,71 € (avec la TVA ajustée). Comptez 8,96  € pour la livraison en France soit un total de 205,67 € livré. On le trouve à 280 € ailleurs. Cet écran possède une dalle 27 pouces FHD (1920x1080) IPS à 144 Hz, un temps de réponse de 1 ms. Il est compatible FreeSync et GSync.

Vous pouvez utiliser votre compte Amazon FR sur Amazon IT et il n'y a pas de douane.


> 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