Excel repertoire

likalo -  
bonjour a tous ,
j'aimerais pouvoir recopier les noms des feuilles sur une autre feuille de calcul
i.e j'ai un document d'environ 60 feuilles ayant chacune un nom different et j'aimerais faire une liste de tous ces noms sur une seule feuille
svp plait a l'aide!

4 réponses

  1. ccm81
    Bonjour à tous les deux

    J'écrirais plutôt 

    Dim I As Integer

    For I = 1 To Sheets.Count
         Sheets("Feuil2").Cells(I, 1).Value = Sheets(I).Name
    Next I


    Cdlmnt
    1
    1. ThauTheme
      Oui bien sûr ccm !
      J'étais partie au départ sur une boucle : For Each O In Sheets. Puis j'ai modifié mais sans me relire.
      Bien vu et merci !
      0
  2. ThauTheme
    Bonjour Likalo, bonjour le forum,

    Disons que ta feuille de destination est Feuil2 

    Dim I As Integer

    For I = 1 To Sheets.Count
         Sheets("Feuil2").Cells(I, 1).Value = O.Name
    Next O
    ...

    À plus,
    Thautheme
    0
    1. likalo Auteur
      Merci CCM81 et merci a tous ca marche. seulement je n'arrive pas a sauvegarder toute les 60 feuilles en csv comment vous y parvenez?
      0
      1. ccm81
        Pour les enregistrer en csv, si mes souvenirs sont bons, tu dois faire un fichier csv par feuille

        Cdlmnt
        0