Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202171 22 juil. 2008 à 12:47
Sub
test()
Dim xsSheetNames() As String
Dim nSheetNames As Long
Dim sFileName As String
Dim sFolder As String
Dim oSheet As Worksheet
'# Mets ici le repertoire a scanner
sFolder = "D:\Documents and Settings\THOM31R\Mes documents\Fiches de temps\"
'# On va lister les fichiers XLS
sFileName = Dir$(sFolder & "*.xls")
Do While LenB(sFileName)
'# On ouvre les fichiers un a un
With Application.Workbooks.Add(sFolder & sFileName)
'# Pour enumérer leur feuilels
For Each oSheet In .Worksheets
'# Et les ajouter dans notre tableau dynamique
ReDim Preserve xsSheetNames(nSheetNames)
xsSheetNames(nSheetNames) = oSheet.Name
nSheetNames = nSheetNames + 1
Next oSheet
'# Fermeture du fichier Excel
.Close
End With
'# On demande le fichier suivant
sFileName = Dir$()
Loop
'# Ici, on affiche simplement le contenu de notre tableau
Dim i As Long
For i = 0 To nSheetNames - 1
MsgBox xsSheetNames(i)
Next i
End Sub ,
justin92330
Messages postés32Date d'inscriptionlundi 21 juillet 2008StatutMembreDernière intervention 1 octobre 2008 22 juil. 2008 à 11:49
Oui c'est exactement ca ! désolé de ma nulité lol
Est ce que je peux abuser et te demander si tu sais comment je pourrai faire pour lister un repertoire et récupérer tous les ActivesSheet.Name dans un tableau
( Si possible sans ouvrir les pages )