Bonjour,
Ceci devrait fonctionner ...
Est-ce plus compréhensible ?
Dim affaire As String
Dim année As String
Dim lengthchain as byte
année = TextBox1
affaire = TextBox2
lengthchain = InStr(affaire, " ") ''' trouve la position de l'espace, dans la chaine .. Xiem caractère.
affaire = Left(affaire, lengthchain - 1) ''' ici, je modifie affaire afin qu'il ne contienne que les premiers caractères jusqu'à l'espace.
''' supposons que affaire contienne 40 caractères et que la première espace est le 11e caractère, on ne garde que les 10er caractères.
Workbooks.Open Filename:="D:\Users\Documents\" & année & "\" & affaire & ".xls"
gelinotte