VBA Afficher masquer un fichier

[MJ13]

Bonjour à tous

Je cherche à afficher la liste de mes claseurs masqués en VBA.

Pour masquer, c'est l'enregistreur qui m'a donné ce code pour masquer le classeur actif:

Sub Masque()
    ActiveWindow.Visible = False
End Sub

Mais quel code doit-on mettre pour avoir la liste des fichiers masqués ? (comme quand on clique sur l'icône Afficher).

Merci d'avance 🙂.

 

[Pierrot93]

Re : VBA Afficher masquer un fichier

Bonjour Michel🙂

peut être comme ceci, si j'ai bien compris :

Dim w As Window
For Each w In Windows
    If Not w.Visible Then MsgBox w.Caption
Next w

bon après midi
@+

 

[Papou-net]

Re : VBA Afficher masquer un fichier

Bonjour Michel, Pierrot, le Forum,

Apparemment, l'exemple de Pierrot affiche le classeur actif.

Je proposerais plutôt :

For Each wb In Workbooks
  If Not wb Is ActiveWorkbook Then MsgBox wb.Name
Next

qui affiche les classeurs inactifs.

Cordialement.

Edit : Oups, j'ai dit une bêtise. Ca m'étonnait aussi de la part de Pierrot (c'est pourquoi j'avais bien dit "apparemment").
J'annule.

 

[Pierrot93]

Re : VBA Afficher masquer un fichier

Re, bonjour Papou

Apparemment, l'exemple de Pierrot affiche le classeur actif.

euh... bah non... enfin pas chez moi sous 2003 me renvoie bien le nom de mon classeur perso qui est masqué...

 

[MJ13]

Re : VBA Afficher masquer un fichier

Bonjour Pierrot, Papou

Merci pour vos réponses mais qui ne sont pas tout à fait ce que je veux faire. Je suis en train de refaire mon planning pour l'année prochaine qui devenait un peu chargé (trop de macros 😱). Et je voudrais remplacer mes anciennes macros XL4 que j'avais.

Voici mes codes pour masquer et afficher un classeur , mais en VBA, ce n'a pas l'air si simple 😕. Voici aussi l'image de la fenètre afficher:

[TABLE="width: 1167"]
[TR]
[TD]Masquer_m[/TD]
[/TR]
[TR]
[TD]=MASQUER()[/TD]
[/TR]
[TR]
[TD]=RETOUR()[/TD]
[/TR]
[TR]
[TD]Afficher_M[/TD]
[/TR]
[TR]
[TD]=AFFICHER?()[/TD]
[/TR]
[TR]
[TD]=RETOUR()[/TD]
[/TR]
[/TABLE]

Si cela vous parle 🙂.

 

[Pierrot93]

Re : VBA Afficher masquer un fichier

Re,

pas tout compris et connais pas les macros xl4..; mais pour afficher un classeur masqué :

Windows("Perso.xls").Visible = True

pour le masquer :

Windows("Perso.xls").Visible = False

 

[MJ13]

Re : VBA Afficher masquer un fichier

Re

Merci Pierrot 🙂.

Je pense que j'ai trouvé une piste:

Application.CommandBars.FindControl(ID:=866).Execute

Bonne Fêtes de fin d'année 🙂.

En espérant que 2013 sera plus calme sur XLD que la fin 2012 😱.

 

[Pierrot93]

Re : VBA Afficher masquer un fichier

Re,

bonnes fêtes de fin d'année à toi également et à Papou et aux autres....

 

[Pierrot93]

Re : VBA Afficher masquer un fichier

Re,

aarf..; oublié de te dire, tu as aussi la méthode "ExecuteExcel4Macro" pour lancer une macro excel4... A voir... 🙂

 

[MJ13]

Re : VBA Afficher masquer un fichier

Re

aarf..; oublié de te dire, tu as aussi la méthode "ExecuteExcel4Macro" pour lancer une macro excel4... A voir... :)

Ah, merci Pierrot, c'est super 🙂🙂🙂.

ExecuteExcel4Macro ("unhide?()")