[VBS]Ouverture d'un classeur excel

Ouverture d'un classeur excel [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 14-01-2007 à 12:45:22    

Bonjour à tous
 
Je suis plus habitué à la programmation VBA,mais j'ai besoin d'un bout de code en VBS pour modifier le niveau de securité d'ouverture des macro d'excel pour l'ouverture d'un fichier sans avoir à repondre à la demande d'excel sur l'activation de la macro.
Niveau de securité qui est contenu dans le registre.
J'ai recupéré le bout de code suivant que j'ai du adapter en fonction de la version d'excel.
Mais le fichier specifier ne demarre pas, excel ne se met pas en route et je ne vois pas pourquoi?
 

Code :
  1. 'Excel doit être fermé
  2. On Error Resume Next
  3. Set objXl=GetObject(,"Excel.Application" )
  4. If Not IsEmpty(objXl) Then
  5. Msgbox "Excel doit être fermé pour exécuter ce script..."
  6. WScript.Quit
  7. End If
  8. Err.Clear
  9. 'objet script et chemin de la clé du registre pour Excel 2003
  10. Set wsh = WScript.CreateObject("WScript.Shell" )
  11. Cle2003 = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\Level"
  13. Dim NiveauSecurite, wsh
  14. 'niveau de sécurité en début d'exécution
  15. NiveauSecurite = wsh.RegRead(Cle2003)
  17. 'changement pour le niveau le plus faible
  18. wsh.RegWrite Cle2003, 1,"REG_DWORD"
  19. 'ouverture du classeur sans alerte macro
  20. Retour=wsh.Run("C:\Adobe\Saisie Activité Journalière.xls", 3, False)
  22. 'rétablissement du niveau de sécurité de départ
  23. wsh.RegWrite Cle2003, NiveauSecurite,"REG_DWORD"
  24. 'pour vérifier si la clé pour Excel 2000 existe bien
  25. Function IsExcel2003()
  26. On Error Resume Next
  27. Res=wsh.RegRead(Cle2003)
  28. IsExcel2003=(Err=0)
  29. End Function


 
 
Si quelqu'un peut me donner un coup de main.
 
Merci


Message édité par treza88 le 14-01-2007 à 12:48:53
Reply

Marsh Posté le 14-01-2007 à 12:45:22   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed