Salut Philippe,
bonjour lanimal,
il n'existe pas de code forçant automatiquement l'activation des macros...
Hum...hum... ;-)
Copier le code suivant dans un fichier créé avec WordPad (par ex.), puis lui
donner l'extension nomDuFichier.vbs
(éventuellement, créer un raccourci, et lui coller l'icone d'un fichier
Excel, et hop presque ni vu ni connu...)
Set objShell = CreateObject("WScript.Shell")
VersionExcel = 2003
Classeur = "D:\Documents Moi\TOTO.xls"
On Error Resume Next
Set objXL=GetObject(,"Excel.Application")
If TypeName(objXL) = "Application" Then
Reponse=Msgbox("Excel est ouvert. " & chr(10) _
& "Cliquez sur OK pour enregistrer le classeur et fermer Excel." _
& chr(10) & "Cliquez sur Annuler pour arrêter le
script.",vbOKCancel+ vbExclamation)
If Reponse=vbOK Then
objXL.ActiveWorkbook.Save
objXL.ActiveWorkbook.Close
objXL.Quit
Else
WScript.Quit
end If
Else
Set objXL=CreateObject("Excel.Application")
End If
If VersionExcel = 2000 Then
Valeur = "HKCU\Software\Microsoft\Office\9.0\Excel\Security\Level"
end If
If VersionExcel = 2002 Then
Valeur = "HKCU\Software\Microsoft\Office\10.0\Excel\Security\Level"
end If
If VersionExcel = 2003 Then
Valeur = "HKCU\Software\Microsoft\Office\11.0\Excel\Security\Level"
end If
Securite=objShell.RegRead(Valeur)
If not Securite >= 1 Then
MsgBox "La version d'Excel n'est pas correcte. Modifiez-la dans la
deuxième ligne du script."
WScript.Quit
End If
objShell.RegWrite Valeur, 1,"REG_DWORD"
objXL.Workbooks.Open(Classeur)
objXL.Visible = True
objShell.RegWrite Valeur, Securite,"REG_DWORD"
ChrisV
Bonsoir,
Heureusement, non il n'existe pas de code forçant automatiquement
l'activation des macros (imagine alors le niveau abyssal de sécurité)
En revanche, tu peux regarder du côté de la création d'un certificat (avec
Selfcert.exe si tu en disposes) que tu associes depuis VBE à tes macros à
l'aide du menu Outils / signature électronique / choisir
Tu n'auras alors plus qu'à répondre une seule fois "faire confiance..."
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
Post by LANIMALBonjour
Le code suivant ouvre TOTO.xls qui contient des macros
ChDir "D:\Documents Moi"
Workbooks.Open Filename:="D:\Documents Moi\TOTO.xls"
"Les macros peuvent contenir de virus..."
Et je dois alors cliquer manuellement le bouton "Activer les macros"
pour valider l'ouverture de TOTO.xls
Existe-t-il une ligne de code à ajouter qui exécuterait l'activation des
macros, sans avoir à intervenir manuellement ?
Merci d'avance