Discussion :

[Lucas42]

Bonjour

Actuellement j'ai 2 fichiers Word :
- le premier contient uniquement des tableaux 4 colonnes x plusieurs lignes, ainsi q'un N° pour identification (ex : N°2.1.1 Gérer chariot), alimenté par une base de données
- le second est une documentation contenant à un certain endroit le même N° d'identification mais sans les tableaux

La macro doit permettre d'aller lire le premier fichier word, de copier tout ce qui se trouve entre le premier N° d'identification et le suivant (en gros il faut copier le ou les tableaux), puis d'aller les copier dans le second fichier là où il faut , c'est à dire aprés le N° d'identification, dans la mesure où celui est trouvé.

J'ai fait quelques manipulation ce matin avec le VBA , et mon souci est le suivant : quelle commande utilisée pour selectionner et copier tout ce qui se trouve entre 2 "balises" DEBUT et FIN ????

un exemple simple histoire d'être compris par tous :

DEBUT N°Titre1
entrée
--ici un tableau
sortie
--ici un second tableau
FIN

merci d'avance
ami programmeur

[Heureux-oli]

Salut,

comment sont fait tes tableaux,

Code :

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

1
2
3
4
5
6
7
8
9
10
 
+--------+---------+---------+
+ Id01   +         +         +
+--------+---------+---------+
+ Id01   +         +         +
+--------+---------+---------+
+ Id01   +         +         +
+--------+---------+---------+
+ Id02   +         +         +
+--------+---------+---------+

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
 
+--------+---------+---------+
+ Id01   +         +         +
+--------+---------+---------+
+        +         +         +
+--------+---------+---------+
+        +         +         +
+--------+---------+---------+
+ Id02   +         +         +
+--------+---------+---------+

[Lucas42]

salut , les tableaux sont fait de la maniére suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
 
+--------+---------+---------+
+ Id01   +     a    +     z    +
+--------+---------+---------+
+ Id01   +      z   +     e    +
+--------+---------+---------+
+ Id01   +      s   +    d     +
+--------+---------+---------+
+ Id02   +    f     +      g   +
+--------+---------+---------+

aucun champ n'est vide

[Sepia]

Salut,

pour t'aider de façon plus précise, il nous faudrait ta version de Word. Tu peux l'ajouter avec la liste déroulante située près du titre de la fenêtre.

Mais une première réponse est de rechercher la balise FIN, de se positionner dessus si on la trouve, puis de remonter vers le haut du fichier en sélectionnant paragraphe par paragraphe (par extension de la sélection) jusqu'à ce que l''on trouve la balise DEBUT, ce qui ce traduit par

On a recherché et trouvé la balise FIN

Code :

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

1
2
3
4
 
        While InStr(Selection.paragraphs(1), "DEBUT") = 0
                  Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
        Wend

@+