XL 2013 appel de procedure en différé

[patricktoulon]

bonjour a tous
une fois n'est pas coutume c'est moi qui peine

j'ai une fonction dans la quelle a la fin j'essaie d'appeler en différé une sub publique du thisworkbook
est ce possible?

Application.OnTime Now + TimeValue("00:00:01"), "'" & ThisWorkbook.Name & "!" & "AddIndentEnvironnement"

merci pour les retours

 

[Cousinhub]

Hello,
Peut-être qu'il manque une apostrophe?
Et ensuite, avec Application.Run?

Application.OnTime Now + TimeValue("00:00:01"), Application.Run "'" & ThisWorkbook.Name & "'!" & "AddIndentEnvironnement"

Non testé....

 

[Dranreb]

Bonjour.
Pas plus qu'avec un Timer on ne peut exécuter une méthode par Application.Run. Pas d'autre solution que d'exécuter une Sub d'un module standard qui elle invoque la méthode.

 

[Cousinhub]

Re-,
Testé :

Application.OnTime Now + TimeValue("00:00:01"), "'" & ThisWorkbook.Name & "'!" & "coucou"

Le code de "coucou"

Sub coucou()
MsgBox "hello"
End Sub

Sans l'apostrophe, fichier non trouvé

 

[patricktoulon]

re
bon ben en testouillant avec des msgbox on trouve
et du coup je viens de découvrir que Si c'est possible
il y avait deux problème dans ma ligne de rapel
1 ° effectivement @Cousinhub avait raison il manquait un apostrophe avant le "!"
2 ° aussi bizarre que cela puisse paraitre , même avec il ne me le trouve pas
j'ai le message gris me disant que qu'il ne trouve pas la sub
"C:User\patricktoulon\Documents\monclasseur.xlsm!ThisworkBook.mamacro
hors il n'est pas dans mes documents il est sur le bureau !!!!
du coup

Application.OnTime Now + TimeValue("00:00:01"), "'" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & "'!" & "Thisworkbook.mamacro"

25 ans après je découvre que c'est possible

comme ça @Dranreb aura appris quelque chose aussi aujourd'hui
merci Tous les deux pour les retours
c'est bon pour moi

 

[Dranreb]

Ah, excuses. J'avais dû le savoir mais l'ai oublié. À vrai dire je n'étais tout à fait sûr.

 

[patricktoulon]

re
ne t'excuse pas moi aussi j'ai toujours entendu que c’était impossible
il a fallu que je regarde plus attentivement le message d'erreur pour comprendre

 

[patricktoulon]

comme ça c'est pas perdu

Discussion 'Comment utiliser application.ontime pour lancer une procédure qui n'est pas dans un module standard'

5 Mai 2025

petite découverte et astuce du jour

Comment utiliser application.ontime pour lancer une procédure ​

en différé qui n'est pas dans un module standard​

d'aussi loin que je me souvienne on m'a toujours dit que ce n’était pas possible

et pourtant SI!!

en fait c'est un bug qui n'a jamais été résolu

prenons par exemple une sub publique dans le module thisworkbook

public sub Mamacro()
msgbox "coucou je suis dans le module ThisworkBook"
End Sub

et je souhaiterais l'appeler de n'importe ou en différé

par...

• patricktoulon
• Réponses: 8
• Forum: Trucs et astuces

 

[job75]

Bonjour à tous,

Au post #1 Patrick a dit :

j'ai une fonction dans la quelle a la fin j'essaie d'appeler en différé une sub publique du thisworkbook

Le code du post #5 ne fonctionne pas chez moi s'il est placé dans une fonction.

Il fonctionne s'il est placé dans une procédure Sub.

A+

 

[Dranreb]

Il ne dit pas que la fonction est invoquée dans une formule de cellule. Mais si c'est le cas il y a toujours un évènement Worksheet_Calculate qui survient derrière.
Et dans une Sub qui le prend en charge on peut épuiser une collection VBA dans laquelle la fonction pourrait avoir enregistré une consigne.

 

[job75]

Oui en effet si la fonction est appelée dans une Sub pas de problème.

 

[job75]

Bonjour Patrick, le forum,

A priori pas besoin d'utiliser le chemin du fichier, cette manière de faire est classique et va bien :

Function F()
Application.OnTime Now + TimeValue("00:00:01"), ThisWorkbook.CodeName & ".mamacro"
End Function

Sub Test()
Dim x
x = F 'appelle la fonction
End Sub

Il faut utiliser le CodeName, pour tester j'ai renommé "MonThisWorkbook" le ThisWorkbook.

A+

 

[patricktoulon]

Bonjour
re visiblement ça se produit uniquement quand la fonction est dans une classe
@job75 ton idée n'est pas mauvaise d'utiliser le codeName
perso j'ai ma solution elle ne mange pas de pain
et surtout ou que soit cette ligne d'appel elle va taper au bon endroit

    Application.OnTime Now + 0.000005, "'" & ThisWorkbook.FullName & "'!" & ThisWorkbook.CodeName & ".AddIndentEnvironnement"

le string obtenu est le chemin complet et explicite de la sub

 

[Dranreb]

Bonjour.
Quelque chose me dit que personnellement je passerais plutôt par un évènement, vu que seuls des modules objets sont impliqués !

 

[patricktoulon]

@Dranreb oui sauf que dans cette fonction je réécrit du code dans les modules
tu sais ce que ça veut dire !!????
ça veut dire qu'a partir du moment ou je réécrit du code toute les variables sont NAZES
problème dans cette classe je gère l'event des commandbarbutton avec des puclic withevents
puisque c'est un bouton supplémentaire dans la" commandbars("tools") de VBE
si c'est variables sont détruites le truc marche qu'une première fois puis bye bye!!
donc mon idée et de différé la réinitialisation de ces variables automatiquement
et ça fonctionne