Application.EnableEvents = False, ne marche pas ???

[sim]

Bonjour le Forum

Encore une petite question de syntaxe.

Est ce que quelqu'un saurait me dire pourquoi j'ai un message me demandant si je suis sur de vouloir supprimer la feuille avec le code suivant:

Sub Preparation_HistoFX_Current()

Dim sh As Worksheet
Dim wkHistoFX As Workbook
Dim wbCurrent As String



    Set wkHistoFX = Nothing
    
    wbCurrent = "historical_FX_" & Year(Now) & ".xls"
    
    Set wkHistoFX = Workbooks(wbCurrent)
    Set sh = wkHistoFX.Sheets("M-1")
    
 Application.EnableEvents = False
    
    With wkHistoFX
        sh.Delete
        .Sheets("M").Name = "M-1"
    End With
    
  Application.EnableEvents = True
End Sub

J'ai essayer de les mettre partout

en tout debut et a la toute fin
apres le With et avant le End With

Rien y fait j'ai toujours ce message d'erreur

Merci d'avance 🙂

Sim

 

[Dranreb]

Re : Application.EnableEvents = False, ne marche pas ???

Bonjour.
EnableEvents à False évite seulement l'exécution de vos procédures évènements, et non des dispositifs de sécurité internes à Excel.
DisplayAlerts permet d'éviter certains messages d'avertissement. Voir de ce coté ci.
À+

 

[Pierrot93]

Re : Application.EnableEvents = False, ne marche pas ???

Bonjour,

remplace :

Application.EnableEvents = False

par :

Application.DisplayAlerts = False

même chos quand tu remets à "true"

bon près midi
@+

 

[sim]

Re : Application.EnableEvents = False, ne marche pas ???

Re,

Merci beaucoup a vous deux. Une faute d'inatention de ma part! Je met un temps fou a essayer de comprendre des trucs compliques (en tout cas pour moi) et j'en oublis le B a Ba!!

Donc merci a vous deux!!

Sim