Discussion :

[Patnel]

Bonjour,

je fais une macro sous excel pour analyser un fichier word
quand je rencontre un tableau il faut que je recopie ce tableau dans un fichier excel nom du nom de ce tableau : 1 fichier par tableau

voir le 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
24
25
26
27
 
' tableau
'"Tests using table"
 T_val = False
If le_style = "Titre 4" Then
    pos = InStr(le_texte, "Tests using table")
    If pos > 0 Then T_val = True
            p_tab = i_para + 2
            is_tab = M_objdoc.Paragraphs(p_tab).Range.Tables.Count
 
End If
 
    If T_val = True And is_tab > 0 Then
        titre_tab = test_nu & "_" & n_page & ".xls"
        titre_tab = Replace(titre_tab, " ", "")
        fich = ThisWorkbook.Path & "\" & titre_tab
        n_l = M_objdoc.Paragraphs(p_tab).Range.Tables(is_tab).Rows.Count
        n_c = M_objdoc.Paragraphs(p_tab).Range.Tables(is_tab).Columns.Count
        le_Dossier.Cells(Position, 7) = fich
        ReDim T_test(1 To n_l, 1 To n_c)
        M_objdoc.Tables(is_tab).Range.Copy
        Workbooks.Add
        ActiveSheet.Cells(1, 1).PasteSpecial
 
        ActiveWorkbook.SaveAs Filename:=fich
        ActiveWorkbook.Close
    End If

pour un fichier word de petite taille ça fonctionne bien

pour un fichier word de grosse taille, celui que je traite fait 50Mo
ça plante au niveau du paste

peut être que la méthode utilisée est inapropriée , mais je pense plûtôt à un pb de mémoire vive:

j'utilise office2000 ( désolé) et j'ai une ram de 2Go

ya quelqu'un qu'a une bonne idée ?
je voudrais éviter d'avoir à découper le fichier vu que ça décale la numérotation des chapitres.

[CodeFacile]

Bonjour,

à mon avis recopier des tableaux volumineux par copy / past n'est pas la meilleure solution.
Word gére ses tableaux différament .Sous Excel , la grille sert de référence pour les colonnes / ligne alors que sous word , en supprimant une cellule, on bouleverse l'ordre des colonnes ou des lignes.
Je te conseille d'éviter le copie past et de faire une recopie cellule par cellule :

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
 
 
 
  n_l = M_objdoc.Paragraphs(p_tab).Range.Tables(is_tab).Rows.Count
        n_c = M_objdoc.Paragraphs(p_tab).Range.Tables(is_tab).Columns.Count
 Workbooks.Add
for ligne = 1 to n_l
  for colonne = 1 to n_c      
 
    ActiveSheet.Cells(ligne, colonne).value = M_objdoc.Tables(is_tab).Cell(ligne, colonne).range
 
 
     next colonne 
next ligne
 
        ActiveWorkbook.SaveAs Filename:=fich
        ActiveWorkbook.Close

[Patnel]

merci pour ta réponse Codefacile mais le pb ne vient pas de la taille des tableaux que je veux copier qui est raisonnable, mais bien de la taille du fichier à traiter,

je vais essayer ta soluce , en sachant pertinament que ça va augmenter le temps de traitemnt qui est déjà trés long (>20h)

[Patnel]

en définitive et parce qu'on me demande du résultat j'ai decoupé mon fichier doc de 800 pages en une dizaine de petits fichier d'~ 100 pages en respectant la configuration des chapitres principaux.

ainsi tous mes pb disparaissent omis le fait que je perds la pagination d'origine
les tableaux se copient bien avec copy/paste , le temps d'éxécution est divisé par 5.

et c'est bien ce qui m'embette car je ne sais pas traiter correctement les gros fichiers; et ma routine doit pouvoir traiter les gros fichiers sans avoir à les découper préalabrement à la main.

si quelqu'un a connu le même problème qu'il me dise ce qu'il en pense.