[Excel-VBA]Nom d'un workbook a partir de son path

Version imprimable

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:

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:

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?

18/10/2006, 17h08
RLX
Salut Tartenpion,

un simple
Code:

1 2 FileName = Dir(SourceFileFullPath)
pourra peut être t'aider. :)
18/10/2006, 21h43
AlainTech

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

Code:

ActiveWorkbook.Name
19/10/2006, 12h12
Tartenpion

Citation:

Envoyé par AlainTech

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

Code:

ActiveWorkbook.Name

Non je ne peux pas utiliser cela car je veux avoir son nom sans l'ouvrir
19/10/2006, 12h13
Tartenpion
Citation:
Envoyé par RLX

Salut Tartenpion,

un simple

Code:

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:

Array expected

Tiens un truc marrant :mrgreen:

Code:

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

19/10/2006, 14h17
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.
19/10/2006, 14h28
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) :mouarf:

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 :langue:
19/10/2006, 14h40
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.
19/10/2006, 14h45
RLX

Citation:

Envoyé par Tartenpion

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

Code:

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.

Citation:

Envoyé par ouskel'n'or

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

Sauf que tu as du louper l'utilisation de InstrRev
:mouarf:

La fonction que j'utilise tout le temps :

Code:

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

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

Code:

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

19/10/2006, 15h19
ouskel'n'or

Citation:

Sauf que tu as du louper l'utilisation de InstrRev :mouarf:

Moi j'ai "InstrRev : Mot clé introuvable" dans l'aide en ligne
Chuis au boulot et j'ai pas ça dans VBA97 :cry:
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 :langue:
19/10/2006, 15h27
illight

Citation:

Envoyé par ouskel'n'or

Moi j'ai "InstrRev : Mot clé introuvable" dans l'aide en ligne
Chuis au boulot et j'ai pas ça dans VBA97 :cry:
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 :langue:

:langue: toi meme :langue:

N'empeche que ça marche, d'ailleurs c'est bizarre que chr ne m'ai pas claqué une erreur :roll:
19/10/2006, 15h34
ThierryAIM
Citation:

Envoyé par illight

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

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:

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