Discussion :

[Tartenpion]

Bonjour,

Voila j'utilise la commande GetOpenFilename afin de recuper un nom de fichier via l'exporateur. En fait l'utilisateur choisit un fichier .xls via l'explorateur.

Voici mon code:

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
Sub CmdOpenExpl_Click()
 
Dim Dir As String
 
Dir = CurDir$
ChDir "c:\"
SourceFileFullPath = Application.GetOpenFilename
 
If VarType(SourceFileFullPath) = vbBoolean Then Exit Sub ' cancellation
 
ChDir Dir
 
txtInputPath.Value = SourceFileFullPath
 
End Sub

Mais la fonction GetOpenFileName retourne le chemin complet du fichier .xls.

Code :

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

C:\Documents and Settings\Administrator\myfile.xls

Moi je souhaite utiliser seulement le nom du fichier (myfile.xls) afin de manipuler ce classeur dans d'autre fonction VBA
J'ai fais le tour des fonctions autour des chaines de carateres mais je n'arrive pas a resoudre mon probleme.

Une idee?

[RLX]

Salut Tartenpion,

un simple

Code :

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

1
2
 
FileName = Dir(SourceFileFullPath)

pourra peut être t'aider.

[AlainTech]

Si le but est de l'ouvrir, une fois ouvert:

Code :

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

ActiveWorkbook.Name

[Tartenpion]

Si le but est de l'ouvrir, une fois ouvert:

Code :

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

ActiveWorkbook.Name

Non je ne peux pas utiliser cela car je veux avoir son nom sans l'ouvrir

[Tartenpion]

Salut Tartenpion,

un simple

Code :

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

1
2
 
FileName = Dir(SourceFileFullPath)

pourra peut être t'aider.

Ca me parait ideal mais ca ne marche pas, il bloque sur le "DIR" avec l'erreur suivante:

Code :

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

Array expected

[illight]

Tiens un truc marrant

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim chr As String
Dim nomfichier As String
chr = "C:\Documents and Settings\Administrator\myfile.xls"
nomfichier = Right(chr, Len(chr) - InStrRev(chr, "\"))
MsgBox Left(nomfichier, InStr(nomfichier, ".") - 1)
End Sub

le msgbox te retourne alors le nom de ton fichier

[ced600]

Ca ne serait pas plus simple d'utiliser la fonction Split avec comme separateur "\" ?
Alors le nom de fichier serait le dernier élément du tableau retourné par Split.

[ouskel'n'or]

Serait bien que tu donnes la syntaxe avec split
Attention, dans VBA97, "split : Cette propriété a la valeur True si la fenêtre est fractionnée"
Après, tu expliqueras Ubound(LeSpit)

mais je suis d'accord avec toi pour le split la solution d'Illight ne tient pas compte de plusieurs \
En outre, il utilises chr comme variable or chr est un mot clé... Et donc... à éviter

[ced600]

En effet, je corrige tout de suite. Un petit lien vers un Tutorial :
http://drq.developpez.com/vb/tutoriels/String/
La partie 6 explique l'utilisation de Split.

[RLX]

Ca me parait ideal mais ca ne marche pas, il bloque sur le "DIR" avec l'erreur suivante:

Code :

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

Array expected

Salut Tartenpion,
une première raison qui fonctionne pas c'est parce que tu déclare une variable Dir qui est une fonctionne utilisé par VBA. D'où le "Array expected" pour lui il croit que c'est un tableau de String et non pas la fonction Dir.

Petite erreur aussi de ma part FileName est aussi utilisé par VBA vaut mieux changer de nom de variable.

[ThierryAIM]

la solution d'Illight ne tient pas compte de plusieurs \

Sauf que tu as du louper l'utilisation de InstrRev


La fonction que j'utilise tout le temps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function ExtractFileName(ByVal sFullPath As String) As String
    If InStr(sFullPath, "\") = 0 And Len(sFullPath) > 0 Then
        ExtractFileName = sFullPath
        Exit Function
    End If
    If Right(sFullPath, 1) = "\" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
End Function

[RLX]

A mon avis ça pourrait etre un petit peu mieux a voir

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
 
Sub CmdOpenExpl_Click()   
Dim SourceFileFullPath as String 'Comme tu n'as pas la fonction MultiSelect active sinon il faut faire un array... a voir
Dim Dossier As String   
 
Dossier = CurDir$ 
 
ChDir "c:\" SourceFileFullPath = Application.GetOpenFilename   
 
If VarType(SourceFileFullPath) = vbBoolean Then 
Exit Sub ' cancellation   
 
ChDir Dossier   
 
txtInputPath.Value = Dir(SourceFileFullPath)   
 
End Sub

[ouskel'n'or]

Sauf que tu as du louper l'utilisation de InstrRev

Moi j'ai "InstrRev : Mot clé introuvable" dans l'aide en ligne
Chuis au boulot et j'ai pas ça dans VBA97
Autant pour moi illight N'empêche que chr est quand même une fonction et que c'est quand même pas recommandé de l'utiliser comme variable

[illight]

Moi j'ai "InstrRev : Mot clé introuvable" dans l'aide en ligne
Chuis au boulot et j'ai pas ça dans VBA97
Autant pour moi illight N'empêche que chr est quand même une fonction et que c'est quand même pas recommandé de l'utiliser comme variable

toi meme

N'empeche que ça marche, d'ailleurs c'est bizarre que chr ne m'ai pas claqué une erreur

[ThierryAIM]

d'ailleurs c'est bizarre que chr ne m'ai pas claqué une erreur

tu l'as déclaré comme variable string, et tu n'utilises pas la fonction Chr, donc comme VB est sympa, il dit rien
Par contre :

Code :

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

1
2
Dim chr As Integer
MsgBox Chr(chr)

la, ça va couiner

Ousk a raison mieux vaut éviter les mots réservés comme nom de variable