Discussion :

[alsimbad]

Bonjour tout le monde et bon week end.
je sais qu'on en déja parlé, mais je ne trouve pas.
a parrir du chemin complet , coment extraire le non du fichier
genre de c\document.......comptabilité.xls, je voudrais renvoyer juste "comptabilité". en fait, je groupe plusieur fichiers, et je voudrais que chaque feuille porte le nom du fichier qu'elle représente
merci d'avance

[tirex28]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Nomfichier As String
Nomfichier = Dir(ThisWorkbook.FullName)
MsgBox Left(Nomfichier, Len(Nomfichier) - 4)

Nb:Sur 2007 les extensions comptent 5 caracteres.

Cordialement,

Tirex28/

[Qwazerty]

SAlut
Ou comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NomSansExt()
 
Dim NomFichier As String
Dim I As Integer
 
 
NomFichier = ActiveWorkbook.Name
If NomFichier = "" Then Exit Sub 'si classeur ouvert mais pas enregistré sur le Disque Dur
I = 1
While InStr(I, NomFichier, ".") > 0 'On boucle si jamais l'utilisateur avait mis 2 "." dans le nom de sont fichier...
    I = I + InStr(I, NomFichier, ".")
Wend
NomFichier = Left(NomFichier, (I - 2))
 
End Sub

Pas besoin de te soucier de la taille de l'extension ici
A++
Qwaz

[alsimbad]

super, merci les gars. les deux fonctionnent au poil.
bon week end