Mmmmhhh a vue de nez je dirais klkchose dans ce gout la
dim maLigne as string
dim user as string
dim pass as string
dim fichier as string
maligne="edgar toto fiche"
user = Left(maLigne, InStr(maLigne, " ") - 1)
' tu recupere la chaine jusqu'au premier espace
maLigne = Right(maLigne, Len(maLigne) - InStr(maLigne, " "))
'tu enleve tous les caracteres jusqu au premier espace, il ne te reste donc plus que "toto fiche" dans maligne
pass = Left(maLigne, InStr(maLigne, " ") - 1)
maLigne = Right(maLigne, Len(maLigne) - InStr(maLigne, " "))
'rebelote, il ne te reste plus que "fiche" dans maligne
fichier = maLigne