> Tous les forums > Forum Bureautique
 Débutant word vba
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
matbarns
  Posté le 30/01/2021 @ 22:57 
Aller en bas de la page 
Petit astucien

Bonjour,

comme indiqué dans le titre de mon message, je suis débutant en vba sous Word. Je connais un peu sous excel, mais là je suis complètement perdu. Voilà ce que j'essaie de faire.

J'ai un 1er fichier qui contient 1 tableau, je voudrais copier une valeur de ce tableau pour la coller dans la cellule d'un tableau compris dans un 2nd fichier. Mon code marche, mais je ne sais pas pourquoi, il rajoute une ligne que je ne veux pas !!!!

mon code est le suivant:

Sub essai()

Dim a As String
Dim doc1 As Document
Dim doc2 As Document

Set doc1 = Documents("fich1.docx")
Set doc2 = Documents("fich2.docx")


a = doc1.Tables(1).Cell(1, 2).Range.text
doc2.Activate
ActiveDocument.Tables(1).Cell(1, 2).Range.text = a

End Sub

Merci pour votre aide

Publicité
Lui
 Posté le 02/02/2021 à 18:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut,

Regarde comme ça :

Sub essai()

Dim doc1 As Document
Dim doc2 As Document

Set doc1 = Documents("fich1.docx")
Set doc2 = Documents("fich2.docx")

doc1.Tables(1).Cell(1, 2).Range.Copy
doc2.Tables(1).Cell(1, 2).Range.Paste

End Sub

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
54,99 €Pack Gaming Corsair (clavier K55 RGB + souris KATAR Pro LED RGB) à 54,99 €
Valable jusqu'au 25 Janvier

Cdiscount fait une belle promotion sur un pack Gaming Corsair comprenant un clavier K55 RGB Pro et une souris KATAR RGB Pro à 54,99 € alors qu'on le trouve ailleurs à partir de 84 €. Un ensemble de qualité pour joueurs débutants ou confirmés.


> Voir l'offre
449,99 €Ultraportable MSI Modern 14 (Core i3, 8 Go RAM, SSD 256 Go) à 449,99 €
Valable jusqu'au 29 Janvier

RueDuCommerce fait une promotion sur l'ultraportable MSI Modern 14 B10MW-634XFR qui passe à 449,99 € au lieu de 549,99 €. Cet ordinateur possède une dalle 14 pouces Full HD, est équipé d'un processeur Intel Core i3-10110U, de 8 Go de RAM et d'un SSD NVME de 256 Go. Il ne pèse que 1,18 kg et offre une autonomie d'une dizaine d'heures. 

 L'ordinateur est livré sans OS mais vous pouvez facilement installer Windows 10.


> Voir l'offre
1349,99 €Acer Predator (15,6 pouces IPS 144 Hz, Core i7, 16Go/512 Go, RTX 3070) à 1349,99 €
Valable jusqu'au 29 Janvier

Cdiscount fait une belle vente flash sur l'ordinateur portable Acer Predator PH315-53-785U qui passe à 1349,99 €. Ce portable dédié aux joueurs dispose d'un écran 15,6 pouces IPS FHD 1920 x 1080 IPS 144 Hz, d'un processeur Intel Core i7 10750H, de 16 Go de mémoire RAM, d'un SSD de 512 Go (+ emplacements M.2 et SATA libres) et surtout d'une carte graphique Nvidia GeForce RTX 3070 qui vous permettra de profiter de vos jeux de manière fluide en haute résolution. Le tout tourne sous Windows 10 que vous pourrez passer gratuitement à Windows 11.


> Voir l'offre

Sujets relatifs
erreur VBA Word ... inconnue ?
Vérifier les noms d'entrées automatiques en VBA pour WORD 2003 (Windows 10)
enlever et remettre la protection d'un document Word en VBA
Recherche dans 1 classeur appelée par Word VBA
Word VBA conditionner une macro à des zones de formulaire non vides
VBA WORD 2007
Débutant VBA
code vba word 2003 ?
vba Word 2003 - Selection couleur de texte
Mise à jour champ dans word via vba
Plus de sujets relatifs à Débutant word vba
 > Tous les forums > Forum Bureautique