Methode pour eviter d'enregistrer une feuille dans un classeur

[Bernard-Louis]

Bonjour a toutes et tous.
Serait il possible d'avoir la solution a mon probleme ?
Je desire que dans un classeur de 10 feuilles, la feuille "echeance" ne puisse jamais etre enregistrer, alors que l'on puisse pour les 10 autres feuilles.
Avec mes remerciements.
Cordialement

 

[SergiO]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Bonjour,

Mets ces 2 codes dans ThisWorkbook, puis enregistre ton fichier.

Quand tu le fermeras une 1ère fois, tu réponds Fin et Non aux questions posées.

Puis ouvres-le à nouveau et teste.

@+

Private Sub Workbook_Open()
    Sheets("Echeance").Copy Before:=Sheets(1)
    Sheets("Echeance (2)").Visible = False
    Sheets("Echeance (2)").Visible = xlVeryHidden
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets("Echeance").Delete
Sheets("Echeance (2)").Visible = True
Sheets("Echeance (2)").Name = "Echeance"
End Sub

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Je te remercie SERGIO, mais il enregistre quand meme les modifs.

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Mille excuses SERGIO, j'ai fait une erreur dans la copie.
Tout fonctionne tres bien.
Merci encore et bon WE
Cordialement

 

[SergiO]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Peux-tu m'envoyer ton fichier?

Mon test a fonctionné !!!

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Merci encore, c'est moi qui a fait une boulette en recopiant la macro.
Merci et bon WE
Cordialement

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Bonjour a toutes et tous.

Si SERGIO est sur le forum, je voudrai faire une modif sur sa macro, a savoir que j'aimerai ajouter une seconde feuille que l'on ne puisse pas enregistrer. Cette feuille s'appelle "groupe".
Comment faut il modifier la macro ?
Merci pour votre aide.
Cordialement

Private Sub Workbook_Open()
Sheets("Echeance").Copy Before:=Sheets(1)
Sheets("Echeance (2)").Visible = False
Sheets("Echeance (2)").Visible = xlVeryHidden
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets("Echeance").Delete
Sheets("Echeance (2)").Visible = True
Sheets("Echeance (2)").Name = "Echeance"
End Sub

 

[SergiO]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Bonjour Bernard-Louis

Voici le code modifié à tester

Private Sub Workbook_Open()
    Sheets("Echeance").Copy Before:=Sheets(1)
    Sheets("Echeance (2)").Visible = False
    Sheets("Echeance (2)").Visible = xlVeryHidden
    Sheets("Groupe").Copy Before:=Sheets(1)
    Sheets("Groupe (2)").Visible = False
    Sheets("Groupe (2)").Visible = xlVeryHidden
End Sub

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Sheets("Echeance").Delete
Sheets("Echeance (2)").Visible = True
Sheets("Echeance (2)").Name = "Echeance"
Sheets("Groupe").Delete
Sheets("Groupe (2)").Visible = True
Sheets("Groupe (2)").Name = "Groupe"
End Sub

@+

 

[dixit]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

bonjour,
j'ai répondu à un sujet similaire tout récemment, sujet encore en cours d'ailleurs. (b_zak n°76069)
que se passe-t-il avec cette méthode de recopie/renomme des feuilles si des formules incluent des noms de plage se référant aux noms de feuille ? je rencontre des problèmes dans ce contexte puisqu'il y a changement de nom de feuille.
merçi pour vos suggestions

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Merci SERGIO,
Par contre avec la macro j'ai un probleme car elle n'efface pas les 2 feuilles copies, j'ai 2 nouveaux onglets :
Date Echeance Groupe (3) et Date Echeance entreprise (2(3)
Merci pour ton aide.

 

[SergiO]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Re,

Il doit y avoir des feuilles en doublons.

Va dans le VBA, regarde la liste des feuilles et dans propriétés modifie l'option VeryHidden en Visible pour les feuilles en double.
Supprime ces feuilles, et suis la procédure de ma première réponse.

@+

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Je te remercie SERGIO,
Tout fonctionne parfaitement.
Une petite question, si je veux modifier des formules definitivement dans ces 2 feuilles, il faut que je desactive les macros avec ' devant chaque ligne ou y a t il une autre solution ?
Merci encore de ton aide
Cordialement

 

[SergiO]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Re,
Essaie en appuyant sur la touche Shift avant d'ouvrir ton fichier.

@+

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Impeccable !!!!
Merci encore et bonne soirée.
Cordialement

 

[Bernard-Louis]

Re : Methode pour eviter d'enregistrer une feuille dans un classeur

Bonjour a toutes et tous.
SERGIO, si tu es sur le forum, j'ai une petite question.

J'ai normalement l'onglet "echeance" en 3 eme position et l'onglet "Groupe " en 6eme position. C'est la suite logique de visualisation des onglets par recherche pour les utilisateurs.
Apres chaque enregistrement, puis reouverture du fichier, ces 2 onglets se placent en position 1 et 2.
Est il possible les faire rester en position 3 et 6 ?
Merci encore et bonne journée.
Cordialement