Discussion :

[A103049]

Bonjour à tous,

J'aurais besoin de votre aide. En général en surfant de sujet en sujet je trouve ce que je désire mais la c'est la panne seche ...

Je recherche à copier les données de divers tableaux de word dans les tableaux d'un second document word.

Par exemple:
Copier la valeur de la colonne 1 ligne 3 du premier fichier dans le 2eme tableau du 2ème document Colonne 2 ligne 2

PS: aucun des tableaux n'étant identique que ce soit en ligne ou en colonne

Je recherche aussi comment connaitre l'index de mes tableaux.

Auriez-vous des idées sur le sujet?

Le début de mon code n'est que l'ouverture des deux fichiers et la le blanc...

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
Sub A_TO_B()
'Récupération du chemin complet avec nom du fichier de A
Dim FicA
FicA = ActiveDocument.FullName
'Récupération du chemin complet avec nom du fichier de B
Dim FicB
Dim finput As FileDialog
Dim CheminB As String
Set finput = Application.FileDialog(msoFileDialogOpen)
finput.Show
    CheminB = finput.SelectedItems(1)
FicB = CheminB
' ouverture du B
Documents.Open FicB
 
'vide interstellaire
 
End Sub

Cordialement,
Jean-Baptiste

[Heureux-oli]

Salut,

L'index des tableaux est obtenu par extension de la sélection jusqu'au début du document et en comptant le nombre de tableau que la sélection contient.

Code :

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

1
2
 
selection.HomeKey unit:=wdstory, extend:=true

Code :

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

Selection.Tables.Count

Pour les données, c'est comme au combat naval.
LaTable.Cellule(Ligne,colonne)

Code :

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

ActiveDocument.Tables(1).Cell(1,1).Range.Text

Mais, il y a souvent un mais, le texte obtenu contient deux caractères supplémentaires qui sont les délimiteurs de la cellule, il faut les enlever.
Là : http://heureuxoli.developpez.com/off...t-tiroir/#L2-B, il y a une fonction NetText qui permet de supprimer ces caractères.

[A103049]

Bonjour,

Tout d'abord merci de ta réponse j'ai pu récupérer la fonction interressante pour nettoyer le texte .
Par contre la fonction que j'essaye d'utiliser et que tu m'a redonné ne fonctionne pas

Code :

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

ActiveDocument.Tables(2).Cell(3, 1).Range.Text

j'ai message d'erreur utilisation incorrecte de la propriété.

je la remplace par :

Code :

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

ActiveDocument.Tables(2).Cell(3, 1).Range.Delete

et hop ca marche ma cellule est nettoyé.
d'autres fonction aussi marche copy, paste, etc....

De plus je n'arrive pas a switché de documents le document FicB reste toujours actif malgé le fait que je demande a FicA de passer actif puis switcher sur FicB à la suite des manipulations

Merci d'avance de votre aide à tous.

[Heureux-oli]

Salut,

Tes questions ne sont pas très précises, ce qui rend les réponses assez évasives.

Pour passer d'un tableau à l'autre facilement, il faut les affecter à des variables.

Code :

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

1
2
3
4
5
6
7
Dim oTbl1 As Table
Dim oTbl2 As Table
 
Set oTbl1 = ActiveDocument.Tables(X)
 
Application.Documents.Open .....
Set oTbl2 = ActiveDocument.Tables(Y)

Ensuite, on passe par ces objets
oTbl1.Cell(1,1).Range.Texte = NetText(oTbl2.Cell(2,2).Range.Texte)

[A103049]

Bonjour à tous,

J'ai résolu mon problème avec la command select.

Code :

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

ActiveDocument.Tables(2).Cell(3, 2).Range.Select

je me bornais a essayer de récupérer le texte au lieux de récupérer la cellule en elle même pour la coller ailleur.

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
Sub A_TO_B()
'Récupération du chemin complet avec nom du fichier de A
Dim FicA
FicA = ActiveDocument.FullName
'Récupération du chemin complet avec nom du fichier de B
Dim FicB
Dim finput As FileDialog
Dim CheminB As String
Set finput = Application.FileDialog(msoFileDialogOpen)
finput.Show
    CheminB = finput.SelectedItems(1)
FicB = CheminB
' ouverture du B
Documents.Open FicB
Documents(FicA).Activate
ActiveDocument.Tables(2).Cell(3, 2).Range.Select
Selection.Copy
Documents(FicB).Activate
ActiveDocument.Tables(6).Cell(3, 2).Range.Select
Selection.PasteAndFormat (wdFormatPlainText) 
 
End Sub

Merci a tous pour votre aide