[VBA]répondre automatiquement à un msgbox [Trucs & Astuces]

**gromite** · 13/01/2004, 14h13

bonjour tout le monde !

voila j'ai à nouveau problème qui est assez chiant !

j'ai fait un classeur excel qui ouvre d'autres classeurs excels ! jusque la tout va bien. quand j'ouvre mon classeur principal, il me demande si je veux activer les macros et c'est ce que je souhaite donc ok.
mais le problème c'est que à chaque fichier qu'il ouvre et qui contient des macros, il remet l'avertissement pour savoir si je veux activer les macros !!!

peut on répondre automatiquement à ce message ??? ou empêcher qu'il se lance au démarage ???

merci pour les réponses

Gromit

**bhaal76** · 13/01/2004, 14h25

c'est pas dans
excel -> outils -> options -> Sécurité -> Sécurité des macros -> niveau de sécurité
???

**gromite** · 13/01/2004, 14h33

ah oui j'ai pas précisé !

je sais que je peux désactiver l'avertissement pour tous les fichiers !!

mais je voudrais annuler l'avertissement pour des fichiers en particulier (ceux que j'ouvre en l'occurence ).

merci

Gromit

**bhaal76** · 13/01/2004, 15h25

en insérant en référence :
- "Microsoft Excel 10.0 object Lybrary"
- "Microsoft Office 10.0 object Lybrary"

et en tapant le code suivant, il me semble peut-être possible de modifié en live se que j'ai mis plus haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command1_Click()
    Dim mon_app As Excel.Application
    Dim mon_classur As Excel.Workbook
    Dim ma_feuille As Excel.Worksheet
 
    Set mon_app = New Excel.Application
    Set mon_classeur = mon_app.Workbooks(0)
    Set ma_feuille = mon_app.Worksheets(0)
 
    mon_app
    mon_classur.SmartTagOptions.Application.AutomationSecurity = msoAutomationSecurityByUI
    mon_classur.SmartTagOptions.Application.AutomationSecurity = msoAutomationSecurityForceDisable
    mon_classur.SmartTagOptions.Application.AutomationSecurity = msoAutomationSecurityLow
 
    ma_feuille
 
End Sub

a toi de voir ce que tu peux en faire (style, mettre la sécurité a low, ouvrir ton fichier, remettre les sécurités normal ...)

**gromite** · 13/01/2004, 15h44

voila c'est exactement ce que je cherchais mais 2 petits trucs encore :

je suis nul en VB et ca veut dire koi ca :

en insérant en référence :
- "Microsoft Excel 10.0 object Lybrary"
- "Microsoft Office 10.0 object Lybrary"

de plus j'utilise la méthode open pour ouvrir un fichier et non new...
est que ceci est bon ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
fichier="blabla.xls"
Workbooks.Open (fichier)
Workbooks(fichier).SmartTagOptions.Application.AutomationSecurity = msoAutomationSecurityLow 
' mes opérations sur le fichiers
Workbooks(fichier).SmartTagOptions.Application.AutomationSecurity = msoAutomationSecurityByUI
Workbooks(fichier).Close (False)

est ce que le open va pas directement entrainer le message d'avertissement ???

merci bcp bhaal76

**bhaal76** · 13/01/2004, 15h48

d'abord au 2 : ne te fis pas au new que j'ai mis, excel et moi, on n'est pas copain ...

au 1 : beaucoup plus facile comme question :
sous Visual Basic, dans le menu "projet" -> "référence", tu coche les case correspondant a ce que j'ai mis tout à l'heure ... c'est tout

ça signifie que ton pojet fera référence a ces objects (en gros)

**bhaal76** · 13/01/2004, 15h51

j'avais pas vu la derniere question

je viens de m'appercevoir qu'il accepte aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.SmartTagOptions.Application.AutomationSecurity = msoAutomationSecurityLow

ce qui suppose que tu peux peut-être le faire avant

**gromite** · 13/01/2004, 16h21

je viens de mettre en place ce que tu viens de me dire et ca marche nickel !

au tite derniere question :
à l'époque quand je faisais du VB, il y avait une fonction qui permettait de ne pas afficher ce que faisait les macros afin de gagner en rapidité !
vois tu laquelle c'est parce que je n'arrive pas à la retrouver !

Gromit