Private Sub Workbook_Open()
REPERTOIRE = ActiveWorkbook.Path
' VERIFICATION SI LES EXTENSIONS SONT VISIBLES OU NON (Et chargement de la variable "EXTENS")
Set OBJET = CreateObject("Shell.Application")
' RECHERCHE DANS UN DOSSIER (Là où il est certain d'y avoir un fichier Excel"),
sinon en choisir un autre.
Set DOSSIER = OBJET.Namespace(Le Chemin du Dossier Choisi)
' VOIR SI L'EXTENSION EST MASQUEE OU NON
For Each FICHIER In DOSSIER.Items
On Error Resume Next 'Au cas où le fichier ait moins de 4 caractères
If DOSSIER.GetDetailsOf(FICHIER, 2) = "Feuille de calcul Microsoft Excel" Then
If Right(DOSSIER.GetDetailsOf(FICHIER, 0), 4) <> ".xls" Then
EXTENS = ".xls"
Else
EXTENS = ""
End If
End If
Next
End Sub