Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Workbooks.Open... Comment activer les macro

Workbooks.Open... Comment activer les macro

26 réponses
Avatar
LANIMAL
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:\Documents Moi"
Workbooks.Open Filename:="D:\Documents Moi\TOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Daniel.C
Bonsoir.
Non ! J'en ai une si j'ouvre le fichier manuellement.
Daniel
"LSteph" a écrit dans le message de news:

Bonsoir Daniel,

N'aurait tu donc aucune alerte??? ...!!

--
lSteph

Je suis aussi en niveau moyen. J'ai testé avec XL2003 et XL2007 avec le
même résultat.
Je me sens bien seul...
Daniel
"LANIMAL" a écrit dans le message de news:

Merci Daniel, j'avais complètement oublié les niveaux de sécurité.
Le pb, c'est que je suis en niveau moyen (W XP - Excel 2000), et il me
demande qd même la validation manuelle.
J'avoue que j'hésite à me mettre en niveau bas, quoique, après tout, je
n'importe pratiquement jamais de fichiers Excel, alors je peux bien
essayer.
Merci, de toute façon, je pense que Philippe va réagir, alors j'attends.

Bonsoir.
Ou je suis totalement à côté de la plaque, ou, quand j'ouvre avec VBA
un fichier contenant des macros, je n'ai pas besoin d'activer
manuellement les macros (en niveau de sécurité moyen).
Daniel
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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














Avatar
LANIMAL
Rebonsoir,
J'ai l'impression d'avoir foutu un pavé dans la mare !
J'ai XL 2000 sous W XP - oui, je sais, ça date !
En fait, il s'agit d'ouvrir au démarrage du pc le fichier TOTO.xls,
genre d'agenda multifonction (personnalisé et un peu complexe).
Je voudrais éviter l'activation manuelle :
1 - par goût d'automatisation (et par flemme :-( )
2 - parce que l'alerte est souvent masquée par un autre fenêtre
(PopTray) ouverte elle aussi au démarrage, et donc j'oublie d'autoriser
l'ouverture de mon agenda TOTO.
Mais indépendamment de votre débat pour l'honneur, je vais me
débrouiller pour faire fonctionner TOTO sans macro...
... je l'aurai !
Merci à tous. - De toute façon le débat m'intéresse.

..et quelle version as tu?


Bonsoir,

même en niveau bas c'est demandé et heureusement!
que veux tu faire?

--
lSteph

Merci Daniel, j'avais complètement oublié les niveaux de sécurité.
Le pb, c'est que je suis en niveau moyen (W XP - Excel 2000), et il
me demande qd même la validation manuelle.
J'avoue que j'hésite à me mettre en niveau bas, quoique, après tout,
je n'importe pratiquement jamais de fichiers Excel, alors je peux
bien essayer.
Merci, de toute façon, je pense que Philippe va réagir, alors j'attends.

Bonsoir.
Ou je suis totalement à côté de la plaque, ou, quand j'ouvre avec
VBA un fichier contenant des macros, je n'ai pas besoin d'activer
manuellement les macros (en niveau de sécurité moyen).
Daniel

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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















Avatar
ChrisV
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 MoiTOTO.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 = "HKCUSoftwareMicrosoftOffice9.0ExcelSecurityLevel"
end If
If VersionExcel = 2002 Then
Valeur = "HKCUSoftwareMicrosoftOffice10.0ExcelSecurityLevel"
end If
If VersionExcel = 2003 Then
Valeur = "HKCUSoftwareMicrosoftOffice11.0ExcelSecurityLevel"
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


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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






Avatar
Daniel.C
Regarde dans le lien ci-dessous :

la contribution de Jon Peltier (qui me conforte un peu !) :

***
An Excel VBA procedure should be able to open a workbook that contains code,
without the macro warning. Having already approved opening of the workbook
with the VBA, or writing fresh VBA, provides implicit acceptance of the
macros in the unopened workbook.

The warning that's harder to avoid is a prompt to update any links in the
workbook being opened.


- Jon
***

