suppression de "feuil1" à l'ouverture d'excel

  • Initiateur de la discussion Initiateur de la discussion esftel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

esftel

XLDnaute Occasionnel
Bonjour,

Je fais appel au VBAiste, est il possible, par une macro, de supprimer une feuille de calcul dès l'ouverture d'un fichier Excel.

J'ai créer une macro commande qui supprime la feuil1, cependant je souhaiterais que cette macro s'exécute dès l'ouverture du classeur.

Merci de votre réponse.

Cordialement,
 
Re : suppression de "feuil1" à l'ouverture d'excel

Bonsoir



Il faut mettre ton code

Private Sub WorkBook_Open()
dans ThsiWorkBook

Clic-doit sur une feuille du classeur --> [Visualiser le code]

Et choisir ThisWorkBook

PS: Il faut qu'il y ait au moins toujours une feuille par classeur
 
Dernière édition:
Re : suppression de "feuil1" à l'ouverture d'excel

salut stample1600,

merci pour ta réponse, comme tu me l'a indiqué j'ai bien mi mon code dans
thisWorkBook, mais lorsque j'ouvre le fichier rien ne se passe.

ha, j'ai en effet plus d'une feuille dans mon classeur.

Je n'ai pas de suppression de la feuil1.
Ci-dessous mon code (Via une macro commande)

Sub Supprfeuil1()
'
' Supprfeuil1 Macro
'
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
End Sub



PS : je ne suis pas trop VBA et donc je ne suis pas sur que ce code soit correcte.

Encore merci de ta réponse.
 
Re : suppression de "feuil1" à l'ouverture d'excel

OUPS désolé cela fonctionne bien, j'ai juste oublie de mettre
Private Sub WorkBook_Open()

cependant, j'ai une deuxième question, peut on validé automatiquement la suppression de la feuille.

Merci de ta réponse.

esftel
 
Re : suppression de "feuil1" à l'ouverture d'excel

Re



Il faut rajouter
Code:
 Private Sub WorkBook_Open()
Application.DisplayAlerts=False
Sheets("Feuil1").Delete
End Sub
Mais tu auras un problème quand tu ouvriras le classeur une seconde fois
Car il n'ya aura plus de Feuil1
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
300
Réponses
3
Affichages
209
Retour