> 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
6,41 €Lot de 10 lames de scie sauteuse pour le bois Bosch à 6,41 €
Valable jusqu'au 26 Mai

Amazon fait une promotion sur le lot de 10 lames de scie sauteuse pour le bois Bosch à 6,41 € au lieu de 9,99 €.  Les lames portent les références  T 119 BO (x1), T 101 B (x2), T 111 C (x2), T 144 D (x2), T 144 DP (x2), T 101 AO (x1).

 


> Voir l'offre
34,99 €Intégrale Downtown Abbey édition prestige en Blu-ray à 34,99 €
Valable jusqu'au 24 Mai

Amazon fait une promotion sur l'intégrale Downtown Abbey édition prestige en Blu-ray à 34,99 € au lieu de 48,01 €. Elle contient les saisons 1 à 6 de la série ainsi que le film.


> Voir l'offre
199,99 €Ecran 27 pouces LG Ultragear 27GL63T (FullHD IPS, 144 Hz, 1ms, FreeSync/Gsync compatible) à 199,99 €
Valable jusqu'au 24 Mai

Amazon fait belle une promotion sur l'écran LG Ultragear 27GL63T qui passe à 199,99 € au lieu de 250 € ailleurs. Cet écran possède une dalle IPS 27 pouces FHD (1920x1080) à 144 Hz, un temps de réponse de 1 ms. Il est compatible Nvidia G-SYNC et Adaptive Sync.


> 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