Masquer les onglets avant le chargement d'un dossier Excel
Résolu
lecrol
Messages postés
224
Date d'inscription
Statut
Membre
Dernière intervention
-
lecrol Messages postés 224 Date d'inscription Statut Membre Dernière intervention -
lecrol Messages postés 224 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Sur un dossier excel, je voudrais masquer les onglets mais avant le chargement du dossier, ou du moins son premier affichage. Avec ce que j'ai fait (une procédure VBA à l'Open du dossier) les onglets apparaissent quelques secondes avant de s'effacer.
Comment les masquer avant le chargement, et donc l'ouverture, du dossier ?
D'avance un grand merci
Roland
Sur un dossier excel, je voudrais masquer les onglets mais avant le chargement du dossier, ou du moins son premier affichage. Avec ce que j'ai fait (une procédure VBA à l'Open du dossier) les onglets apparaissent quelques secondes avant de s'effacer.
Comment les masquer avant le chargement, et donc l'ouverture, du dossier ?
D'avance un grand merci
Roland
A voir également:
- Masquer les onglets avant le chargement d'un dossier Excel
- Dossier appdata - Guide
- Trier un tableau excel - Guide
- Liste déroulante excel - Guide
- Restaurer les onglets chrome - Guide
- Word et excel gratuit - Guide
4 réponses
bonjour
Voila une macro qui cache toutes les feuil sauf 1
Sub CacheFeuil()
Application.ScreenUpdating = False
Feuille = F04.Name ' F04 = au Code name de la feuille
F04.Visible = -1
For Each Feuil In Worksheets
If Feuil.Name <> Feuille Then
Feuil.Visible = 2
End If
Next
Application.ScreenUpdating = True
End Sub
et decache
Sub Debloque()
For Each Feuil In Worksheets
Feuil.Visible = -1
Next
End Sub
A+
Maurice
Voila une macro qui cache toutes les feuil sauf 1
Sub CacheFeuil()
Application.ScreenUpdating = False
Feuille = F04.Name ' F04 = au Code name de la feuille
F04.Visible = -1
For Each Feuil In Worksheets
If Feuil.Name <> Feuille Then
Feuil.Visible = 2
End If
Next
Application.ScreenUpdating = True
End Sub
et decache
Sub Debloque()
For Each Feuil In Worksheets
Feuil.Visible = -1
Next
End Sub
A+
Maurice