For Each feuil in Worksheet..... quelquechosemais pour cela il faurait, je pense que le bilan se trouve dans le classeur en cours (la sources)... si bien-sûre j'ai bien compris le fonctionnement). Mais en le mettant exterieur à RapHebdo, je peux le réutiliser...
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
MsgBox sh.Name
Next
mon poste demande juste une pisteBen.. comme tu le dis.. avec une boucle for each....
[...]
Je cherche comment récupérer le nom des feuilles de RapHebdo dans une colonne d'un autre fichier avec leur total d'heure associées par intervenants..
Sub manipulerAutreClasseur() Dim wk1 As Workbook Dim wk2 As Workbook Dim sh As Worksheet Dim Nom_Feuille As String Dim ClasseurPath As String ClasseurPath = "c:\TEMP\test.xlsx" Dim l As Integer l = 1 Set wk1 = ThisWorkbook 'ouverture du classeur Set wk2 = Workbooks.Open(ClasseurPath) For Each sh In wk2.Worksheets Nom_Feuille = sh.Name 'Copie des noms des feuilles dans une colonne wk1.Sheets(1).Cells(l, 1).Value = Nom_Feuille l = l + 1 Next 'Fermeture du second classeur wk2.Close End Sub
As tu été voir la solution posté pour ma progressBar ?Oui... et même si ça fonctionne... ce n'est surement pas LA solution à utiliser....
Dim rep As String
rep = Environ("USERPROFILE") & ""
Dim ClasseurPath As String
ClasseurPath = ClasseurPath = rep & "\Documents\POINTAGES\bilanHebdo.xlsm"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJ'ai pour le moment commenté la fermetture du wk2 pour voir ce qu'il se passait dedans avec le code que tu m'a fourni, juste pour renvoyé le nom d'une feuille de raphebdo vers bilanHebdo... ba il ne me le renvoi pas...Et que se passe t' il ?
Dim rep As String rep = Environ("USERPROFILE") & "" Dim ClasseurPath As String ' Tu as une erreur sur cette ligne : 'ClasseurPath = ClasseurPath = rep & "\Documents\POINTAGES\bilanHebdo.xlsm" ClasseurPath = rep & "\Documents\POINTAGES\bilanHebdo.xlsm"
Dim wk1 As Workbook Dim wk2 As Workbook Dim sh As Worksheet Dim Nom_Feuille As String Dim ClasseurPath As String Dim rep As String rep = Environ("USERPROFILE") & "" ClasseurPath = rep & "\Documents\POINTAGES\bilanHebdo.xlsm" Dim l As Integer l = 1 Set wk1 = ThisWorkbook 'ouverture du classeur Set wk2 = Workbooks.Open(ClasseurPath) For Each sh In wk1.Worksheets Nom_Feuille = sh.Name ' Copie des noms des feuilles de WK1 dans ' la feuille 1.. dans la colonne A de WK2 wk2.Sheets(1).Cells(l, 1).Value = Nom_Feuille l = l + 1 Next
Dim total As String
total = wk1.Sheets(1).Range("CW18").Value
wk2.Sheets(1).Cells(l, 2).Value = total
For Each sh In wk1.Worksheets
Nom_Feuille = sh.Name
'Copie des noms des feuilles dans une colonne
wk2.Sheets(1).Cells(l, 1).Value = Nom_Feuille
total = sh.Range("CW18").Value
'copie des nombres totales d'heure par semaine
wk2.Sheets(1).Cells(l, 2).Value = total
l = l + 1
Next
c'est pas tout fini sur ce sujet...