Discussion :

[vikvalesteam]

Bonjour a tous!
Tout d'abord, j'espere ne pas m'etre trompé de thème...
je suis a la recherche d'une ame charitable qui puisse m'aider...et qui soit meilleur que moi en VBA(ce qui n'est pas difficile)
je ne pense pas que ce que je demmande soit trop difficile, quoique...

j'ai a ma disposition 5 fichier appellés (team1, team2,...,team5)
chacun de ces fichiers dispose de plusieurs feuilles qui n'ont pas des noms predefinis...
sur chacune de ces feuilles, il y a des listes avec une colonne ou il y a des "yes" ou des "no".

ce que je veux faire, c'est dans un nouveau fichier qu'on appellera "Summury" mettre toutes les lignes qui possedent le champs "yes". ces lignes etant dans toutes les feuilles de tous les fichiers...

j'espere etre assez clair...

j'avais pensé faire une boucle "for i=1 to 5" qui passe les fichier les uns apres les autres dans laquelle on passe les feuilles les une apres les autres avec "for j=1 to nbfeuille"
(je crois qu'on peut avoir nbfeuille=worksheets.Count)
et donc dans cette derniere boucle, faire une sorte de copier un tri et de le coller par valeur a la suite de mon fichier "summary"

je ne sais pas si c'est vraiment faisable, mais je pense que ca devrait pas etre trop dur pour vous...en tout cas si vous avez une idee je suis preneur

merci de votre aide

[Philippe Tulliez]

Boujour,
Pour parcourir l'ensemble des classeurs ouverts ou les feuilles d'un classeur il est préférable d'utiliser la boucle For Each In .. Next
Le code ci-dessous parcourt l'ensemble des classeurs ouverts et ensuite les feuilles de ce classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ParcourirCollections()
 Dim wkb As Workbook
 Dim sht As Worksheet
 Dim txt As String
 ' Parcourir la collection des classeurs
 For Each wkb In Workbooks
  txt = txt & vbCrLf & wkb.Name
  ' Parcourir la collection des feuilles du classeur wkb
  For Each sht In wkb.Worksheets
   txt = txt & vbCrLf & Space(4) & sht.Name
  Next
 Next
 MsgBox txt
End Sub

[vikvalesteam]

merci beaucoup pour ton aide! c'est sympa de voir que la communaute internaute est solidaire!