Explication Code

Bonjour,

Est-ce que quelqu'un pourrait m'expliquer ce code ?

Cordialement,

Mairon

Private Sub Worksheet_Activate()

RefreshOverview

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Shell As New Shell32.Shell

Dim Folder As Shell32.Folder

Dim File As Shell32.FolderItem

Dim strFiles() As String

If Intersect(Target, Range("_OVERVIEW")) Is Nothing Then Exit Sub

strYEAR = Worksheets("HOME").Range("_YEAR")

If Not Intersect(Target, Worksheets("HOME").Columns(3).EntireColumn) Is Nothing Then

If Right(Worksheets("HOME").Range("_DIR_INPUT1").Text, 1) = "\" Then

strDIR = Worksheets("HOME").Range("_DIR_INPUT1").Text

Else

strDIR = Worksheets("HOME").Range("_DIR_INPUT1").Text & "\"

End If

Else

If Right(Worksheets("HOME").Range("_DIR_INPUT2").Text, 1) = "\" Then

strDIR = Worksheets("HOME").Range("_DIR_INPUT2").Text

Else

strDIR = Worksheets("HOME").Range("_DIR_INPUT2").Text & "\"

End If

Set Folder = Shell.Namespace(strDIR)

strQuery = Worksheets("HOME").Range("_FILTER") & "_" & Intersect(Target.EntireRow, ActiveSheet.Columns(2).EntireColumn) & "_" & strYEAR & "*.xls*"

strFiles() = GetFiles(strDIR, strQuery)

If UBound(strFiles) > 0 Then

strFullPath = strDIR & strFiles(UBound(strFiles))

FillInWorksheet (strFullPath)

End If

Cancel = True

End Sub