transfert d'un tableau word vers excel en vba

Version imprimable

22/12/2008, 16h05
progaide

transfert d'un tableau word vers excel en vba

bjr je suis debutante en vba et je veux savoir comment je peut fire un programme en vba qui permet de transferer des données d'un tableau word vers excel.et se programme doit etre ds l'excel et pas le word plz vous pouvez m'aider svp ???:oops: merci d'avance
23/12/2008, 10h00
decondelite

Plusieurs pistes à exploiter:
-Comment activer une référence pour piloter une autre application?
-utiliser l'enregistreur de macros de Word pour comprendre comment celui-ci accède aux éléments du tableau
-mixer le tout pour avoir ce que tu veux

bonjour

j'espère que cet exemple pourra t'aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub importTableauWord()
'Nécessite d'activer la référence:
    'Microsoft Word xx.x Object Library
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Tableau As Word.Table
Dim i As Integer, j As Integer
 
'Création instance Word
Set WordApp = New Word.Application
'Masque Word pendant l'opération
WordApp.Visible = False
 
'Ouvre le document Word
Set WordDoc = WordApp.Documents.Open("C:\NomDocument.doc")
 
'Représente le premier tableau dans le document
Set Tableau = WordDoc.Tables(1)
 
'Boucle sur les colonnes du tableau
For i = 1 To Tableau.Columns.Count
    'Boucle sur les cellules de claque colonne
    For j = 1 To Tableau.Columns(i).Cells.Count
        'Importe les données du tableau dans la feuille active
        ActiveSheet.Cells(j, i) = Tableau.Columns(i).Cells(j)
    Next j
Next i
 
'Ferme le document Word
WordDoc.Close False
'Ferme l'instance Word
WordApp.Quit
End Sub

bonne journée
michel

transfer un tableau word vers excel

bjr
je suis debutante et je ne sais pas comment faire pour transferer un tableau word vers excel a partire d'un programme en vba j'ai trouver cette reponse dans un forum :
Code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub copieTableauWordVersExcel() 'nécéssite d'activer la référence Microsoft Word xx.x Object Library Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Fichier As String 'le document Word est supposé fermé avant le lancement de la macro Fichier = "C:\Documents and Settings\michel\essai.doc" 'adapter le chemin Set WordApp = CreateObject("Word.Application")'creation session Word WordApp.Visible = False 'pour que word reste masqué pendant l'opération Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word WordDoc.Tables(2).Range.Copy 'copie du tableau Word 'dans Word chaque tableau est indexé 'ici l'index est à 2 car le premier index correspond au cadre autour du titre du 'document Word Range("A1").Select ActiveSheet.Paste 'collage des données dans Excel WordDoc.Close False 'ferme le document Word sans sauvegarde WordApp.Quit 'ferme l'application Word End Sub
mais vraiment je ne sais rien sur too ça svp es-ce que qq1 peut m'aider je ne sais meme pas ou je vais crèer cette macro dans le word ou dans l'excel moi mon appliction doit etre dans l'excel sant toucher word svp qq1 pout m'aider et merci d'avance

23/12/2008, 17h05
FcL.Laplace
Bonjour,

Pour te mettre sur la voie :

Cette Macro est à créer dans Excel, de préférence dans un module, elle va copier le premier tableau de ton document Word dans la cellule "A1" de la feuille active Excel (c'est à dire l'onglet sur lequel tu te trouves quand tu lances la macro).

il faut quand même que tu changes le code, en mettant le nom complet de ton fichier Word à la place de l'exemple :

Code:

Fichier = "C:\Documents and Settings\michel\essai.doc"

Je n'ai pas testé cette macro, mais si tu as de la chance (et une version compatible....) elle devrait répondre à tes besoins.

Si tu souhaites que ton tableau soit copié dans une autre cellule que "A1", remplace simplement "A1" par la cellule de ton choix à ce niveau du code :
Code:

1 2 Range("A1").Select ActiveSheet.Paste 'collage des données dans Excel
Bon courage et bienvenue dans le monde merveilleux des Macros VBA :lol:

(Ah ouais et sinon, éviter le langage SMS, ça irrite les anciens)
23/12/2008, 17h28
progaide

Merci fcl.laplace de votre explication vraiment c'est très gentil de votre part .d'accord :P je vais essayer le code.
Merci pour vous aussi silkyroad .
23/12/2008, 17h48
progaide

salut le code me donnée erreur a cette ligne :

Code:

Dim WordApp As Word.Application

je crois que cette erreur parceque j'ai pas activer la référence:
'Microsoft Word xx.x Object Library"
ok merci bcp pour vous reponse et pour vous aide le code ça marche très bien :lol: