XL 2013 Listing des onglets d'un autre fichier XL

Lone-wolf à dit:

Bonsoir Kaisers

Code:

Sub ListerOnglets()
Dim rg As Range, sh As Worksheet, wks As Workbook, chemin$
chemin = "C:\Users\Ton Nom\Desktop\Classeur1.xls"
Set wks = workbooks.Open(chemin)

Set rg = Feuil1.Range("a2")
Application.ScreenUpdating = False

For Each sh In wks.Sheets
rg = sh.Name
Set rg = rg.Offset(1, 0)
Next
Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub

Cliquez pour agrandir...