Discussion :

[Hugo123456]

Bonjour à tous,

Je fais appel à vous concernant une fonction affichée par PCSOFT sur la vidéo youtube:
"Champ Traitement de Texte : Saisie et mise en forme" :http://youtube;W6-dwNsUX9k]https://w...channel=PCSOFT
Une fonction "TrouveTableauProduits()" à 7:16 dans la vidéo permet de pointer sur le tableau dans le fichier word pour ajouter des lignes à celui-ci.

Neanmoins, je n'ai trouvé aucune documentation sur le sujet et je ne parviens pas à la reproduire. Auriez-vous des indications pour m'y aider ?

Pour information, j'ai fait appel au support PC SOFT sur ce sujet, mais ils ont respecté l'image très négative que j'avais déjà d'eux avec cette réponse :
"Bonjour Monsieur BARBIN,

Malheureusement, comme indiqué dans le mail précédent, nous ne pouvons pas vous transmettre les sources de l'exemple de la vidéo.

Si vous le désirez, les mises au point nécessaires à votre traitement peuvent être faites par le service Assistance Directe, disponible sur abonnement.
Retrouvez le détail sur ce service "Assistance Directe" : https://www.pcsoft.fr/ad/index.html "

C'est tout de même un comble de présenter une fonction en vidéo et de ne pas vouloir l'expliquer mais ça témoigne encore une fois de la stratégie commericale de PC SOFT qui est selon moi très très limite et plus que frustrante pour les utilisateurs. Bon j'avoue que c'est la goutte qui fait déborder le vase là

Je vous remercie par avance des réponses que vous pourrez m'apporter !

Bonne journée à tous.

[Voroltinquo]

Bonjour,
Généralement lorsque l'on désire modifier un document Word, on passe par la classe CWord. Si aucune des méthode ne convient, il faut passer par un objet automation Word.
Remarque
Il est possible de modifier classe CWord en ajoutant la fonction ainsi crée en tant que méthode.

Plus simplement, et une lecture complète de la doc concernant le champ TT le précise, il faut utiliser les fonctions TableauAjoute et TableauSupprime su le docFragment contenant le tableau.
cf chapitre docInsèreTableau

[Hugo123456]

Bonjour Voroltinquo,

Merci pour ton retour.

En connaissant la position du tableau ou en mettant un Libellé %TABLEAU_DEBUT% avant le tableau on peut affecter le tableau existant à un docFragment et le manipuler :

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
 
tabFragments est tableau de docFragments = DocRecherche(TT_MonDocument, "%TABLEAU_DEBUT%")
 
f est un docFragment(TT_MonDocument.Valeur, tabFragments[1].PositionFin+1, 0)
soit para <- f.Paragraphe[1]
 
SI para.Tableau = Null ALORS
	RETOUR
FIN
 
doc		est un Document	<- TT_MonDocument.Valeur
 
// Ajoute une ligne au tableau
nIndice	est un entier	= Ajoute(para.Tableau.Lignes)
 
// Saisie dans la cellule 2,2
para.Tableau.Cellules[2,2].Contenu.Texte = "Je suis dans la cellule 2,2"
 
DocRemplace(TT_MonDocument, "%TABLEAU_DEBUT%", "")

Néanmoins, le seul problème avec cette démarche, c'est que si on veut modifier à nouveau ce tableau lors d'une nouvelle édition en reprenant le word déjà édité et si l'utilisateur à ajouté du texte au dessus du tableau, il nous est impossible de le retrouver. A moins que tu as une solution pour cela ?

Merci.

[DevOcc]

Bonjour,

Il y a la possibilité de placer un ou des signets (Bookmarks) dans les cellules du tableau.
Les signets sont invisibles si leur affichage n'est pas activé.
Vous pouvez alors placé le curseur à la position du signet, vous serez dans le tableau.
Evidemment, si l'utilisateur supprime les signets, le tableau ou des lignes du tableau, le code ne trouvera plus les signets et ne trouvera donc plus le tableau.

Voir cette discussion pour les signets :

https://www.developpez.net/forums/d2...-publipostage/

Cdlt

[DevOcc]

Ci-dessous le code pour insérer un tableau avec un signet dans la première cellule

Code :

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

1
2
3
4
5
6
7
8
9
10
 
doc est un Document <- TraitementDeTexte1..Valeur
DocInsèreTableau(doc, 1, 3, 3)
 
f est un docFragment(doc, 1, 0)
 
soit para <- f.Paragraphe[1]
SI para.Tableau <> Null ALORS
	doc..Signet["MonSignet"] = f // Insertion du signet dans le tableau
FIN

Ci-dessous le code qui va permettre ultérieurement de se repositionner sur le signet (donc sur le tableau) pour manipuler le tableau

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
 
doc est un Document <- TraitementDeTexte1..Valeur
fragmentSignet est un docFragment = doc.Signet["MonSignet"] // On se positionne sur le signet
SI fragmentSignet <> Null ALORS
 
	soit para <- fragmentSignet.Paragraphe[1]
	SI para.Tableau = Null ALORS
		RETOUR
	FIN
 
	// Ajoute une ligne au tableau
	nIndice est un entier = Ajoute(para.Tableau.Lignes)
 
	// Saisie dans la cellule 2,2
	para.Tableau.Cellules[2,2].Contenu.Texte = "Je suis dans la cellule 2,2"
 
	// Supprime la ligne 3
	Supprime(para.Tableau.Lignes, 3)
 
SINON
	Erreur("Signet 'MonSignet' non trouvé dans le document")
FIN

La doc pour les signets est ici :

https://doc.pcsoft.fr/?1410087023

Cdlt

[Hugo123456]

Bonjour,

Merci à vous 2, ça répond à ma demande. Sujet résolu ;-)