Nom fichier variable sans extension ni chemin

Version imprimable

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.. :
Code:

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
Merci d'avance pour votre aide...
:?

Bonjour à toi,

Je dirais tout de même que tu n'as pas du chercher beaucoup....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub test()
    Dim FichierDeMaj As String
    Dim chemin As String
    Dim ext As String
    Dim fileExt
 
    FichierDeMaj = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
 
    'Si on veut le chemin
    chemin = Left(FichierDeMaj, InStrRev(FichierDeMaj, Application.PathSeparator) - 1)
 
    'On extrait le nom du chemin complet
    FichierDeMaj = Right(FichierDeMaj, Len(FichierDeMaj) - InStrRev(FichierDeMaj, Application.PathSeparator))
 
    'On split sur le . pour extraire le nom et l'extension
    fileExt = Split(FichierDeMaj, ".")
 
    'Si on veut l'extension
    ext = fileExt(1)
 
    'On extrait le nom sans l'extention
    FichierDeMaj = fileExt(0)
 
    Debug.Print chemin
    Debug.Print FichierDeMaj
    Debug.Print ext
End Sub

Utilisation de Application.PathSeparator pour total compatibilité (Mac par exemple).
Fonctionne avec n'importe quel type de ficiher, extension à 3 ou 4 (autant qu'on veut en fait) caractères.

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
fichierdemaj = Application.GetOpenFilename("Tous,*.*", , "Choisir un fichier ...")
If fichierdemaj = False Then
  MsgBox "aucun fichier choisi": Exit Sub '======= prévoir
End If
MsgBox fichierdemaj
pos = InStr(fichierdemaj, ".")
 FichierMajSansChemin = Mid(fichierdemaj, InStrRev(fichierdemaj, "\") + 1)
 MsgBox FichierMajSansChemin
 pos = InStr(FichierMajSansChemin, ".")
 FichierMaj = Left(FichierMajSansChemin, pos - 1)
 MsgBox FichierMaj

25/04/2016, 10h17
backx3

Merci beaucoup pour ta réponse super rapide super claire avec des supers commentaires !
Tout est parfait.

Maintenant que j'ai le nom de mon fichier, je devrais pouvoir exécuter la ligne de code

Code:

Workbooks("FichierIviz").Worksheets.....

Pourtant, j'ai une erreur à la ligne suivante :

Code:

If Workbooks("FichierIviz").Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value <> Workbooks("FichierMaJ").Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value Then

Saurais-tu pourquoi ?

Désolé d'abuser.... :?

EDIT : Merci pour tes précisions umpa' ! J'avoue que c'est pas mal du tout de prévoir si aucun fichier n'est choisi ;)
Désolé j'étais entrain d'écrire quand tu m'a répondu ^^

Bonjour !
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ParcourirFichierMaj_Click() Const EXT = ".xlsx" V = Application.GetOpenFilename("Classeurs Excel,*" & EXT, , " Choisir un classeur :") If V = False Then Exit Sub MaJ.LocalisationMaj.Text = V V = Split(V, Application.PathSeparator) Debug.Print V(UBound(V)) FichierMaj$ = Replace$(V(UBound(V)), EXT, "") Debug.Print FichierMaj End Sub
______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

25/04/2016, 10h26
backx3
Merci aussi Marc pour ton code.

Ma ligne de code

Code:

If Workbooks("FichierIviz").Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value = "QX07007040" Then

me génère une erreur et si je la remplace par :
Code:

1 2 Workbooks(FichierIviz).Activate If Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value = "QX07007040" Then
Tout va bien... J'comprends pas pourquoi le "Workbooks(FichierIviz).Worksheets" passe pas.... :(

J'ai besoin de vos lumières T.T

Et comme ça ?

Code:

1
2
 
If Workbooks("FichierIviz.xlsx").Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value = "QX07007040" Then

25/04/2016, 10h30
Marc-L

Citation:

Envoyé par backx3

J'comprends pas pourquoi le "Workbooks(FichierIviz).Worksheets" passe pas...

Si FichierIviz est une variable donc il ne doit pas y avoir de guillemets l'encadrant !
25/04/2016, 10h34
backx3

Merci maths' mais ça ne fonctionne pas :/

Le soucis c'est que j'aimerais ne pas l'activer pour faire une comparaison avec un autre fichier du coup je ne peux pas activer les deux fichiers en même temps...

La ligne que j'aimerais avoir et celle-ci :

Code:

If Workbooks("FichierIviz").Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value <> Workbooks("FichierMaJ").Worksheets("LUP – QC Délai et Liste Quotidi").Range("A" + CStr(i)).Value Then

Du coup je peux pas faire ActiveWorkbooks vu que je ne peux pas activer les deux en même temps..
25/04/2016, 10h35
Marc-L

Si FichierIviz est une variable, il ne doit pas y avoir de guillemets l'encadrant !

Il faut identifier d'où vient le problème comme ceci par exemple :
Code:

1 2 3 4 5 dim tmp Set tmp = Workbooks("FichierIviz") Set tmp = tmp.Worksheets("LUP – QC Délai et Liste Quotidi") Set tmp = tmp.Range("A" + CStr(i))
Pareil pour la partie droite de la comparaison

25/04/2016, 10h47
backx3

Merci beaucoup Marc ! J'ai pas été très futé sur ce coup là..... !

Tout fonctionne niquel !

Merci maths', je ferais ça pour mes prochaines erreurs :)

Merci à tous