re ( encore )
voici le code
'Excel doit être fermé
On Error Resume Next
Set objXl=GetObject(,'Excel.Application')
If Not IsEmpty(objXl) Then
Msgbox 'Excel doit être fermé pour exécuter ce script...'
WScript.Quit
End If
Err.Clear
'objet script et chemin de la clé du registre pour Excel 2000
Set wsh = WScript.CreateObject('WScript.Shell')
Cle2000 = 'HKCU\\Software\\Microsoft\\Office\\9.0\\Excel\\Security\\Level'
If Not IsExcel2000 Then
MsgBox 'Ce script ne peut désactiver l'alerte macro que pour Excel 2000...'
WScript.Quit
End If
Dim NiveauSecurite, wsh
'niveau de sécurité en début d'exécution
NiveauSecurite = wsh.RegRead(Cle2000)
'changement pour le niveau le plus faible
wsh.RegWrite Cle2000, 1,'REG_DWORD'
'ouverture du classeur sans alerte macro
Retour=wsh.Run('D:\\6OfficeVBA\\ClasseurTestSecurite.xls', 3, False)
'rétablissement du niveau de sécurité de départ
wsh.RegWrite Cle2000, NiveauSecurite,'REG_DWORD'
'pour vérifier si la clé pour Excel 2000 existe bien
Function IsExcel2000()
On Error Resume Next
Res=wsh.RegRead(Cle2000)
IsExcel2000=(Err=0)
End Function
voici le lien
Ce lien n'existe plus
voici ma tete aprés avoir vu le lien B)
voici ma tête après avoir vu le script :sick:
ma tête maintenant