listing onglet

[heurvy]

Bien le bonjour,


Je cherche à lister les onglets d'un autre classeur, dans des cellules.

Quelqu'un peut il m'aider?

Merci d'avance

 

[Lord Nelson]

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

 

[heurvy]

Merci Horation

 

[heurvy]

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 ???