Discussion :

[progaide]

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 ??? merci d'avance

[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

[SilkyRoad]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[progaide]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").Select
ActiveSheet.Paste 'collage des données dans Excel

Bon courage et bienvenue dans le monde merveilleux des Macros VBA

(Ah ouais et sinon, éviter le langage SMS, ça irrite les anciens)

[progaide]

Merci fcl.laplace de votre explication vraiment c'est très gentil de votre part .d'accord je vais essayer le code.
Merci pour vous aussi silkyroad .

[progaide]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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