XL 2021 Application.OnTime avec arguments

[Dudu2]

Bonjour,

Ça fait 2 heures que je me casse les dents sur cette foutue syntaxe.
Merci de me dire ce qui ne va pas.

Application.OnTime EarliestTime:=EarliestTime, Procedure:="'CloseWorkbook " & Chr(34) & TempWorkbook.Name & Chr(34) & "'", Schedule:=True

'-----------------------
'Fermeture d'un classeur
'-----------------------
Private Sub CloseWorkbook(WorkbookName As String)
    Application.EnableEvents = False
    On Error Resume Next
    Application.Workbooks(WorkbookName).Close , savechanges:=False
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

 

[Dudu2]

Au bout de 2h30 d'essais, il a fallu rendre le Sub appelé Public, alors que dans tous mes autres modules en Private ça fonctionne !

 

[patricktoulon]

Bonjour @Dudu2
ca fait parti du trou beant des macro4( qui n'est pas ou très peu documenté)

tu dis que ca marche pour d'autre sub en private
tes sub sont certainement dans un module standard
et non dans une classe comme le thisworkbook , userform , module classe,feuil etc...

le sheduler avec argument(hérité des versions d'Excel précédentes)
c'est le mode LEGACY du moteur excel (il tolère la requête argumentée)
et donc l'appel se fait (attention tout de même c'est instable)

avec le mode STRICTE il ne serait pas possible aujourd'hui d'argumenter l'appel
le mode stricte accepte par contre le chemin complet de la macro (voir mon petit billet dans les astuces )