Renommer le début et la fin d'un fichier

Bonjour à tous,

J'ai un gros soucis, je suis en train d'écrire une macro qui appaire plusieurs feuilles au format csv dans un fichier excel et qui sauvegarde ce fichier au format xlsm.

Mes fichiers sont nommé sous la forme : blablabla_1.csv , blablabla_2.csv...

Dans ma macro j'arrive à renommer la fin du fichier avec la fonction replace "csv", "xlsm" pour pouvoir changer l'extension, cependant j'aimerai aussi renommer le nom du début du fichier (blablabla) tout en conservant le numéro qui va avec (_1).

Merci d'avance.

supposons que le nom du fichier est dans une variable nomdufichier

Sub toto()
nomdufichier = "blabla1.csv"
x = Split(nomdufichier, ".")
debut = x(0)
extension = x(1)
'debut contiendra blabla1
'extension contiendra csv
'Pour modifier tes noms il te suffira d'utiliser les fonctions left, right, instr et mid.
'puis pour reconstruire le nom
nomdufichier = nouveaudebut & "." & nouvelleextension
End Sub

bonjour,

merci de m'avoir répondu, comment utilise t on les fonctions left right instr et mid ? je ne m'y connaît pas trop en macro .

cordialement

x = right("on lutilise comme ca",2)

x vaudra "ca"

x = right("on lutilise comme ca",4)

x vaudra "e ca"

x = left("on lutilise comme ca",2)

x vaudra "on"

x = left("on lutilise comme ca",4)

x vaudra "on lu"

Cherche sur internet pour les autres

Bonjour, sans vouloir vous offenser, je ne comprend toujours pas comment fonctionne cette macro, pouvez vous S'IL VOUS PLAIT me donner un exemple concret où vous renommez par exemple "blablabla.csv" en "jaicompris.xls"

merci pour tout

Sub toto()
nomdufichier = "blabla1.csv"
x = Split(nomdufichier, ".")
debut = x(0)
extension = x(1)
nouveaudebut = "jaicompris"
nouvelleextension = "xls"
nomdufichier = nouveaudebut & "." & nouvelleextension
End Sub

J'ai compris !!! et ça marche

Merci beaucoup