Nombreuses feuilles "Hidden"

Le 16/09/2020 à 17:56

Bonjour à tous,

je viens de récupérer un répertoire dans lequel figurent 100 fichiers excel. Dans chacun, je dois passer par "visualiser le code" (clic droit sur un onglet) pour remettre en mettre en "visible" une feuille (toujours avec le même nom) masquée "hidden".
Avez-vous une manipulation (code VBA par exemple) qui me permette d'éviter de le faire manuellement ?
Merci à vous.

Le 16/09/2020 à 18:15

Bonjour

Tu devrais joindre au moins un ficher et indiquer si tu veux rendre définitivament visibles les feuille concernées de tous les fichiers du répertoire ou simplement lorsque tu ouvres un fichier...

Bye !

Le 16/09/2020 à 18:35

Je pense qu'elles doivent rester visible. Je vais les compiler dans Power Query. Si elles sont hidden, PowerQuery ne les voit pas. L'onglet caché s'appelle "Base" dans tous les fichiers

3delib18-12.zip (134.70 Ko)

Le 16/09/2020 à 19:14

Bonjour à tous,

Si c'est pour afficher la feuille Base de tous les fichiers d'un dossier ...

Il reste à personnaliser le nom du dossier à traiter ...

Sub OuvertureTousClasseurs()
    'Étape 1: Déclaration des variables
Dim MesFichiers As String

    'Étape 2: Indication du répertoire cible
    MesFichiers = Dir("C:\Temp\*.xlsx")

    Do While MesFichiers <> ""
        'Étape 3: Ouvrez plus de classeurs
        Workbooks.Open "C:\Temp\" & MonClasseur

        'Exécution de certains codes
        Worksheets("Base").Hidden = False

        ActiveWorkbook.Close SaveChanges:=True
        'Étape 4: Le fichier suivant du dossier
        MesFichiers = Dir
    Loop
End Sub

ric

Le 16/09/2020 à 20:59

Bonjour à tous

Une variante.

6nouveau-dossier-compresse.zip (157.71 Ko)

Bye !

Le 17/09/2020 à 08:55

Merci à vous deux, j'essaie ce soir les deux propositions et vous tiens au courant.

Have a good day !