afficher les feuilles masquée par module

[flo_h]

Bonjour,

j'ai masqué des feuilles dans un classeur excel de la façon suivante:

dans le thisworkbook

Private Sub Workbook_Activate()

Sheets('Feuil1').Visible = False
Sheets('Feuil2').Visible = False
Sheets('Feuil3').Visible = False
Sheets('Feuil4').Visible = False
Sheets('Feuil5').Visible = False

End Sub

je suis en train d'écrire un module vba dans access qui va ouvrir le fichier
excel et rendre visible toutes les feuilles.
Le but étant d'avoir au final un classeur qui ne contient que des feuilles visibles.

J'ai écrit cette petite procédure.
Ce qu'il me manque c'est dire comment ouvrir le classeur et le sauvegarder le classeur avec les feuilles visibles.
Et puis comment libérer les ressources

Sub ToutAfficher(wb As Excel.Workbook)

Dim ws As Worksheet
For Each ws In wb.Worksheets
ws.Visible = True
Next
End Sub


Merci à tous

 

[Creepy]

Hello le Forum, Flo,


En faites tu demandes une macro access et non excel.

le code ci-joint devrait répondre à ta question. Attention il faut activer dans Outils > Référence, la référence Microsoft Excel sinon ca ne marche pas.

Sub test()

Dim AppXl As New Excel.Application ' Declaration de la variable en Excel
Dim DocXl As New Excel.Workbook ' Declaration de la variable en workbook

Set DocXl = AppXl.Workbooks.Open('C:\\Dada.xls') ' Ouverture du fichier excel

AppXl.Visible = True ' Affichage de Excel(sinon reste en arriere plan)
'le code à inserer ici

DocXl.SaveAs Filename:='C:\\Toto' ' Sauvegarde le doc sous un autre nom
AppXl.Quit ' Quit Excel

Set AppXl = Nothing ' Libère les ressources
Set DocXl = Nothing
End Sub

@+

Creepy

 

[flo_h]

Merci pour ta réponse creeppy

oui c'est exactement ce qu'il me fallait, je suis en train d'effectuer pas mal de modifs pour integrer ça et le faire fonctionner. J'espère que ça marchera, je te tiens au courant...

@+

 

[flo_h]

Creepy,

J'ai un gros souci:

en fait ça marche trsè bien lorsque je masque mes feuilles manuellement (menu format/feuille/masqué)

par contre comme j'ai masqué les feuilles de mes fichiers de cette façon:

dans le thisworkbook

Private Sub Workbook_Activate()

Sheets('Feuil1').Visible = False
Sheets('Feuil2').Visible = False
Sheets('Feuil3').Visible = False
Sheets('Feuil4').Visible = False
Sheets('Feuil5').Visible = False

End Sub

cela pose pb...

Comment faire pour rendre les feuilles visibles avec cela ????

j'ai énormément chercher et je crois que cela n'est pas possible.

aurais-tu une idée ?

 

[Luc72]

bonjour flo_h
essai ceci

dans le thisworkbook

Private Sub Workbook_Deactivate()

Sheets('Feuil1').Visible = True
Sheets('Feuil2').Visible = True
Sheets('Feuil3').Visible = True
Sheets('Feuil4').Visible = True
Sheets('Feuil5').Visible = True

End Sub