Desactiver une MsgBox d'un fichier dans une macro

Bonjour,

j'ai un fichier qui, à son ouverture, ouvre une Msg Box.
Je voudrais désactiver temporairement cette msgbox lorsque j'ouvre ce fichier via une macro.
Est-ce possible?
Cela ne marche pas avec

Code:

---

application.displayalerts = false

---

Merci pour votre aide

Bonjour,

C'est peut être possible.
Mais pour pouvoir t'aider, il faudrait le message qui s'affiche.
(message d'erreur ? ou d'information ? Message standard Excel ? ou Message spécifique à du code propriétaire ? )

Bonjour,

c'est possible, voir l'aide VBA de la propriété .AutomationSecurity …


_________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci. Je n'arrive pas avec

Code:

---

Application.AutomationSecurity = False

---

rien se passe.
La MsgBox est dans le fichier source et donne une info lorsqu'on l'ouvre.
Mais si ce même fichier est ouvert via une macro d'importation, je n'ai pas besoin de cette info, elle me gène.
Je voudrais donc la supprimer dans la macro, après ou avant? mon

Code:

---

Workbooks(NomWorkbookSource).Activate

---

Bonjour,

quel est le code d'ouverture de ton msgbox ?

Code:

---

1 2 3

Private Sub Workbook_Open() MsgBox "lancer tdb avec ctrl+a" End Sub

---

.

Bonjour,

En déactivant les évènements avant d'ouvrir le fichier, ça devrait bloquer le Msgbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Const fichier As String = "C:\MesDocuments\classeur1.xlsm" Sub test() Application.EnableEvents = False Dim wb As Workbook Set wb = Workbooks.Open(fichier) Application.EnableEvents = True   ' Fait le traitement sur le fichier ici.   'ferme le fichier sans enregistrer. wb.Close SaveChanges:=False End Sub

---

C'est parfait, ça marche.
Merci!