[VBA-E] Executer un programme à un moment précis

salut,

J'ai crée un bouton de commande dans une feuille et lorsque je clique dessus il execute des macros dans un module du classeur.
De mon module je veux supprimer la feuille.
L'astuce est d'utiliser la méthode de l'aide qui consiste à supprimer la feuille avec un certain retard :

Cet exemple montre comment exécuter my_Procedure dans 15 secondes.

Code:

---

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

---

Mon probleme est qu'il ne retrouve pas l'adresse "Feuille.xls"
J'espere que vous pourez m'aider :?

Code:

---

Workbooks(NomDuClasseur).Worksheets(NomDeLaFeuille).select

---

te permet de sélectionner une feuille
Sans le select, te permet de la désigner dans ton code d'effacement.

Si tu mets ce code, on pourra adapter en cas de besoin.

A+

le pb c'est que "myprocedure" est une adresse il me semble.

Est ce que "Workbooks(NomDuClasseur).Worksheets(NomDeLaFeuille)" est une adresse

myprocedure est le nom de la macro qui sera lancée "OnTime"
Si cette macro se trouve hors du classeur, tu dois le préciser. Sinon, il te suffit de la désigner par son nom entre guillemets.

tu dis

A+

Je réponds à ta seconde question :

Citation:

---

Est ce que "Workbooks(NomDuClasseur).Worksheets(NomDeLaFeuille)" est une adresse

---

Tout dépend de ce que tu sous-entends par "adresse".
Ce code te permet de SUPPRIMER la feuille "MaFeuille" du classeur "MonClasseur"

Code:

---

1 2	ActiveWindow.SelectedSheets.Delete

---

Tu mets ce code dans une macro "Sub SupprimerLaFeuille()" que tu peux appeler d'où tu veux en mettant

Code:

---

1 2 3

NomDuClasseur = "MonClasseur" NomDeLaFeuille = "MaFeuille" Workbooks(NomDuClasseur).Worksheets(NomDeLaFeuille).Select

---

A+

le pb c'est que je dois appellerce code en cliquant sur le bouton de commande qui est situé sur ma feuille à supprimer.
Lorqu'il voudra revenir du module au "end sub" de ma feuille, ce dernier étant supprimer il générera une erreur, voila pq j'ai voulu mettre une procédure d'éxécution de retard.

Bonjour,
Si c'est la feuille où se trouve le bouton que tu veux supprimer (par exemple la feuille1.)

Code:

---

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

Sub Test() Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" End Sub   Sub my_Procedure() Sheets("Feuil1").Delete End Sub   Private Sub CommandButton1_Click() Call Test End Sub

---

jpleroisse

d'accord je vais essayer de faire cela dans mon programme merci

Bonsoir!
Heuuu, excuse-moi, Delamarque, mais si je te dis :
"Commandbutton sur feuille Excel",
ça te dit quelquechose?
Je demande, parce qu'il y a une semaine, tu as posé la même question, et tu as eu la même réponse. C'est rigolo. Enfin, rigolo....

excuse moi je ne voulais pas te vexer j'essaie juste de résoudre un pb assez compliqué dans mon programme