paramètre par défaut a un classeur

[jeremy4884]

Bonjour,

Alors je voudrais savoir s'il est possible d'intégrer à un fichier excel, un paramètre d'ouverture automatique.

C'est à dire, je voudrais que l'option itération soit coché et qu'il soit à 1 automatiquement à l'ouverture du classeur.

Merci

 

[dixit]

Re : paramètre par défaut a un classeur

bonsoir,
je pense qu'il faut le faire dans Thisworkbook pour exécution à l'ouverture avec
Private Sub Workbook_Open()
bla bla bla
End Sub
bye

 

[Catrice]

Re : paramètre par défaut a un classeur

Bonsoir,

Testé sur XL 2002, c'est un parametre qui est enregistré avec le fichier et récupéré s'il est ouvert en premier.

Mais le mieux est de mettre :

Private Sub Workbook_Open()
With Application
.Iteration = True
.MaxIterations = 1
.MaxChange = 0.001
End With
End Sub

Dans l'evenement Open du classeur.
Voir fichier joint.

 

[jeremy4884]

Re : paramètre par défaut a un classeur

re !

Et je voulais savoir aussi comment mettre le niveau de sécurité macro automatiquement sur moyen pour l'ouverture de ce classeur.


Je sais que ca se fait avec AutomationSecurity

Et je souhaiterais le mettre sur le niveau moyen, et qui n'affiche pas de message ( je pense que c'est avec ""screenupdating"" )


Voilà l'aide d'excel si ca peut vous aider :

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

AutomationSecurity, propriété
Voir aussiS'applique àExempleDétailsRenvoie ou définit une constante MsoAutomationSecurity qui représente le mode de sécurité utilisé par Microsoft Excel lors de l'ouverture de fichiers par programme. Cette propriété reçoit automatiquement la valeur msoAutomationSecurityLow au démarrage de l'application. Par conséquent, pour éviter le piratage de solutions s'appuyant uniquement sur le paramètre par défaut, il est conseillé d'attribuer à cette propriété la valeur msoAutomationSecurityLow après avoir ouvert un fichier par programme. De même, cette propriété doit être définie immédiatement avant et suivant l'ouverture d'un fichier par programme pour éviter toute action malveillante. En lecture-écriture.

MsoAutomationSecurity peut être l'une de ces constantes MsoAutomationSecurity.
msoAutomationSecurityByUI Utilise le paramètre de sécurité spécifié dans la boîte de dialogue Sécurité.
msoAutomationSecurityForceDisable Désactive toutes les macros contenues dans tous les fichiers ouverts par programmation sans afficher d'avertissement de sécurité.
msoAutomationSecurityLow Active toutes les macros. Il s'agit de la valeur par défaut lorsque l'application est démarrée.

expression.AutomationSecurity
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.

Notes
L'affectation de la valeur False à la propriété ScreenUpdating n'affecte pas les messages d'alerte et n'affectera pas les avertissements de sécurité. Le paramètre DisplayAlerts ne s'applique pas aux avertissements de sécurité. Par exemple, si l'utilisateur affecte la valeur False à la propriété DisplayAlerts et la valeur msoAutomationSecurityByUI à AutomationSecurity, alors qu'il utilise le niveau de sécurité moyen, des avertissements de sécurité seront émis pendant l'exécution de la macro. Cela permet à la macro d'intercepter des erreurs d'ouverture de fichier, tout en affichant l'avertissement de sécurité si l'ouverture du fichier réussit.

Exemple
Cet exemple montre comment capturer le paramétrage de la sécurité automation en cours, changer ce paramétrage pour désactiver des macros, afficher la boîte de dialogue Ouvrir et, après avoir ouvert le document sélectionné, réaffecter le paramétrage d'origine à la sécurité automation.

Sub Security()
Dim secAutomation As MsoAutomationSecurity

secAutomation = Application.AutomationSecurity

Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.FileDialog(msoFileDialogOpen).Show

Application.AutomationSecurity = secAutomation

End Sub

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Merci @ tous.

 

[JCGL]

Re : paramètre par défaut a un classeur

Bonjour à tous,
Re Catrice,

jeremy4884 : Une petite recherche sur l'Aide VBA et tu aurais trouvé çà 😉

AutomationSecurity, propriété

Voir aussiS'applique àExempleDétails
Renvoie ou définit une constante MsoAutomationSecurity qui représente le mode de sécurité utilisé par Microsoft Excel lors de l'ouverture de fichiers par programme. Cette propriété reçoit automatiquement la valeur msoAutomationSecurityLow au démarrage de l'application. Par conséquent, pour éviter le piratage de solutions s'appuyant uniquement sur le paramètre par défaut, il est conseillé d'attribuer à cette propriété la valeur msoAutomationSecurityLow après avoir ouvert un fichier par programme. De même, cette propriété doit être définie immédiatement avant et suivant l'ouverture d'un fichier par programme pour éviter toute action malveillante. En lecture-écriture.
MsoAutomationSecurity peut être l'une de ces constantes MsoAutomationSecurity. msoAutomationSecurityByUI Utilise le paramètre de sécurité spécifié dans la boîte de dialogue Sécurité. msoAutomationSecurityForceDisable Désactive toutes les macros contenues dans tous les fichiers ouverts par programmation sans afficher d'avertissement de sécurité. msoAutomationSecurityLow Active toutes les macros. Il s'agit de la valeur par défaut lorsque l'application est démarrée.

expression.AutomationSecurity
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
Notes

L'affectation de la valeur False à la propriété ScreenUpdating n'affecte pas les messages d'alerte et n'affectera pas les avertissements de sécurité. Le paramètre DisplayAlerts ne s'applique pas aux avertissements de sécurité. Par exemple, si l'utilisateur affecte la valeur False à la propriété DisplayAlerts et la valeur msoAutomationSecurityByUI à AutomationSecurity, alors qu'il utilise le niveau de sécurité moyen, des avertissements de sécurité seront émis pendant l'exécution de la macro. Cela permet à la macro d'intercepter des erreurs d'ouverture de fichier, tout en affichant l'avertissement de sécurité si l'ouverture du fichier réussit.
Exemple

Cet exemple montre comment capturer le paramétrage de la sécurité automation en cours, changer ce paramétrage pour désactiver des macros, afficher la boîte de dialogue Ouvrir et, après avoir ouvert le document sélectionné, réaffecter le paramétrage d'origine à la sécurité automation.
Sub Security()
Dim secAutomation As MsoAutomationSecurity

secAutomation = Application.AutomationSecurity

Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.FileDialog(msoFileDialogOpen).Show

Application.AutomationSecurity = secAutomation

End Sub

Et je souhaiterais le mettre sur le niveau moyen, et qui n'affiche pas de message ( je pense que c'est avec ""screenupdating"" )

Tu as un paragraphe qui en parle


Bonne soirée

 

[jeremy4884]

Re : paramètre par défaut a un classeur

J'ai tenté de le mettre comme ca (sans effet)

Private Sub workbook_open()

With Application
.AutomationSecurity = msoAutomationSecurityLow
End With

End Sub


Mais est-ce que quand on ouvre le classeur, il execute dejà ma macro pour la sécurité ! ! ?

 

[jeremy4884]

Re : paramètre par défaut a un classeur

Personne ne sait comment utiliser cette option ?

J'ai essayé plusieurs combianisons en regardant l'aide, mais.........

rien a faire, ca ne veut pas fonctionner.... ca ne se met pas automatiquement.