NomFic = Application.GetOpenFilename(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, comma:=True, local:=False
End If
NomFic = Application.GetOpenFilename(, , "programmes Presses")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, comma:=True, local:=False
End If