Dé concaténer une cellule

Bonjour le forum

Le sujet est traité sur les forums mais n'étant pas compétent je requière votre d’aide pour séparer 2 textes

En fin de macro, j'utilise le code: ws.Cells(Selection.Row, 11).Value = ExtractFileName(imgPath)" en col A mais je n'arrive pas à dé concaténer

(Forme du nom composé « dossier_Nom.jpg »)

« dossier » en minuscule

« tiret du 8 »

« Nom » première lettre en Majuscule

J’aimerais afficher :

en col A « dossier » sans faire apparaitre le tiret

en col B « Nom » sans faire apparaitre l’extension.

puis

Sélectionner la dernière cellule vide de la col J .

Bonsoir ivgu19

Si ImgPath contient le nom composé

Dossier = Left(ImgPath,Instr(1,ImgPath,"_")-1)
Fichier = Mid(Instr(1,ImgPath,"_")+1,255)

A+

Bonjour

Bonjour à tous

Si j'ai bien compris, essaie ça :

    ws.Cells(Selection.Row, 1) = Split(ExtractFileName(imgPath), "_")(0)
    ws.Cells(Selection.Row, 2) = Split(Split(ExtractFileName(imgPath), "_")(1), ".")(0)

Bye !

Bonjour,

Merci à tous les deux et en particulier à gmb pour avoir solutionné mon pb de belle manière.