Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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,
 

Staple1600

XLDnaute Barbatruc
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:

esftel

XLDnaute Occasionnel
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.
 

esftel

XLDnaute Occasionnel
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
 

Staple1600

XLDnaute Barbatruc
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:

Discussions similaires

T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
427
Themax
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…