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!
A voir également:

4 réponses

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

Cdlmnt
0