Bonjour,
Tout est dans le titre, je n'arrive pas à avoir le nom de mon fichier sans l'extension, et pourtant j'ai cherché...
Ca doit être tout con en plus !
Voici mon code, j'arrive juste à enlever le chemin.. :Merci d'avance pour votre aide...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub ParcourirFichierMaj_Click() FichierDeMaj = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...") MaJ.LocalisationMaj.Text = FichierDeMaj pos = InStr(FichierDeMaj, ".xlsx") FichierMajSansChemin = Mid(FichierDeMaj, InStrRev(FichierDeMaj, "\") + 1) Debug.Print FichierMajSansChemin FichierMaj = Left(FichierMajSansChemin, pos - 1) Debug.Print FichierMaj End Sub
![]()
Partager