Bonjour,
Une proposition à évaluer.
Pour le numéro de suivi et le DSCC, privilégie la fonction Split pour découper ta chaîne de caractères avec l'espace pour délimiteur.
J'ai crée 2 petites fonctions pour cela :
'Fonction split : délimiteur par défaut = espace
'5 ou 6 si espace après n?
Public Function NSerie(txt) As String
Dim tbl
tbl = Split(txt)
NSerie = Replace(tbl(5), "n?", vbNullString)
End Function
Public Function DSCC(txt As String)
Dim tbl
tbl = Split(txt)
DSCC = tbl(UBound(tbl) - 1) & " " & tbl(UBound(tbl))
End Function
Modifie ta procédure ainsi :
numberSuivi = NSerie(bookName)
numberDSCC = DSCC(bookName)
Sinon,
bookName = wbook.Name, comporte l'extension du fichier (!?)
Si c'est le cas, une autre fonction pour l'éliminer.
'Nom de fichier sans extension
Public Function WBName(nm As String)
WBName = Mid(nm, 1, InStrRev(nm, ".") - 1)
End Function
Modifie ensuite :
bookName = WBName(wbook.Name)
Cdlt.