Trouver le nom du fichier actif sans l'extension en VBA

[MJ13]

Bonjour à tous

J'ai ce code pour trouver le nom du fichier actif et le nom avec le chemin.

Sub TestNomFichier()
MsgBox ActiveWorkbook.FullName
MsgBox ActiveWorkbook.Name
End Sub

Mais peux t'on simplement trouver le nom du fichier sans l'extension?

C'est la question que je me pose 😕.

 

[Dranreb]

Re : Trouver le nom du fichier actif sans l'extension en VBA

Bonjour

Comme ça par exemple:

Sub TestNomFichier()
MsgBox Split(ActiveWorkbook.Name, ".")(0)
End Sub

À +

 

[MJ13]

Re : Trouver le nom du fichier actif sans l'extension en VBA

Bonjour Dranreb

Merci beaucoup pour cette macro 🙂 qui va me simplifier mes codes.

Juste un petit problème si j'ai un autre point dans le nom du fichier 😱.

Bonne journée 🙂.

 

[Dranreb]

Re : Trouver le nom du fichier actif sans l'extension en VBA

Alors:

Sub TestNomFichier()
Dim Spl() As String
Spl = Split(ActiveWorkbook.Name, ".")
MsgBox Spl(UBound(Spl) - 1)
End Sub

Amicalement.

Aïe! non, c'est un peu rapide. Attends
À +

Voilà:

Sub TestNomFichier()
Dim Spl() As String
Spl = Split(ActiveWorkbook.Name, ".")
ReDim Preserve Spl(0 To UBound(Spl) - 1)
MsgBox Join(Spl, ".")
End Sub

 

[MJ13]

Re : Trouver le nom du fichier actif sans l'extension en VBA

Re

Chapeau bas 😱, tu as du être un dieu dans une ancienne vie pour des civilisations anciennes 🙂.

D'ailleurs, c'est marrant en même temps que je te lisais, je suis tombé sur une de tes fractales sur mon bureau 😀.

Bonne journée 🙂.