Bonjour,
Pour récuperer le fichier je ne comprends pas pourquoi tu ne passes pas par le menu ouvrir de excel.
Enfin bref voila ce que je te propose. Cette macro affichera la fenêtre ouverture de Excel, mais aves tes parametres :
Dim Chaine, Fichier As String
Fichier = Application.GetOpenFilename(filefilter:="Suivi par Mois (*2004.XLS), *.dss", Title:="Quel fichier ouvrir ???") ', MultiSelect = false)
Workbooks.OpenText FileName:=Fichier, Origin:=xlWindows, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:= _
False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, Other _
:=False, FieldInfo:=Array(1, 1)
Voila tu as tout a toi de parametre les options pour "coller" à tes besoins.
++
Creepy