je viens vous voir car j'ai un problème sur un ThisWorkbook.
Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le
reste invisible.
Qu'est ce qui cloche dans mon code? Merci. YANN
Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next
Sheets(1).Visible = True
Sheets(5).Visible = True
For I = 2 To 4
Next
For I = 6 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour enléve déja le On Error Resume Next, çà te permettra de voir ou est l'erreur
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "YANN24" a écrit dans le message de news:
Salut,
je viens vous voir car j'ai un problème sur un ThisWorkbook. Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le reste invisible. Qu'est ce qui cloche dans mon code? Merci. YANN Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next Sheets(1).Visible = True Sheets(5).Visible = True For I = 2 To 4 Next For I = 6 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
bonjour
enléve déja le On Error Resume Next, çà te permettra de voir ou est l'erreur
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:9A10C1A0-B8E4-4734-9CD2-ED73E8571D2F@microsoft.com...
Salut,
je viens vous voir car j'ai un problème sur un ThisWorkbook.
Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le
reste invisible.
Qu'est ce qui cloche dans mon code? Merci. YANN
Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next
Sheets(1).Visible = True
Sheets(5).Visible = True
For I = 2 To 4
Next
For I = 6 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
bonjour enléve déja le On Error Resume Next, çà te permettra de voir ou est l'erreur
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "YANN24" a écrit dans le message de news:
Salut,
je viens vous voir car j'ai un problème sur un ThisWorkbook. Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le reste invisible. Qu'est ce qui cloche dans mon code? Merci. YANN Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next Sheets(1).Visible = True Sheets(5).Visible = True For I = 2 To 4 Next For I = 6 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
Re, j'ai enlevé le On error resume next Quand je veux quitter, il bug sur :
'Sheets(I).Visible = xlSheetVeryHidden
Pourquoi? Merci de ton aide. YANN
YANN24
C'est bon, ça fonctionne, c'était à cause de mon classeur protégé. Merci. YANN
bonjour enléve déja le On Error Resume Next, çà te permettra de voir ou est l'erreur
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "YANN24" a écrit dans le message de news:
Salut,
je viens vous voir car j'ai un problème sur un ThisWorkbook. Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le reste invisible. Qu'est ce qui cloche dans mon code? Merci. YANN Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next Sheets(1).Visible = True Sheets(5).Visible = True For I = 2 To 4 Next For I = 6 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
C'est bon, ça fonctionne, c'était à cause de mon classeur protégé.
Merci.
YANN
bonjour
enléve déja le On Error Resume Next, çà te permettra de voir ou est l'erreur
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:9A10C1A0-B8E4-4734-9CD2-ED73E8571D2F@microsoft.com...
Salut,
je viens vous voir car j'ai un problème sur un ThisWorkbook.
Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le
reste invisible.
Qu'est ce qui cloche dans mon code? Merci. YANN
Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next
Sheets(1).Visible = True
Sheets(5).Visible = True
For I = 2 To 4
Next
For I = 6 To ThisWorkbook.Sheets.Count
Sheets(I).Visible = xlSheetVeryHidden
Next
ThisWorkbook.IsAddin = True
C'est bon, ça fonctionne, c'était à cause de mon classeur protégé. Merci. YANN
bonjour enléve déja le On Error Resume Next, çà te permettra de voir ou est l'erreur
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/ Excel http://www.excelabo.net Site perso http://access.cfi.free.fr "YANN24" a écrit dans le message de news:
Salut,
je viens vous voir car j'ai un problème sur un ThisWorkbook. Je voudrais, qu'à la fermleture, seule la feuille 5 soit visible, et le reste invisible. Qu'est ce qui cloche dans mon code? Merci. YANN Pour l'instant, j'ai ça :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
AfficheBOutils
On Error Resume Next Sheets(1).Visible = True Sheets(5).Visible = True For I = 2 To 4 Next For I = 6 To ThisWorkbook.Sheets.Count Sheets(I).Visible = xlSheetVeryHidden Next ThisWorkbook.IsAddin = True
