Methode pour eviter d'enregistrer une feuille dans un classeur

SergiO

XLDnaute Accro

• 25 Mai 2007

• #2

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.

@+

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 25 Mai 2007

• #3

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

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 25 Mai 2007

• #4

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 25 Mai 2007

• #5

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

Peux-tu m'envoyer ton fichier?

Mon test a fonctionné !!!

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 25 Mai 2007

• #6

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 29 Mai 2007

• #7

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 29 Mai 2007

• #8

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

Bonjour Bernard-Louis

Voici le code modifié à tester

Code:

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

Code:

 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

@+

 

Dernière édition: 29 Mai 2007

Vote positif 0 Vote négatif

D

dixit

XLDnaute Impliqué

• 29 Mai 2007

• #9

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 29 Mai 2007

• #10

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.

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 29 Mai 2007

• #11

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.

@+

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 29 Mai 2007

• #12

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

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 29 Mai 2007

• #13

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

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

@+

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 29 Mai 2007

• #14

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

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

 

Vote positif 0 Vote négatif

B

Bernard-Louis

XLDnaute Occasionnel

• 30 Mai 2007

• #15

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

 

Vote positif 0 Vote négatif