listing onglet

Salut Heurvy,

Voici une macro à placer dans un module de code appartenant au classeur dans lequel tu veux lister les feuilles d'un autre classeur :

Sub Onglets()
Dim WS As Worksheet, Ligne As Integer
For Each WS In Workbooks("DiversVBA.xls").Worksheets
Ligne = Ligne + 1
Range("A" & Ligne) = WS.Name
Next
End Sub

Il te faudra adapter le nom du classeur (pour l'exemple "DiversVBA.xls") ainsi que la destination des données (dans l'exemple les feuilles sont listées à partir de A1.

A+
Horatio

Merci Horation

Re bonjour,

OK, la macro Marche quand les deux fichiers sont ouverts.

Serait il possible de fonctionner comme des liaisons c'est à dire laisser fermer le premier fichier ???