Fin d'instruction attendue 800A0401
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:
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 |