Sub ImportFile()
Dim A As String
Dim B As String
Dim C As String
Dim Chemin As String, NomFicIncomplet$, Fichier$
If Sheets("Inputs").Range("B10") < Sheets("Inputs").Range("G6") Then
A = Sheets("Inputs").Range("B10") & "_12"
Else
If Sheets("Inputs").Range("M3") < 10 Then
A = Sheets("Inputs").Range("B10") & "_0" & Sheets("Inputs").Range("M3")
Else
A = Sheets("Inputs").Range("B10") & "_" & Sheets("Inputs").Range("M3")
End If
End If
If Sheets("Inputs").Range("F12") = "ASIA" Then
B = "ASIA"
Else
B = "PACIFIC"
End If
C = Range("B12") & " - " & A
NomFicIncomplet = C
Chemin = "S:\XXXX\ZZZZ\" & A & "\" & B & "\"
Fichier = Dir(Chemin & NomFicIncomplet & "*")
MsgBox Fichier
If Fichier <> "" Then
Workbooks.Open Filename:=Fichier
End If
End Sub