Discussion :

[adriano057]

Salut tout le monde,

J'ai une chaîne de caracère du type "NomFichier.xls" et je voudrais récupérer (via du code VBA je suppose) seulement "NomFichier" (donc sans le ".xls" ) sachant que la longueur du champ "NomFichier" est variable. Si quelqu'un sait comment faire...

[guigui5931]

Tu fait

Code :

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

1
2
 
Left("nomfichier",Len("nomfichier")-4)

et après tu met ton résultat dans une variable, ou un champs d'un formulaire, ça dépend de ce que tu veux en faire

[snoopy69]

C'est peut être compliqué mais :

Il existe une fonction qui permet de sélectionner un caractère dans une chaîne de texte.

Sélectionne le "." puis, stocke tous les caractères avant le "." dans une variable ...

Moi je le fais comme suit :

Code :

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

str_PointFiltre = InStr("1", str_FiltreValeur, ".", vbTextCompare)

sachant que : str_PointFilre, str_FiltreValeur sont des variables ... ... ...

Recherche des infos sur la fonction :

Code :

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

INSTR

...

En espérant t'avoir aidé ...

PS : La solution qui t'est proposée dans le poste ci-dessus est tout aussi fonctionnelle ...

[Mahefasoa]

Salut,

guigui5931 a écrit:

Left("nomfichier",Len("nomfichier")-4)

Ceci marhe très bien ... si l'extension est limité à 3 caractères! Les développeurs ont toujours tendance à créer leurs propres types de fichier avec des extensions plus farfelues que les autres. Il faut donc s'attendre à une extension consitituée de 4 caractères ou plus.
On sait tout simplement que le nom de fichier se trouve la plupart du temps avant le point!
Pour ce faire, il suffit de savoir à quelle position se situe le "point" et le nom du fichier est constitué de tous les caractères qui se trouvent avant ce point.

Pour retrouver la position du "point", on procède comme suit:
InStr(1,"nomfichier",".",vbTextCompare)
Cette fonction renvoi 0 si le caractère "point" ne se trouve pas dans la chaîne "nomfichier" et différent de 0 dans le cas contraire
Pour le nom du fichier,
Mid("nomfichier",InStr(1,"nomfichier",".",vbTextCompare)-1)

Et qu'en est-il si le nom de fichier lui même contient un point et que l'extension se trouve après le dernier point? Une autre histoire ...

[Arkham46]

slt,

une solution avec une API :

Code à mettre dans un module :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
Private Declare Function PathRemoveExtension Lib "shlwapi" _
   Alias "PathRemoveExtensionA" _
  (ByVal pPath As String) As Long
 
Public Function RemoveExtension(ByVal pFichier As String) As String
Dim lPos As Integer
PathRemoveExtension pFichier
lPos = InStr(pFichier, Chr(0))
If lPos Then
    RemoveExtension = Left(pFichier, lPos - 1)
Else
    RemoveExtension = pFichier
End If
End Function

Code test :

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

Msgbox RemoveExtension("machin.truc.jpeg")

[adriano057]

Pour le nom du fichier,
Mid("nomfichier",InStr(1,"nomfichier",".",vbTextCompare)-1)

çà ne marche pas trop bien il vaut mieux utiliser :

Code :

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

Left("nomfichier",InStr(1,"nomfichier",".",vbTextCompare)-1)

Par contre

Option Explicit
Private Declare Function PathRemoveExtension Lib "shlwapi" _
Alias "PathRemoveExtensionA" _
(ByVal pPath As String) As Long

Public Function RemoveExtension(ByVal pFichier As String) As String
Dim lPos As Integer
PathRemoveExtension pFichier
lPos = InStr(pFichier, Chr(0))
If lPos Then
RemoveExtension = Left(pFichier, lPos - 1)
Else
RemoveExtension = pFichier
End If
End Function

Ce module est parfait & fonctionne ds ts les cas.

Encore Merci pr votre aide