Bonjour, je repost ma question étant donnée qu'elle a été marqué comme résolue mais elle ne l'est pas.
J'ai vraiment besoin de vous s'il vous plaît
alors je dois récupérer une chaine de caractère entre deux tirets grâce à une macro,
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à, ce qui bloque l'utilisation d'un MID
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.
J'utilise un mid pour séparer, mais il y a des fichier ou à la fin on retrouve (1) ce qui fait que la technique mid ne marche plus, il me faudrait un split en fonction du "_" pour récuper ce qu'il y a en le 3e et le 4eme tiret, quelqu'un a une idée?
le nom_fichier permet de recuperer le nom du fichier et de le couper en fonction des caractères.
Worksheets("Analyse").Activate
tmpstr() = Split(chemin, "\")
nom_fichier = tmpstr(UBound(tmpstr))
nom_fichier = Mid(nom_fichier, 24, 14)
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