Discussion :

[Invité]

Bonjour,

lorsque je veux exécuter ce script j'ai l'erreur suivante :

---------------------------
Windows Script Host
---------------------------
Script : C:\Users\user\Desktop\Clé Registre AddIn.vbs
Ligne : 49
Caract. : 50
Erreur : Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript

---------------------------
OK
---------------------------

Pouvez-vous m'aider?

merci d'avance

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
Const EXCEL_ADDIN_PATH_BEFORE = "HKCU\Software\Microsoft\Office\" 
Const EXCEL_ADDIN_PATH_AFTER = "\Excel\Options\" 
Const ADDIN_REG_VALUE = "C:\generix6\chf\Integration_GNX.xla"
 
Function RegistrationKeyExists(key) 
    On Error Resume Next 
    objShell.RegRead (key) 
    If Err = 0 Then 
        RegistrationKeyExists = True 
    Else 
        RegistrationKeyExists = False 
    End If 
End Function 
 
Function RegistrationKeyValueGet(name) 
    On Error Resume Next 
    Dim value 
    value = objShell.RegRead(name) 
    If Err = 0 Then 
        RegistrationKeyValueGet = value 
    Else 
        RegistrationKeyValueGet = "" 
    End If 
End Function 
 
Function RegistrationKeyValueSet(name, value) 
    On Error Resume Next 
    objShell.RegWrite name, value, "REG_SZ" 
    If Err = 0 Then 
        RegistrationKeyValueSet = True 
    Else 
        RegistrationKeyValueSet = False 
    End If 
End Function 
 
Dim EXCEL_ADDIN_PATH 
Dim versions 
Dim officeval 
Dim objShell 
Dim count 
Dim value 
Dim exists 
Dim success 
 
Set objShell = CreateObject("WScript.Shell") 
 
WScript.Echo "Excel Add-in Registration Tool" 
 
versions = Array("12.0", "14.0", "15.0", "16.0") For Each officeval In versions 
    EXCEL_ADDIN_PATH = EXCEL_ADDIN_PATH_BEFORE & officeval & EXCEL_ADDIN_PATH_AFTER 
 
    WScript.Echo "Checking Office Version - " & officeval 
 
    If RegistrationKeyExists(EXCEL_ADDIN_PATH) Then 
        count = 0 
        exists = False 
        value = RegistrationKeyValueGet(EXCEL_ADDIN_PATH & "OPEN") 
 
        While Len(value) > 0 And Not exists 
            count = count + 1 
            value = RegistrationKeyValueGet(EXCEL_ADDIN_PATH & "OPEN" & count) 
            If value = ADDIN_REG_VALUE Then 
                exists = True 
            End If 
        Wend 
 
        If exists = True Then 
            WScript.Echo "Office Version - " & officeval & " Already Registered" 
        Else 
            If count > 0 Then 
                success = RegistrationKeyValueSet(EXCEL_ADDIN_PATH & "OPEN" & count, ADDIN_REG_VALUE) 
            Else 
                success = RegistrationKeyValueSet(EXCEL_ADDIN_PATH & "OPEN", ADDIN_REG_VALUE) 
            End If 
            If success Then 
                WScript.Echo "Office Version - " & officeval & " Registration Complete" 
            Else 
                WScript.Echo "Office Version - " & officeval & " Unable to Register Add-In" 
            End If 
        End If 
    Else 
        WScript.Echo "Office Version - " & officeval & " Not Found" 
    End If 
Next 
Set objShell = Nothing

[ProgElecT]

Salut

Et si

Code :

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

1
2
3
4
versions = Array("12.0", "14.0", "15.0", "16.0")
For Each officeval In versions
'...............
next

[Invité]

Super merci ça fonctionne !