extraction Nom de fichier

Bonjour,

j'ouvre un classeur excel comme ceci :

Le code :
Dim Classeur As String
Classeur = Application.GetOpenFilename(filefilter:="Fichier Excel (*.xls),*.xls", Title:="Ouvrir un Fichier de Valorisation")
Workbooks.Open Classeur
        Range("A4:E50").Select 'selection sur le dossier ouvert par l'utilisateur
    Selection.Copy

je souhaite récuperer le nom du classeur comme cela
    UserForm1.Label4.Caption = ActiveWorkbook.Name

ce qui me donne dans mon Label : TOTO.xls
je ne souhaite pas voir apparaitre l'extension xls comment puis je faire

Jean Francois

Merci d'avance pour vos réponses

Jean françois

Tu peu aussi utiliser la fonction Split :


UserForm1.Label4.Caption = split(ThisWorkbook.Name,".")(0)




Satanas09 ..... Sapristi, saprista, souris grise et face de rat

>>Satanas09

Salut,

Je sais pas si diabolo te l'a dit mais attention car si le nom de fichier est par exemple "toto.titi.xls" , avec ta méthode tu récupèreras "toto" au lieu de "toto.titi"

Yomm

yommvb@free.fr

Et que la source soit avec toi!!!!!

>> Yomm

Salut,
Je sais pas si George  te la dit mais attention avec ta méthode si le nom de fichier ne comporte pas l'extension ( cas de la création d'un nouveau fichier...) par exemple classeur1 ... tu aura une erreur 5

     
Satanas09 ..... Sapristi, saprista, souris grise et face de rat

>>Satanas09

En effet, je précède toujours ce test d'un
if instr(MaVar, ".") <> 0 then

en effet car s'il n'y a pas de "." la commande que j'ai fournie n'est pas utile ;-)

@+ et merci pour ta remarque