Discussion :

[Oh!Tofocus]

Voila j'ai fait une petite sub qui sépare le nom d'un fichier de son extension.
Mais je trouve que ma routine est particulierement lourde
Avez vous une autre solution plus pro ou plus bidouille ( deuligne !)

voila un bout de ma sub
en A1 : nom du fichier avec extensio ( ex: Photo_de_vacance_001.jpg )

Aprés lancement de la moulinette

on obtient
en B1 : Photo_de_vacance_001
en C1 : jpg

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim A As String
Sub extraire()
A = Range("A1").Value
For R = Len(A) To 1 Step -1
    C = Mid(A, R, 1)
    If C = "." Then
    solution = Left(A, R - 1)
    extension = Right(A, Len(A) - R)
    R = 0
    End If
Next R
Range("B1").Value = solution
Range("C1").Value = extension
End Sub

A+

[kiki29]

Essaie en regardant dans l'aide en ligne : InStrRev ( voir plus bas )

[fring]

Bonjour,

Essaye ceci :

Code :

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

1
2
3
4
5
6
7
Sub extension()
Dim X%, Chaine$
Chaine = Range("A1").Value
X = Len(Chaine)
Range("B1") = Mid(Chaine, 1, X - 4)
Range("C1") = Mid(Chaine, X - 2)
End Sub

[kiki29]

En pensant à Excel 2007 par exemple ( extension xlsm,docx etc )

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Sub extension2()
Dim X As Integer, Chaine As String, Pos As Integer
    Chaine = Range("A1").Value
    Pos = InStrRev(Chaine, ".")
    If Pos > 0 Then
        Range("B1") = Left(Chaine, Pos - 1)
        Range("C1") = Right(Chaine, Len(Chaine) - Pos)
    End If
End Sub

[Oh!Tofocus]

Merci pour vos reponses rapides

ok fring ta solution doit marcher mais si l'extension ne fait pas 3 caractères il y a problème ( je ne l'avais pas précisé dans mon post )

je retiens la solution de kiki29
voici mon adaptation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim A As String
Sub extraire()
A = Range("A1").Value
r = InStrRev(A, ".")
If r <> 0 And A <> "" Then
    solution = Left(A, r - 1)
    extension = Right(A, Len(A) - r)
    Else
    solution = A
    extension = ""
End If
Range("B1").Value = solution
Range("C1").Value = extension
End Sub

encore merci et bonsoir....

[Oh!Tofocus]

merci kiki29 nos réponses se sont croisées !

[fring]

Merci pour vos reponses rapides

ok fring ta solution doit marcher mais si l'extension ne fait pas 3 caractères il y a problème ( je ne l'avais pas précisé dans mon post )

J'y avais pensé, mais je ne connais pas beaucoup de types de fichiers comportant + ou - que 3 caractères dans l'extension.

aaah je viens de lire la réponse de kiki, je ne savais pas que Bilou avait modifié les extensions dans la version 2007, ok on oublie ma solution
Bonne soirée