For each

Pierrot93

XLDnaute Barbatruc

• 16 Septembre 2010

• #2

Re : For each

Bonjour,

essaye peut être ainsi :

Code:

Sheets("Base").Visible = xlSheetHidden

devrait masquer la feuille...

bon après midi
@+

 

Vote positif 0 Vote négatif

R

robyostar

Guest

• 16 Septembre 2010

• #3

Re : For each

Code:

If wbk.Name <> ThisWorkbook.Name Then
                   wbk.Sheets("Base").Visible = False
                      Application.DisplayAlerts = false
                    wbk.Close true
                    Application.DisplayAlerts = true
                End If

 

Vote positif 0 Vote négatif

P

Pascalbar

Guest

• 16 Septembre 2010

• #4

Re : For each

J'ai fais cela

Code:

Application.DisplayAlerts = False
    Dim wbk                        As Workbook
    

        For Each wbk In Workbooks
           
                If wbk.Name <> ThisWorkbook.Name Then
                    Sheets("Base").Visible = xlSheetHidden
                    wbk.Close
                End If

        Next wbk

Mais cela ne fonctionne pas. Le classeur qui n'est pas ThisWorkbook.Name se ferme bien mais lors de la réouverture la feuille est affichée???

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Septembre 2010

• #5

Re : For each

Re,

modifie ainsi :

Code:

Sheets("Base").Visible = xlSheetHidden
                    wbk.Close True

"True" pour enregistrement des modifications dans wbk...
@+

 

Vote positif 0 Vote négatif

R

robyostar

Guest

• 16 Septembre 2010

• #6

Re : For each

il suffit ke tu mette le wbk.Sheets("Base").Visible = false

 

Vote positif 0 Vote négatif

P

Pascalbar

Guest

• 16 Septembre 2010

• #7

Re : For each

C'est bon avec le True en plus cela fonctionne mais c'est long,enfin ce n'est pas instantanné
Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Septembre 2010

• #8

Re : For each

Re,

comme c'est un enregistrement, cela est dépendant de la taille du fichier en question....

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 16 Septembre 2010

• #9

Re : For each

Bonjour Pascalbar, aux participants, et à ceux qui passeront par ici,

Tu as seulement oublié d'écrire:

Code:

vbk.save

Si j'ai bien tout lu.

Amicalement.

Yann

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 16 Septembre 2010

• #10

Re : For each

Désolé Pierrot!

Je n'avais effectivement pas tout lu. 🙁

Amicalement.

Yann

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Septembre 2010

• #11

Re : For each

Re,
bonjour yann🙂, pas de problème...🙄

 

Vote positif 0 Vote négatif