XL 2010 Mettre dans variable onglet fichiers[RESOLU]

[cathodique]

Bonjour,

Je voudrais récupérer dans une variable le nom d'onglet de classeurs ouverts successivement.
Je vérifie que le fichier ouvert n'a qu'un onglet, si c'est le cas je récupère le nom dans une variable, puis ferme le fichier.
Cette variable me servira pour faire une boucle sur ces onglets ajoutés à mon fichier principal.
Je suis bloqué merci pour votre coup de main.

Sub MesFeuilles()
   Dim Fichiers As Variant, i As Integer, wb As Workbook
   Dim Wm As String, Sh
   Wm = ThisWorkbook.Name

   Fichiers = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , , True)

   If IsArray(Fichiers) Then
      For i = 1 To UBound(Fichiers)
         Set wb = Workbooks.Open(Fichiers(i))
         If wb.Sheets.Count = 1 Then
'Récupérer wb.Activesheet.Name dans Array
'...............................................................................................

         End If
         wb.Close
         Set wb = Nothing
      Next i
   End If
End Sub

Bonne soirée

 

[sylvanu]

Bonsoir Cathodique,
Pour une utilisation ultérieure il faut déclarer l'Array en public, par ex en faisant :

Public ArrayOnglet(1000), N
Sub MesFeuilles()
   Dim Fichiers As Variant, i As Integer, wb As Workbook
   Dim Wm As String, Sh
   Wm = ThisWorkbook.Name
   Fichiers = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , , True)
   If IsArray(Fichiers) Then
      For i = 1 To UBound(Fichiers)
         Set wb = Workbooks.Open(Fichiers(i))
         If wb.Sheets.Count = 1 Then
            'Récupérer wb.Activesheet.Name dans Array
            ArrayOnglet(N) = wb.Sheets(1).Name
            N = N + 1
         End If
         wb.Close
         Set wb = Nothing
      Next i
   End If
End Sub

 

[cathodique]

Bonsoir Cathodique,
Pour une utilisation ultérieure il faut déclarer l'Array en public, par ex en faisant :

Public ArrayOnglet(1000), N
Sub MesFeuilles()
   Dim Fichiers As Variant, i As Integer, wb As Workbook
   Dim Wm As String, Sh
   Wm = ThisWorkbook.Name
   Fichiers = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , , True)
   If IsArray(Fichiers) Then
      For i = 1 To UBound(Fichiers)
         Set wb = Workbooks.Open(Fichiers(i))
         If wb.Sheets.Count = 1 Then
            'Récupérer wb.Activesheet.Name dans Array
            ArrayOnglet(N) = wb.Sheets(1).Name
            N = N + 1
         End If
         wb.Close
         Set wb = Nothing
      Next i
   End If
End Sub

Bonsoir @sylvanu ,

Je te remercie infiniment. Là, tu me "boostes vraiment.
Je n'ai pas 1000 fichiers. Je vais un peu modifier avec un Redim.

En tout cas, tu me rends un sacré service.
Pour le partage, code de Sylvanu légèrement modifié

Option Explicit
Public ArrayOnglet(), N
Sub MesFeuilles()
   Dim Fichiers As Variant, i As Integer, wb As Workbook
   Dim Wm As String, Sh
   Wm = ThisWorkbook.Name

   Fichiers = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , , True)

   If IsArray(Fichiers) Then
      For i = 1 To UBound(Fichiers)
         Set wb = Workbooks.Open(Fichiers(i))
         If wb.Sheets.Count = 1 Then
            'Récupérer wb.Activesheet.Name dans Array
            ReDim Preserve ArrayOnglet(N)
            ArrayOnglet(N) = wb.Sheets(1).Name
            N = N + 1
         End If
         wb.Close
         Set wb = Nothing
      Next i
   End If
End Sub

Bonne soirée.

edit: je me suis noyé dans un verre d'eau