Discussion :

[buzz68180]

Bonjour,

Je rencontre un problème de remplacement de mes balises avec l'utilisation de la classe Cword , une fois sur deux le remplacement de ne fait pas dans Word auriez vous une idée ?

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
 
PROCEDURE Modele_conv_Word_CL(modeledev,id_commande) 
 
QUAND EXCEPTION DANS
 
	// Classe de pilotage de Word
	gpclWord est un objet dynamique cWord
 
FAIRE
	Erreur("Word n'est pas installé sur votre poste.")
	RETOUR
FIN
 
// Allocation de l'objet
gpclWord = allouer un cWord(Vrai)
HExécuteRequête(REQ_Commande_du_groupe,hRequêteDéfaut,id_commande)
 
// Variable chaine
 
civilite est une chaîne
 
// Variables 
sChaineDeRemplacement est une chaîne 
 
gpclWord:Visible(Faux)
// Ouvre le modèle 
gpclWord:OuvrirDoc(modeledev) 
// Pause pour être (à peu près) certain que le modèle est bien ouvert. 
Multitâche(-150) 
 
HLitPremier(REQ_Commande_du_groupe)
gpclWord:EnregistrerSous() 
 
SI OuiNon("Voulez vous lier ce document à la fiche client ?")=Vrai ALORS
	Piece_jointe.NumClient=REQ_Commande_du_groupe.NumClient
	Piece_jointe.Date=fDate(gpclWord:m_sDocEnCours)
	Piece_jointe.Nomdocjoint=ExtraitChaîne(gpclWord:m_sDocEnCours,1,"\",DepuisFin)
	Piece_jointe.Chemin=gpclWord:m_sDocEnCours
	Piece_jointe.Taillefichier=fTaille(gpclWord:m_sDocEnCours)
	Piece_jointe.Commentaires="Export Word"
 
	HAjoute(Piece_jointe)
FIN
 
SI HLitRecherchePremier(Contact,NumContact,REQ_Commande_du_groupe.NumContact) ALORS
	SELON Contact.Civilite
		CAS 1 //mr
			civilite = "Monsieur"
		CAS 2 //mme
			civilite = "Madame"
		CAS 3 //mlle
			civilite = "Mademoiselle"
		AUTRE CAS
			civilite=""
	FIN
 
	// Insertion valeur 2 
	sChaineDeRemplacement=civilite
	gpclWord:RechercherRemplacer("[TITRE]",sChaineDeRemplacement ) 
	// Insertion valeur 3
	sChaineDeRemplacement=Contact.Prenom
 
	gpclWord:RechercherRemplacer("[PRENOM]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Contact.Nom
	gpclWord:RechercherRemplacer("[NOM]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Contact.EMail
	gpclWord:RechercherRemplacer("[EMAIL_CONTACT]",sChaineDeRemplacement ) 
	// Insertion valeur 4 
	sChaineDeRemplacement=Contact.Téléphone
	gpclWord:RechercherRemplacer("[TEL_CONTACT]",sChaineDeRemplacement ) 
	// Insertion valeur 4 
	sChaineDeRemplacement=Contact.Mobile
	gpclWord:RechercherRemplacer("[MOB_CONTACT]",sChaineDeRemplacement ) 
 
 
	SI HLitRecherchePremier(Job,IDJob,Contact.idJOB) ALORS
		// Insertion valeur 
		sChaineDeRemplacement=Job.job_libelle
		gpclWord:RechercherRemplacer("[FONCTION]",sChaineDeRemplacement ) 
	FIN
 
 
FIN
 
// VALEURS CLIENTS
 
// Insertion valeur 1 
SI HLitRecherchePremier(Client,NumClient,REQ_Commande_du_groupe.NumClient) ALORS
	sChaineDeRemplacement=Client.Société
	gpclWord:RechercherRemplacer("[NOM_SOCIETE]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Recup_Civilite(Client.Civilite)
	gpclWord:RechercherRemplacer("[TITRE_PARTICULIER]",sChaineDeRemplacement ) 
	// Insertion valeur 3
	sChaineDeRemplacement=Client.Prenom
	gpclWord:RechercherRemplacer("[PRENOM_PARTICULIER]",sChaineDeRemplacement ) 
	// Insertion valeur 4 
	sChaineDeRemplacement=Client.Nom
	gpclWord:RechercherRemplacer("[NOM_PARTICULIER]",sChaineDeRemplacement ) 
 
	// Insertion valeur 5
	sChaineDeRemplacement=Client.Adresse
	gpclWord:RechercherRemplacer("[ADRESSE]",sChaineDeRemplacement ) 
	// Insertion valeur 6
	sChaineDeRemplacement=Client.AdresseSuite
	gpclWord:RechercherRemplacer("[ADRESSE_SUITE]",sChaineDeRemplacement ) 
	// Insertion valeur 7
	sChaineDeRemplacement=Client.CodePostal
	gpclWord:RechercherRemplacer("[CP]",sChaineDeRemplacement ) 
	// Insertion valeur 8
	sChaineDeRemplacement=Client.Ville
	gpclWord:RechercherRemplacer("[VILLE]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Client.Téléphone1
	gpclWord:RechercherRemplacer("[TELEPHONE]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Client.Fax
	gpclWord:RechercherRemplacer("[FAX]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Client.EMail
	gpclWord:RechercherRemplacer("[EMAIL]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Client.Echeance_rglt
	gpclWord:RechercherRemplacer("[ECH_RGLT]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement=Mode_reglement(Client.Mode_reglt)
	gpclWord:RechercherRemplacer("[MODE_RGLT]",sChaineDeRemplacement ) 
 
	sChaineDeRemplacement="CL"+Client.NumClient
	gpclWord:RechercherRemplacer("[CODE_CL]",sChaineDeRemplacement ) 
 
 
FIN
 
 
//Enregistrement du document et fermeture de l'objet 
gpclWord:Enregistrer() 
gpclWord:Destructeur()

Merci pour votre conseil
Ben

[nokwih]

Hello,

J'ai eu le même soucis, enfaîte c'est très lent et il faut temporisé les instructions pour qu'il ait le temps de les digérer, c'est plus long mais ça marche à chaque fois.

Par exemple:

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
28
29
30
31
32
33
34
//	// COMPLETION DU FICHIER WORD
 
	SI PAS objDocument.OuvrirDoc("fichier.doc") RENVOYER Faux
 
	SI PAS objMappages.Ouvre("mappages.yml") RENVOYER Faux
 
	TANTQUE objMappages.Trouve()
 
		Multitâche(-1)
 
		SI objMappages.BaliseParente = chnNomIhm ALORS
			SI FenEtat(objMappages.BaliseParente) <> Inexistant ALORS
				objDocument.RechercherRemplacer(objMappages.valeur, {objMappages.BaliseParente + "." + objMappages.Balise, indChamp})
			FIN
		FIN
 
		objMappages.Suivant()
 
	FIN
 
//	// ENREGISTREMENT
 
	Temporisation(500)
	objDocument.Enregistrer()
 
//	// FERMETURE DU FICHIER
 
	Temporisation(500)
	objDocument.Fermer()
	objDocument.Quitter()
 
//	// RETOUR
 
	RENVOYER Vrai

[buzz68180]

merci.