suppression de toutes les feuilles à la fermeture

[toubib]

bonjour à tous,

je souhaiterais savoir comment faire pour supprimer toutes les feuilles d'un classeur hormi une et ce à la fermeture du fichier?

merci

 

[Robert]

Bonjour Toubib, bonjour le forum,

Cette macro événementielle à placer dans le composant ThisWorkbook de VBE. Penses à modifier le nom de la feuille à garder :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'à la fermeture du classeur
Dim Ws As Worksheet 'déclare la variable Ws
Application.DisplayAlerts = False
For Each Ws In Sheets
'remplace 'Feuil1' par le nom de la feuille qui doit rester
If Not Ws.Name = 'Feuil1' Then Ws.Delete
Next Ws
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 

[2passage]

Re:suppression de toutes les feuilles à la fermetu

Bonjour,

A priori, dans le module de classe thisworkbook, sous l'evenement beforeclose, il suffit de mettre une procédure du type

For each Feuille in ZeClasseur
if Feuille.name <> 'celle que je garde' then feuille.delete
next

ouala
A+

edit : han ! voila.. on traverse sans regarder et on se retrouve sous un Robert :sick: ...

Message édité par: 2passage, à: 30/08/2005 16:54

 

[toubib]

merci beaucoup!!!
bonne journée à tous

 

[toubib]

arf j'ai parlé trop vite il me dit erreur d'exécution 13 incompatibilité de type?????

 

[Robert]

Bonjour le fil, bonjour le forum,

Toubib, s'il te plaît, fait un copier/coller de ton code et indique-nous la ligne surlignée de jaune quand ça plante. Je me demande si quand tu as modifié le nom de l'onglet tu n'aurais pas supprimé les guillemets... Mais ce n'est qu'une supposition.

 

[toubib]

voila le code et la igne surlignée

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'à la fermeture du classeur
Dim Ws As Worksheets 'déclare la variable Ws
Application.DisplayAlerts = False
For Each Ws In Sheets
'remplace 'Feuil1' par le nom de la feuille qui doit rester
If Not Ws.Name = 'données' Then Ws.Delete
Next Ws
ActiveWorkbook.Save
Application.DisplayAlerts = True

End Sub

Message édité par: toubib, à: 31/08/2005 12:23

 

[Robert]

Bonjour le fil, bonjour le forum,

La vérité est ailleurs... l'erreur vient de :
Dim Ws As Worksheets 'déclare la variable Ws
il y a un s en trop, le bon code est :

Dim Ws As Worksheet 'déclare la variable Ws

 

[toubib]

la vérité est vraiment ailleurs parce que même sans le s ca ne marche pas et ca bloque toujours au même endroit, c'est moi qui avait rajouté le s au cas où ca changerait qqchose mais non et j'ai oublié de l'enlever c'est pour ça

enfin ca marche pas, pourquoi tant de haine? :angry:

 

[Robert]

Bonjour le fil, bonjour le forum,


Comprends pas ! Chez moi ça marche ???

 

[didier09]

Bonsoir forum,
ça marche aussi chez moi..
et en plus cela m'a permis aprés une petite adaptation de résoudre mon problème concernant l'activation ou pas des macros à l'ouverture d'un classeur :
([url]http://www.excel-downloads.com/forums/2-68316-activer-les-macros.htm#69136)[/url]
je joins donc mon fichier, cela peut servir à quelqu'un ????
Encore merci à tous
Didier

 

[didier09]

Ah...Voilà le fichier... j'espère...
didier

 

[didier09]

Cette fois sans espace, désolé
[file name=activermacro.zip size=12150]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/activermacro.zip[/file]

 

[toubib]

Bonjour à tous,

est ce que le problème ne vient pas du fait que mes feuilles ont des noms c'est à dire qu'elles ne s'appellent pas feuil1 feuil2 mais données, ...???

 

[DIDIER09]

Bonjour,
il faut que le mon de ta feuille soit exactement le même( majuscule, accent) et en principe cela doit marcher. envoie ton fichier tel quel pour que je puisse l'essayer sur mon pc pour vérifier l'erreur
A+