sauvgarde et supprimé tous les feuills sauf 1 et2

[mohama]

est ce que possible de sauvegarder le classeur dans une autre partition;

et Supprimé toute les Anglets (c'est a dire tous les feuils ) sauf la feuil1 et la feuil2.
merci

 

[Macpoy]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

bonsoir le forum, mohama,

une première chose essentielle pour trouver une solution à votre problème.

Lien supprimé

deuxièmement vous avez peut être une réponse ici :

https://www.excel-downloads.com/thr...ur-et-supprimes-tous-les-feuills-sauf.141393/

sous entendus, il n'est point nécessaire de multiplier les fils de conversation pour un même problème.

je regarde ce que je peu faire
@plus

 

[mohama]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Bonsoir Macpoy

j'ai lus la charte @+Thierry et je m'excuse. j'ai crus ....................

 

[Macpoy]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Re,

voici un classeur exemple, ik est pas parfait, mais c'est un début.

 

[job75]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Salut macpoy 🙂

Bon on ne va pas laisser tomber mohama qui est nouveau (presque).

Alors, bien que la question soit bien imprécise, cette macro :

Sub supp()
Dim n, x
ThisWorkbook.SaveAs ThisWorkbook.Path & "\TOTO.xls" 'à adapter
Application.DisplayAlerts = False
For n = Sheets.Count To 1 Step -1
  x = Val(Replace(Sheets(n).CodeName, "Feuil", ""))
  If x > 2 Then Sheets(n).Delete
Next n
End Sub

J'ai supposé que les numéros 1 et 2 correspondent aux CodeName des feuilles.

Edit : je n'avais pas rafraîchi et donc vu votre proposition

A+

 

[job75]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Salut C-C 🙂

job 🙄 et le

Application.DisplayAlerts = True

😕😉

Il n'est pas indispensable.

A+

 

[Staple1600]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Bonsoir à tous

Supprimé toute les Anglets

😛

Excel ne fait pas dans le génocide (même en VBA)

God save the Queen

edition: bonsoir Macpoy, bonsoir le gars aux ailerons 😉

 

[Macpoy]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Re,

Excel lent !!!!

Citation:
Envoyé par mohama
Supprimé toute les Anglets

😛

God save the Queen !!!

lol mdr et tout le tralala !!

@plus

 

[mohama]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

salut job75 ; Bonsoir Macpoy
c'est ça que je cherche avec Mais
c'est pas tellement efficace.

MERCI QUAND MÊME (excusé mon Français)

 

[Staple1600]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Re

Mohama:
Where you come from ?

Bravo de faire l'effort d'écrire en français surtout si ce n'est pas ta langue maternelle.

 

[mohama]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

salut job75 ; Bonsoir Macpoy
c'est ça que je cherche avec Mais
c'est pas tellement efficace.

MERCI QUAND MÊME (excusé mon Français)

je dit bien supprime toute les feuilles Sauf ........

 

[mohama]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Staple1600 Bonsoir,
Ou tu trouve le savoir c'est ta langue Aide moi a le

 

[Staple1600]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Re


Une autre façon de voir le problème
(à peaufiner)

Sub test()
Dim svg As Workbook
Set svg = Workbooks.Add(xlWorksheet)
svg.Sheets(1).Name = "T_em_p"
With ThisWorkbook
    .Sheets(Array("Feuil1", "Feuil2")).Move Before:=svg.Sheets(1)
    Application.DisplayAlerts = False
    svg.Sheets("T_em_p").Delete
    svg.SaveAs "c:\temp\toto.xls"
    .Close False
End With
End Sub

 

[mohama]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Tous simplement j'ai un classeur de 2 feuilles principale qui fond les calcules et avec un macro j'ajoute une feuille pour les résultat et je l'imprime et j'ai pas besoin.
Au Fermeture du classeur
je veux garder tous le classeur dans une autre partition et je supprime la feuille que j'ai crée.
Cordialement, MERCI QUAND MÊME

 

[Staple1600]

Re : sauvgarde et supprimé tous les feuills sauf 1 et2

Re


Pourquoi ne pas joindre un fichier exemple ?

Cela sera plus simple pour t'aider facilement ...