Discussion :

[backx3]

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 :

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

Merci d'avance pour votre aide...

[cerede2000]

Bonjour à toi,

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

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

[unparia]

Bonjour

Code :

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

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

[Marc-L]

Bonjour !

Code :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[backx3]

Merci aussi Marc pour ton code.

Ma ligne de code

Code :

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

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 :

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

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

[mathspountz]

Et comme ça ?

Code :

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

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

[Marc-L]

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 !

[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 :

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

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

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

Code :

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

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 ^^