For each

[Pascalbar]

Bonjour,
Quelqu'un pourrait m'expliquer pourquoi cette procédure ne fonctionne pas

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

Le wbk.close fonctionne, mais pas le Sheets("Base").Visible = False

Merci

 

[Pierrot93]

Re : For each

Bonjour,

essaye peut être ainsi :

Sheets("Base").Visible = xlSheetHidden

devrait masquer la feuille...

bon après midi
@+

 

[robyostar]

Re : For each

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

 

[Pascalbar]

Re : For each

J'ai fais cela

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???

 

[Pierrot93]

Re : For each

Re,

modifie ainsi :

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

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

 

[robyostar]

Re : For each

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

 

[Pascalbar]

Re : For each

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

 

[Pierrot93]

Re : For each

Re,

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

 

[YANN-56]

Re : For each

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

Tu as seulement oublié d'écrire:

vbk.save

Si j'ai bien tout lu.

Amicalement.

Yann

 

[YANN-56]

Re : For each

Désolé Pierrot!

Je n'avais effectivement pas tout lu.

Amicalement.

Yann

 

[Pierrot93]

Re : For each

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