En gros, pour ceux qui ne lisent pas la langue de Guillaume Chèquespierre,
ça dit que du moment qu tu as eu une demande d'accord pour activer les
macros du classeur qui contient le code, les fichiers qui sont ouverts par
ce classeur sont réputés fiables (ce qui est discutable, si on demande à
l'utilisateur quel fichier il faut ouvrir...)

Daniel

"LSteph" a écrit dans le message de news:

Bonsoir Daniel,

N'aurait tu donc aucune alerte??? ...!!

--
lSteph

Je suis aussi en niveau moyen. J'ai testé avec XL2003 et XL2007 avec le
même résultat.
Je me sens bien seul...
Daniel
"LANIMAL" a écrit dans le message de news:

Merci Daniel, j'avais complètement oublié les niveaux de sécurité.
Le pb, c'est que je suis en niveau moyen (W XP - Excel 2000), et il me
demande qd même la validation manuelle.
J'avoue que j'hésite à me mettre en niveau bas, quoique, après tout, je
n'importe pratiquement jamais de fichiers Excel, alors je peux bien
essayer.
Merci, de toute façon, je pense que Philippe va réagir, alors j'attends.

Bonsoir.
Ou je suis totalement à côté de la plaque, ou, quand j'ouvre avec VBA
un fichier contenant des macros, je n'ai pas besoin d'activer
manuellement les macros (en niveau de sécurité moyen).
Daniel
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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














Avatar
Daniel.C
Ce n'est pas pour l'honneur (je ne suis plus à ça près...). On dirait qu'il
y a deux types de fonctionnement différents.
Daniel
"LANIMAL" a écrit dans le message de news:
%
Rebonsoir,
J'ai l'impression d'avoir foutu un pavé dans la mare !
J'ai XL 2000 sous W XP - oui, je sais, ça date !
En fait, il s'agit d'ouvrir au démarrage du pc le fichier TOTO.xls,
genre d'agenda multifonction (personnalisé et un peu complexe).
Je voudrais éviter l'activation manuelle :
1 - par goût d'automatisation (et par flemme :-( )
2 - parce que l'alerte est souvent masquée par un autre fenêtre (PopTray)
ouverte elle aussi au démarrage, et donc j'oublie d'autoriser l'ouverture
de mon agenda TOTO.
Mais indépendamment de votre débat pour l'honneur, je vais me débrouiller
pour faire fonctionner TOTO sans macro...
... je l'aurai !
Merci à tous. - De toute façon le débat m'intéresse.

..et quelle version as tu?


Bonsoir,

même en niveau bas c'est demandé et heureusement!
que veux tu faire?

--
lSteph

Merci Daniel, j'avais complètement oublié les niveaux de sécurité.
Le pb, c'est que je suis en niveau moyen (W XP - Excel 2000), et il me
demande qd même la validation manuelle.
J'avoue que j'hésite à me mettre en niveau bas, quoique, après tout, je
n'importe pratiquement jamais de fichiers Excel, alors je peux bien
essayer.
Merci, de toute façon, je pense que Philippe va réagir, alors
j'attends.

Bonsoir.
Ou je suis totalement à côté de la plaque, ou, quand j'ouvre avec VBA
un fichier contenant des macros, je n'ai pas besoin d'activer
manuellement les macros (en niveau de sécurité moyen).
Daniel

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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

















Avatar
LANIMAL
Bonsoir ChrisV
Eh bien...
Je suis impressionné (à vrai dire, vu mon niveau, c'est pas étonnant !)
Je vais donc essayer.
Un détail qui a peut-être son importance :
La macro dans TOTO est une Private Sub Workbook_Open()
dans ThisWorkbook.

Quant à l'intérêt que l'on porte aux choses "pour l'honneur"...
ce n'est pas forcément déshonorant...
Je crains d'avoir été mal compris, mes excuses à Daniel.
Encore merci à tous.

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 MoiTOTO.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 = "HKCUSoftwareMicrosoftOffice9.0ExcelSecurityLevel"
end If
If VersionExcel = 2002 Then
Valeur = "HKCUSoftwareMicrosoftOffice10.0ExcelSecurityLevel"
end If
If VersionExcel = 2003 Then
Valeur = "HKCUSoftwareMicrosoftOffice11.0ExcelSecurityLevel"
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


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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









Avatar
j
tu peux essayer ça : http://jacxl.free.fr/cours_xl/secu_vba.html
pas sur que ça marche dans ta configuration...



"LANIMAL" a écrit dans le message de news:

Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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



Avatar
Joël André
Bonjour LANIMAL,

Personnellement, j'ai XP pro et Office 2000 pro (donc Excel 2000) et tout
fonctionne à merveille.
Pour ma part, j'ai d'abord fais toutes les mises à jour nécessaires en
allant sur le site
"http//office.microsoft.com/fr-fr/downloads/maincatalog.aspx".
Personnellement, je pense que c'est important (mais à chacun son choix).
Ensuite, dans Excel, j'ai ouvert "Outils/Macro/Sécurité/Niveau de sécurité"
et coché "Niveau Moyen". Dans le volet suivant, "Faire confiance à tous les
modèles et compléments installés" doit être coché.

En souhaitant que ces observations puissent t'être utiles.
Bonne chance.

"LANIMAL" a écrit dans le message de news:

Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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



Avatar
Joël André
Re bonjour,
Il me semble me souvenir que dans "Thisworkbook" il faut simplement appeler
la macro à ouvrir dans le genre :
Private Sub Workbook_Open()
InitialisationMacrosEtParamètres 'Première macro à lancer
End Sub
et mettre la macro en "Module1" ou en "Feuil1".
A vérifier, mais c'est comme cela que je l'ai compris et pratique.
Bonne chance.


"LANIMAL" a écrit dans le message de news:
u%
Bonsoir ChrisV
Eh bien...
Je suis impressionné (à vrai dire, vu mon niveau, c'est pas étonnant !)
Je vais donc essayer.
Un détail qui a peut-être son importance :
La macro dans TOTO est une Private Sub Workbook_Open()
dans ThisWorkbook.

Quant à l'intérêt que l'on porte aux choses "pour l'honneur"...
ce n'est pas forcément déshonorant...
Je crains d'avoir été mal compris, mes excuses à Daniel.
Encore merci à tous.

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 MoiTOTO.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 =
"HKCUSoftwareMicrosoftOffice9.0ExcelSecurityLevel"
end If
If VersionExcel = 2002 Then
Valeur =
"HKCUSoftwareMicrosoftOffice10.0ExcelSecurityLevel"
end If
If VersionExcel = 2003 Then
Valeur =
"HKCUSoftwareMicrosoftOffice11.0ExcelSecurityLevel"
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


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
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
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LANIMAL" a écrit dans le message de
news:
Bonjour
Le code suivant ouvre TOTO.xls qui contient des macros

ChDir "D:Documents Moi"
Workbooks.Open Filename:="D:Documents MoiTOTO.xls"

Mais, lors de l'ouverture l'alerte suivante apparaît :
"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












Avatar
LANIMAL
Bonjour et merci pour ton aide.
Je ne peux pas essayer tout de suite, car je dois m'absenter.
j'essaierai ce soir.

Concernant ton message de 9:16
"Personnellement, j'ai XP pro et Office 2000 pro (donc Excel 2000)...
Pour ma part, j'ai d'abord fais toutes les mises à jour
Ensuite, dans Excel, j'ai ouvert "Outils/Macro/Sécurité/Niveau de sécurité"
et coché "Niveau Moyen". Dans le volet suivant, "Faire confiance à tous
les modèles et compléments installés" doit être coché."

Tout est conforme chez moi : toutes les màj sont faites
et dans sécurité, tout est coché comme tu dis
... mais ça fonctionne différemment !
Merci encore
LANIMAL

Re bonjour,
Il me semble me souvenir que dans "Thisworkbook" il faut simplement appeler
la macro à ouvrir dans le genre :
Private Sub Workbook_Open()
InitialisationMacrosEtParamètres 'Première macro à lancer
End Sub
et mettre la macro en "Module1" ou en "Feuil1".
A vérifier, mais c'est comme cela que je l'ai compris et pratique.
Bonne chance.


1 2 3