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

  • Votes
  • Date
  • Date décroissante
  1. ccm81
    Pour les enregistrer en csv, si mes souvenirs sont bons, tu dois faire un fichier csv par feuille

    Cdlmnt
    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?
      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. 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 !
      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