Bonjour,

Alors je suis complètement novice en programmation, car je suis d'un Profil plutôt dans la mise en place de Recette fonctionnelle.

Le soucis actuel est que l'on me demande de créer un Script qui permettrait de modifier les labels Anglais de Mercury Quality Center en Français.

J'ai crée un petit quelque chose grâce aux diverses informations récoltées sur ce site, mais malgré cela la modification ne se fait pas.

Voici mon Fichier que j'ai nommé : Req.txt (Fichier où se trouve les valeurs des Balises de la Table) Je ne prends que pour exemple le premier Label car il y en a beaucoup... :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
<ENTITY>
<NAME>REQ</NAME>
<FIELD>
<COLUMN>RQ_REQ_AUTHOR</COLUMN>
<LABEL>Créée par</LABEL>
</FIELD>
</ENTITY>
Puis mon Script : en vbs.
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
'* AUTHENTIFICATION & CREATION D'UNE INSTANCE DE TDCONNECTION
 
Set tdc = CreateObject("TDApiOle80.TDConnection")
 
'* CONNEXION AU SERVEUR DE TRAITEMENT
 
Reponse = InputBox("Entrer l'URL","Serveur QC","http://de1199ac:8080/qcbin")
tdc.InitConnectionEX Reponse
 
'* AUTHENTIFICATION AVEC UN PROFIL
 
User = split(Reponse,":",2)
tdc.login "maintenance", "intradevQC90"
 
'* CONNEXION AU PROJET
 
Reponse = InputBox("Entrer un projet","Projet QC","DEFAULT:QC_ALTAIR")
Project = split(Reponse,":",2)
tdc.Connect project(0), project(1)
 
 
'* CREATION D'UNE INSTANCE DES CHAMPS PERSONNALISABLES
Set objCustFields = tdc.Customization.Fields
 
'* CHARGEMENT DE LA CONFIGURATION ACTUELLE
tdc.Customization.Load
 
 
'* CONNEXION AU FICHIER POUR RECUPERATION DES VALEURS
Const ForReading = 1, ForWriting = 2 
  Dim oFso, f
  Set oFso = CreateObject("Scripting.FileSystemObject")
 
 
'* LECTURE DU FICHIER TEXTE
Reponse1 = InputBox("Entrez le Nom de votre Table","File Input","C:\Test\Req.txt")
Set f = oFso.OpenTextFile(Reponse1, ForReading)
 
While Not f.AtEndOfStream
'* INDICE DES CHAMPS DANS LA LISTE
If f.ReadLine = "RQ_REQ_AUTHOR" then 
Set theCustFields = objCustFields.Fields ("REQ") 
 
'* INTITIALISATION DES VARIABLES i = 1
Do      
'* IGNORER LE CHAMP...
      	 Set aCustField = theCustFields(i)
	 i = i + 1
Loop while aCustField.ColumnName <> "RQ_REQ_AUTHOR" 
	' AFFECTATION DU LABEL EN FRANCAIS
	aCustField.UserLabel  = "Créée Par"
End If 
Wend
f.Close 
 
'* ENREGISTREMENT DES MODIFICATIONS EN BASE DE DONNEES
tdc.Customization.Commit
 
'*DECONNEXION
tdc.Disconnect
tdc.Logout
tdc.ReleaseConnection
Set tdc = Nothing
 
'* MESSAGE DE FIN
MsgBox "Traduction terminée"
Si quelqu'un pouvait m'aider, ce serait Génial !

Merci d'avance.