Bonsoir le Forum,
Un découpage astucieux le code ci-dessous :
Sub test()
For i = 1 To 9
Cells(i, 3) = Split(Split(Cells(i, 1), "\")(UBound(Split(Cells(i, 1), "\"))), ".")(UBound(Split(Split(Cells(i, 1), "\")(UBound(Split(Cells(i, 1), "\"))), ".")) - 1)
Next i
End Sub
en rapport avec votre dernier fichier Excel les valeur se copie en colonne C en face des lignes (sur la base des valeur Colonne A ligne 1 à 9