Bonjour, je dois récupérer une chaine de caractère entre deux tirets:
par exempel: export_feedback_winlab_BCO - RH 4 You_Mar 29th2019 (1)
je souhaite récupere "BCO-RH 4 You" mais tout le reste ne change jamais sauf pour le (1) qui peut parfois être là
j'ai déjà une macro sauf que en essayant un nouveau fichier je me suis aperçu que ça marchait mais ça me récuperé mal les choses.
Je rappel aussi que ce nom correspond à un fichier dans mon répertoire.
Worksheets("Analyse").Activate
tmpstr() = Split(chemin, "\")
nom_fichier = tmpstr(UBound(tmpstr))
nom_fichier = Mid(nom_fichier, 24, 14) PROBLEME ICI
Sheets("Analyse").Range("D4:G4").MergeCells = True
Range("D4:G4") = nom_fichier
With Range("D4:G4")
.HorizontalAlignment = xlHAlignCenter 'ou xlHAlignLeft ou xlHAlignRight
'ou xlVAlignTop ou xlVAlignBottom
End With
Range("D4:G4").Font.ColorIndex = 25
Range("D4:G4").Select
With Selection.Font
.Size = 20
End With
Range("D4:G4").Font.Bold = True