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

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

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

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

Du coup je peux pas faire ActiveWorkbooks vu que je ne peux pas activer les deux en même temps..

[Marc-L]

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

[mathspountz]

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

Code :

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

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

[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