Discussion :

[delamarque]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[delamarque]

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

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

[ouskel'n'or]

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+

[ouskel'n'or]

Je réponds à ta seconde question :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[delamarque]

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.

[leroissejp]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[delamarque]

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

[Megaxel]

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....

[delamarque]

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