Discussion :

[TonyRc]

Bonjour a tous,

Meilleurs voeux pour cette nouvelle annee.

Explication du probleme:

Dans un fichier excel, je creer a l'ouverture une feuille "Pivot". Elle est base sur une base dont les donnes sont continuellement en movement. Par consequent, la source est perpetuelle movement.

Pour palier a ceci, je supprime cette feuille "Pivot" a la fermeture du fichier excel avec le code suivant :

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call close_workbook
End Sub

Code :

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

1
2
3
4
5
6
7
8
Sub close_workbook()
 
Sheets("Pivot_WP").Select
ActiveSheet.Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
 
End Sub

A chaque fois, j'obtiens une boite de dialogue qui me demande de supprimer la feuille ou non.

1) Comment supprimer cette boite de dialogue? (J'ai essaye Displayalerts et dialogs mais ceci n'a pas fonctionne)

Ensuite, le code s'execute deux fois me donnant une erreur a la fermeture.

2) Comment faire en sorte que le code supprime cette page definitivement sans au'il s'execute deux fois? (Aucun autre code est ecrit pour la fermeture de ce fichier, c'est le seul et l'unique)

Bien cordialement,

TonyRc

[Maxence HUBICHE]

déjà, pour éviter que ton code ne s'exécute deux fois, évites d'utiliser le

Code :

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

Activeworkbook.close

Tu es DEJA en cours de fermeture

Ensuite, de mon côté, avec un code semblable à celui ci-dessous, ca fonctionne sans boîte de dialogue

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Displayalerts = False
Sheets("Pivot_WP").Delete
Application.Displayalerts = True
End Sub

[TonyRc]

Merci! Effectivement, "Activeworkbook.close" etait de trop

Le reste fonctionne parfaitement!