Tableau word vers Excel (suivant votre macro (Sub importTableWord_VersExcel())

Version imprimable

Bonjour
Le code ci-dessous fonctionne parfaitement si dans le fichier Word il n'y a qu'un seul tableau.

Voici mon petit souci :
J'ai un fichier word qui est composé de plusieurs pages
Pages 1 : tableau 3 lignes + un texte qui n'est pas dans un tableau
Page 2 : le sommaire
page 3 à 10 un seul tableau

Si je lui indique ici : Set Tableau = WordDoc.Tables(1) => Tables(2) par exemple il ne va pas chercher le tableau 2 (j'ai compris comme ça)
Tout est ok si je supprime les pages 1 & 2 et que je garde que le tableau.

D'autre part, comment faire pour aller chercher le fichier avec un boite de dialogue ?

Merci beaucoup de votre aide car je suis un peu nul en VBA mais j'aime bien l'utiliser ,-)
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 'https://excel.developpez.com/faq/?page=Word#ImportTableauWord Sub importTableWord_VersExcel() '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("E:\test.docx") '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

Bonjour,

Citation:

Envoyé par re

Bonjour
Le code ci-dessous fonctionne parfaitement si dans le fichier Word il n'y a qu'un seul tableau.

Voici mon petit souci :
J'ai un fichier word qui est composé de plusieurs pages
Pages 1 : tableau 3 lignes + un texte qui n'est pas dans un tableau
Page 2 : le sommaire
page 3 à 10 un seul tableau

Ton sommaire est-il lui-aussi sous la forme d'un tableau ? Si ton sommaire est dans un tableau lui aussi, la tableau de la page 3, c'est le tableau 3. Parce que pour VBA, tout ce qui est dans un tableau est un tableau

Juste pour être sur du nombre de tableaux (au sens de Word) dans ton document:

Juste après :
Code:

1 2 'Ouvre le document Word Set WordDoc = WordApp.Documents.Open(le chemin d'accès")
Ajoute temporairement:

Code:

msgbox(worddoc.tables.count)

Et tu vas savoir si tu as 2 ou 3 tableaux

Citation:

Si je lui indique ici : Set Tableau = WordDoc.Tables(1) => Tables(2) par exemple il ne va pas chercher le tableau 2 (j'ai compris comme ça)
Tout est ok si je supprime les pages 1 & 2 et que je garde que le tableau.

Juste pour être sur tu a juste cela:

Code:

Set Tableau = WordDoc.Tables(2)

Citation:

D'autre part, comment faire pour aller chercher le fichier avec un boite de dialogue ?

Tu peux utiliser toutes les boîtes de dialogues de Word (et même d'Excel) en passant par collection Dialogs de Word (d'Excel)

Article

Liste des constantes à mettre entre les parenthèses pour afficher la bonne boîte

Si cela ne fonctionne pas avec le nom de la constante, parce que c'est fréquent dans le cas de pilotage, essaie avec la valeur numérique.

Vite fait, et sans test, ta ligne set devrait être remplacée par cela
Code:

1 2 3 4 5 6 7 8 9 'Ouvre le document Word WordApp.Dialogs(wdDialogFileOpen).Show 'Puisque dès qu'un document est ouvert, 'il devient le document actif 'on peut utiliser ActiveDocument 'Mais ActiveDocument doit être utilisé 'avec précaution Set worddoc = ActiveDocument End Sub

04/10/2019, 06h52
re

Bonjour Clément
Merci pour ta réponse,ça fonctionne.
Je ne sais pas si l'on peut y inclure un épurage du texte dans l'export, je le fais dans la feuille mais ça serait plus pratique sans ce qui semble être des retours chariot (?) impossible de faire le tri
Pour info le sommaire n'est pas un tableau en tout cas pas reconnu comme tel.

Encore merci
Bonne journée

Bonjour,

Citation:

Envoyé par re

Bonjour Clément
Merci pour ta réponse,ça fonctionne.
Je ne sais pas si l'on peut y inclure un épurage du texte dans l'export, je le fais dans la feuille mais ça serait plus pratique sans ce qui semble être des retours chariot (?) impossible de faire le tri

Bonne journée

La solution que je vois durant l'export c'est de le faire dès que tu as lu la cellule dans Word.

En reprenant ton code, mais sans avoir testé. (Je suis avec un portable sur la batterie et je n'ai pas beaucoup de réserves)

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
'https://excel.developpez.com/faq/?page=Word#ImportTableauWord
Sub importTableWord_VersExcel()
'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
    Dim Texte as string
    '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("E:\test.docx")
    '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
             'récupérer le texte de la  cellule
              texte = Tableau.Columns(i).Cells(j).textframe.textrange
              'enlever les marques de de paragraphes
              texte = replace(texte,chr(13))
             'Importe les données du tableau dans la feuille active
             ActiveSheet.Cells(j, i) = texte
      Next j
   Next i

objet TextFrame
replace

05/10/2019, 12h09
re

1 pièce(s) jointe(s)

Bonjour,
Désolé ça bloque ici : TextFrame

Code:

Texte = Tableau.Columns(i).Cells(j).TextFrame.TextRange

Merci encore si tu n'a pas le temps je me débrouillerais avec la formule ''épurage" en plus je ne suis pas sûr que le petit rectangle vertical à la fin de chaque ligne est bien un retour chariot
Pièce jointe 507716

D'autre part ici :
Code :
Set Tableau = WordDoc.Tables(1)
~~comment remplacer le 1 (tableau 1) par la référence d'une cellule dans la feuille excel ?~~

Très bonne journée
06/10/2019, 19h24
re

Bonjour
Réponse partielle, code ci-dessous fonctionne

Code:

x = Range("G2").Value

puis => Set Tableau = WordDoc.Tables(x).

Le problème est plus général au lancement de la 1er fois tout est ok mais si on relance la macro, word dit qu'il ne peut ouvrir qu'en lecture seule et effectivement le process word est présent et il y en a autant de fois que l'on lance la macro
d'où l'idée de vérifier s'il y a un process word en cours et de le fermer avant de continuer.

Merci pour l'aide

Bonjour,

Rendu là cela dépend de ce que tu veux vraiment faire:

Si tu veux appliquer la même macro plusieurs fois au même document que tu n'as pas fermé essaie cela avec Word fermé au départ
Autrement, il faut s'embarquer dans la gestion d'erreur et cela fait trop longtemps que je suis passé à un autre langage pour m'en souvenir

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
'https://excel.developpez.com/faq/?page=Word#ImportTableauWord
Sub importTableWord_VersExcel()
'Nécessite d'activer la référence:
    'Microsoft Word xx.x Object Library
     dim ouvert as boolean
     ouvert = false
     Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim Tableau As Word.Table
    Dim i As Integer, j As Integer
    Dim Texte as string
    'Création instance Word
    select cas ouvert
          case false
              Set WordApp = New Word.Application
             ouvert = true
          case true
            Set WordApp = getobject(, Word.Application)
    end select
    'Masque Word pendant l'opération
    WordApp.Visible = False
     'Ouvre le document Word
    Set WordDoc = WordApp.Documents.Open("E:\test.docx")
  etc
end sub

Ou bien tu fermes Word et ton document en terminant ta macro (ce que tu devrais en quittant autrement)

Code:

1
2
3
4
worddoc.save
worddoc.close
wordapp.quit
end sub

07/10/2019, 23h58
re

Bonjour Clément,
Merci beaucoup pour ton implication, je n'y arrive pas.
Ne perd plus de temps, la solution la plus simple est de faire une fin de tache dans le gestionnaire de tâche et de ne lancer l'export qu'une seule fois ou bien WordApp.Visible = True puis d’arrêter word et tout relancer si besoin d'un autre export

En tout cas encore merci c'est vraiment sympa
Bonne journée