Renommer un fichier .txt en supprimant une partie

Bonjour à tous,

En m'inspirant du code : https://forum.excel-pratique.com/viewtopic.php?t=95868, j'ai obtenue dans mon cas :

Sub test()

NewRep = "G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\"
x = Split("G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\0030 - Blanco Especial.jpg", " -")
Name "G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\0030 - Blanco Especial.jpg" As NewRep & x(UBound(x))

End Sub

Mon problème, c'est que j'aimerais garder la partie avant le " -" et non celle après.

Je sais que ça se joue au niveau de :

x(UBound(x)

Je ne sais pas comment dire "l'inverse" !

J'avais essayer d'écrire ça, mais j'ai une erreur :

Name "G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\0030 - Blanco Especial.jpg" As NewRep & x

Cordialement

Slt DRB_Fred,

un essai

Sub test()

NewRep = "G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\"
x = Split("G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\0030 - Blanco Especial.jpg", " -")
Name "G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\0030 - Blanco Especial.jpg" As NewRep & x(LBound(x)) & ".jpg"

End Sub

Salut, alors j'ai l'erreur "Argument ou appel de procédure incorrect", il me montre la ligne :

Name "G:\XXX\A-TopSolid\TopSolid'Design-Wood\Matière et RAL - IMG\TEXTURE\0030 - Blanco Especial.jpg" As NewRep & x(LBound(x)) & ".jpg"

EDIT : en respectant le code d'ici https://forum.excel-pratique.com/viewtopic.php?t=95868 , en prenant tout cette fois-ci , ça fonctionne.. merci !