Copié/collé de tableau => Word KO

[showview75]

Bonjour,

J'ai un tableau qui tient sur plusieurs pages.
Les lignes ne sont pas fractionnables.
Il se trouve dans une section à part.
Je sélectionne le tableau via "Tableau/Selectionner/Tableau" et dans un document nouveau, dont la mise en page est identique à la section source, je tente un "collé".
Et là, Word ne répond plus.
La seule solution consiste à killer le process.
Quelqu'un pourrait-il m'aider svp ?

Merci

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Sans le document, il est très difficile de répondre.
Le problème peut être lié au document, au logiciel, ...

On va faire l'essai autrement.

Je vais te donner un morceau de code que tu vas utiliser dans le VBE qui est l'éditeur VBA.


Pour atteindre l'éditeur, c'est Alt + F11
Et quand tu auras collé le code, tu positionne le curseur dans le code et tu fais F5

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub copieTable()
Dim oTbl As Table
 
 
Set oTbl = Tables(1)
oTbl.Range.Copy
Documents.Add
Selection.Paste
 
 
End Sub

Si la table n'est pas le première, change le Tables(1) par le numéro de ta table.

[showview75]

Bonjour,

Merci pour ta réponse rapide.
Je sais que sans le document, ma demande est quasi impossible à résoudre.
Mais malheureusement, le document est évidemment confidentiel ..
En fait, pour être plus précis :
Si je fais le collé vers un document vierge (équivalent de code que tu m'as donné), ça fonctionne.
Par contre, vers un document lié à un modèle (identique à la source), ça ne fonctionne plus. Ce modèle contient une entète et un pied de page sur chaque page. Cela pourrait-il venir de là ?

[Heureux-oli]

Je ne pense pas que l'entête et le pied de page pourraient faire planter le document !

Je vais regarder pour copier la table cellule par cellule pour voir.
Possible que le modèle soit corrompu.

[Heureux-oli]

Peux-tu fair eun essai ?

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
Sub test()
Dim oTbl1 As Table
Dim oTbl2 As Table
Dim ir As Integer, jr As Integer
Dim ic As Integer, jc As Integer
 
Set oTbl1 = Tables(1)
ir = oTbl1.Rows.Count
ic = oTbl1.Columns.Count
Documents.Add
Set oTbl2 = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=ir, NumColumns:=ic)
 
For jr = 1 To ir
    For jc = 1 To ic
    oTbl2.Cell(jr, jc).Range.Text = txtNet(oTbl1.Cell(jr, jc).Range.Text)
    Next jc
Next jr
Set oTbl1 = Nothing
Set oTbl2 = Nothing
 
End Sub
 
Function txtNet(stTemp As String) As String
txtNet = Left(stTemp, Len(stTemp) - 2)
 
End Function

pour lancer le code, il faut être dans la Sub et pas dans la fonction.

Documents.Add
Derrière cette ligne, mets le chemin de ton modèle entre "

[showview75]

Ta fonction je suppose, recopie cellule par cellule le tableau ?
En tout cas, ça met en évidence un truc louche.
La ligne de titre, 1ère ligne de mon tableau, n'arrive qu'en 42ème dans le nouveau tableau. Après 41 lignes vides.
Du coup, j'ai vérifié en faisant "propriétés du tableau".
Et effectivement, la ligne de titre est la 42ème.
Mais où sont donc les 41 premières ?

[Heureux-oli]

Je suis certain que je ne les ai pas !

comme tu le signales, le tableau est copié cellule par cellule.

[showview75]

Du coup, j'ai résolu le problème en créant un nouveau tableau, dans lequel j'ai copié les 18 lignes plus le titre.
Et j'ai vérifié que les lignes étaient bien numérotées de 1 à 19.
Le copié/collé fonctionne alors sans soucis.
Par contre, mystère sur ces lignes fantômes .....

Merci beaucoup de ton aide !!!!!

A+