Excel repertoire

likalo Messages postés 2 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
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 Messages postés 11033 Statut Membre 2 434
     
    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 Messages postés 1564 Statut Membre 160
       
      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 Messages postés 1564 Statut Membre 160
     
    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
  3. likalo Messages postés 2 Statut Membre
     
    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
  4. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Pour les enregistrer en csv, si mes souvenirs sont bons, tu dois faire un fichier csv par feuille

    Cdlmnt
    0