XL 2016 Message d'alerte

[JORDAN]

bonjour le Forum,
j'ai un message d'alerte lors du lancement d'un lien hypertexte que je n'arrive pas à supprimer en VBA
c'est un lien pour l'ouverture de SAP
j'ai pourtant mis ce code mais rien n'y fait, avez vous une autre idée svp ?
par avance merci

Private Sub Workbook_Open()
     Application.DisplayAlerts = False
End Sub

 

[Jauster]

Bonjour,

A essayer avec

Private Sub Workbook_Open()
     Application.DisplayAlerts = False
     Application.EnableEvents = False
End Sub
/code]

Ne pas oublier ceci :
[code=VB]Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.DisplayAlerts = True
     Application.EnableEvents = True
End Sub

---------------------------

Sinon :

A essayer avec

Private Sub Workbook_Open()
Set objExcel = CreateObject("Excel.Application")
     objExcel.DisplayAlerts = False
     objExcel.EnableEvents = False
End Sub
/code]

Ne pas oublier ceci :
[code=VB]Private Sub Workbook_BeforeClose(Cancel As Boolean)
     objExcel.DisplayAlerts = True
     objExcel.EnableEvents = True
End Sub

 

[JORDAN]

Bonjour Jauster,
je viens d'essayer et cela ne fonctionne pas, j'ai toujours le même message d'alerte
je crois que je vais me résigner et laisser cette fenêtre apparaître
merci pour ton aide

 

[Jauster]

Bonjour Jauster,
je viens d'essayer et cela ne fonctionne pas, j'ai toujours le même message d'alerte
je crois que je vais me résigner et laisser cette fenêtre apparaître
merci pour ton aide

Je viens de voir que les balises codes ont bug. Attention si tu as C/C

voici le code corrigé :

Private Sub Workbook_Open()
Set objExcel = CreateObject("Excel.Application")
     objExcel.DisplayAlerts = False
     objExcel.EnableEvents = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     objExcel.DisplayAlerts = True
     objExcel.EnableEvents = True
End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Workbook_Open()
     Application.DisplayAlerts = False
     Application.EnableEvents = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.DisplayAlerts = True
     Application.EnableEvents = True
End Sub

 

[JORDAN]

bonjour Jauster, le Forum,
je viens d'essayer mais cela ne change rien, le message apparaît toujours
je vais laisser ce message, il suffit de faire "OK" et SAP s'ouvre

merci