XL 2016 Supprimer feuilles dans même classeur

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Avril 2020

• #2

Bonjour Dam,
A quoi sert tout ce travail si à la fin on ferme le programme sans sauvegarder celui-ci ? 🙂

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 18 Avril 2020

• #3

Bonjour Dam, Sylvanu

Effectivement beaucoup de travail pour rien

Une piste : désactiver l'enregistrement automatique et fermer le classeur 😉

 

Vote positif 0 Vote négatif

D

Dam1904

XLDnaute Nouveau

• 19 Avril 2020

• #4

Bonjour,
Ce prg va servir pour faire des relevés différents à chaque ouverture du fichier.
J'ai inclus une sauvegarde en PDF à la fin de l'encodage, ce fichier se compose de deux feuilles au démarrage et il doit rester ainsi à chaque utilisation.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 19 Avril 2020

• #5

Bonjour
Je peine également à comprendre tout ce tsoin tsoin.
Un classeur modèle sert à cela

 

Vote positif 0 Vote négatif

D

Dam1904

XLDnaute Nouveau

• 19 Avril 2020

• #6

Je sais que ça existe mais ne sais comment faire

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 19 Avril 2020

• #7

Je sais que ça existe mais ne sais comment faire

Cliquez pour agrandir...

En frappant par exemple "classeur excel modèle" dans n'importe quel moteur de recherche
--->>

Enregistrer un classeur en tant que modèle - Support Microsoft

Si vous utilisez souvent la même disposition ou les mêmes données dans un classeur, enregistrez-le en tant que modèle afin de pouvoir utiliser le modèle pour créer d’autres classeurs au lieu de partir de zéro.

support.office.com

 

Vote positif 0 Vote négatif

D

Dam1904

XLDnaute Nouveau

• 19 Avril 2020

• #8

En fait, je n'y avait pas pensé
Je vais regarder à ça.
Un grand merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Avril 2020

• #9

Bonjour le fil

Une façon de faire ce que demande le message#1

VB:

Sub RAZ()
Dim ws As Worksheet, fs
fs = Array("1", "Quantité")
Application.DisplayAlerts = False
For Each ws In Worksheets
If IsError(Application.Match(ws.Name, fs, 0)) Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Test OK sur un classeur sans feuilles protégées
Dam1904, je te laisse donc faire les adaptations idoines pour utilisation avec des feuilles protégées.

 

Vote positif 0 Vote négatif

D

Dam1904

XLDnaute Nouveau

• 20 Avril 2020

• #10

Bonjour à tous,

Exactement ce que je souhaite, nickel.
Un grand merci.

 

Vote positif 0 Vote négatif