> 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
19,99 €Abonnement Xbox Game Pass pour PC 3 mois (Forza 5, Flight Simulator, Sea of thieves, ...) à 19,99 €
Valable jusqu'au 03 Décembre

Amazon fait une promotion sur l'abonnement Xbox Game Pass 3 mois qui passe à 19,99 € au lieu de 29,99 €. Le code jeu vous sera envoyé par email. Ce code vous permettra de jouer pendant 3 mois à plus de 100 jeux sur Windows 10/11. Vous pourrez ainsi jouer à Forza Horizon 5, Flight Simulator, The Outer Worlds, Gears 5, World War Z, Sea of thieves, Minecraft, ... Vous trouverez la liste complète des jeux ici.


> Voir l'offre
21,99 €Switch Gigabit Netgear GS308 8 ports à 21,99 €
Valable jusqu'au 03 Décembre

Amazon fait une vente flash sur l'excellent switch Netgear GS308 Gigabit 8 ports 10/100/1000 qu'il propose à 21,99 € alors qu'on le trouve ailleurs autour de 29 €.


> Voir l'offre
0 €Cartouche d’encre ou papier photo à 0 €
Valable jusqu'au 03 Décembre

InkClub offre une cartouche d'encre pour 0 €. Inscrivez la référence de votre imprimante dans la case de recherche. Vous serez ensuite dirigé vers la liste des produits prévus pour votre imprimante. Vous reconnaîtrez les offres à 0 € grâce aux symboles. Et si vous ne trouvez pas de cartouche pour votre imprimante à 0 €, vous pourrez vous tourner vers du papier photo.

L'offre n'est valide qu'une fois par client. Des frais de transport fixes s'ajoutant (4,95 €) n'hésitez pas à compléter votre commande avec d'autres cartouches notamment les modèles compatibles InkClub qui sont de bonne qualité.


> 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