Bonjour à tous,
je cherche a cacher les feuilles "matrice" et "vierge" pour qu'elles ne fassent pas parti du bilan.. voici le code :
Sub bilan(control As IRibbonControl)
'Ici je déclare mes variables Dim wk1 As Workbook Dim wk2 As Workbook Dim sh As Worksheet Dim Nom_Feuille As String Dim total As String Dim hzc As String Dim trpen As String Dim nuit As String Dim rep As String Dim ClasseurPath As String Dim l As Integer
Set wk1 = ThisWorkbook l = 4 'ouverture du classeur Set wk2 = Workbooks.Open(ClasseurPath)
For Each sh In wk1.Worksheets
Nom_Feuille = sh.Name ' c'est ici que je cherche a cacher les feuilles... mais ça ne fonctionne pas, il me les affiche quand même dans le bilan... Select Case UCase(sh.Name) Case "MATRICE", "VIERGE" Case Else End Select
'Copie des noms des feuilles dans une colonne wk2.Sheets(1).Cells(l, 1).Value = Nom_Feuille 'copie des nombres totales d'heure de chantiers total = sh.Range("CW18").Value wk2.Sheets(1).Cells(l, 2).Value = total 'copie des nombres totales d'heures en ZC hzc = sh.Range("CW21").Value wk2.Sheets(1).Cells(l, 3).Value = hzc 'copie des nombres totales de travaux pénibles trpen = sh.Range("CW23").Value wk2.Sheets(1).Cells(l, 4).Value = trpen 'copie des nombres totales d'heure de nuits nuit = sh.Range("CW25").Value wk2.Sheets(1).Cells(l, 5).Value = nuit l = l + 1 Next
'Fermeture du second classeur 'wk2.Close
End Sub
Merci pour vos réponses...
A bientôt
Christian
--
A voir également:
Comment cacher des feuilles lors de la création d'un bilan
Je n'ai pas du comprendre son fonctionnement alors..., si tu te souviens, c'est un code que j'ai eu lors de la création de l'USF To_PDF, afin que les feuilles "MATRICE" et "VIERGE" n'apparaisse pas dans la ListBox...
Je vois bien l'exemple que tu m'as fourni, mais il n'est pas assez clair dans ma pauvre tête, lol
Je vais voir avec mon ami google, il va bien me dire quelque chose...lol.
Bonne journée
Christian
--
Vous n’avez pas trouvé la réponse que vous recherchez ?
For Each sh In wk1.Worksheets If sh.Name <> "MATRICE" And sh.Name <> "VIERGE" Then 'ton code Else sh.Visible = xlSheetHidden ' ou xlSheetVeryHidden End If Next
Bon...deux choses. ..
1 - le fait de masqer une feuille n'empêchera pas ta macro de la mettre dans ton rapport...
2 - ....relis toi...penses tu qu'une feuille puisse avoir DEUX noms en même temps (AND)
S'il ne veut pas les masquer, il n'a qu'à ne rien faire.
J'ai lu ceci qui m'a peut-être mis sur la mauvaise piste
' c'est ici que je cherche a cacher les feuilles...
Pour le <> AND <>, je ne vois pas le problème.
Ça empêche de considérer ces deux feuilles dans son traitement. C'est ça qu'il veut, il me semble...
Oupsss... je n'avais pas vu les <> .... je ne sais pas pourquoi mais sur le coup j'ai cru voir des =
....donc oui ton IF est bon.... tout comme son select case... le truc c'est qu'il doit plcer correctement son code....