OVH Cloud OVH Cloud

Une formule SVP

9 réponses
Avatar
VieLa
Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas. comme dit la chanson


Comment extraire le nom du fichier dans une colonne;
pour que je puisse par la suite faire le trie des noms de mes
fichiers.
(j'en ai des milliers :))


E:\Mes documents\Photos La Croche\Mini Carnaval\Vendredi 109.jpg
E:\Mes documents\Photos La Croche\Mini Carnaval\Dimanche\Fin mini
carnaval 009.jpg
E:\Mes documents\tst-zip\test\LISEZMOI.TXT
E:\Mes documents\copi du bureau\bricolage & travail du
bois_fichiers\francais_fichiers\table_fichiers\collage_plateau.jpg
E:\Mes documents\Einstein.xls


Merci de votre aide
VieLa

9 réponses

Avatar
michdenis
Bonsoir VieLa,

En supposant que tes chemins et fichiers sont en colonnes A et que tu veuilles obtenir en colonne B seulement les noms des
fichiers contenus en colonne A, tu peux faire ceci... la fonction "split " de la fonction personnalisée NomFichier(Rg As
Range) requiert au moins une version Excel 2000 ou plus récente...
Tu copies ce qui suit dans un module standard, et , dans la procédure "CopierLaFormule", tu prends soin de remplacer le nom
de la feuille et les plages désignées par celles de ton application.

'---------------------------
Sub CopierLaFormule()

With Worksheets("Feuil1")
.Range("b1:b100").Formula = "=NomFichier(" & .Range("A1").Address & ")"
.Range("B1:B100").Value = .Range("B1:B100").Value
End With
End Sub
'---------------------------

Function NomFichier(Rg As Range) As String

NomFichier = Split(Rg, "")(UBound(Split(Rg, "")))

End Function
'---------------------------

Si tu as une version plus ancienne qu'excel 2000 remplace la ligne de code de la fonction personnalisé par celle-ci :

NomFichier = Mid(Rg, InStrRev(Rg, "", , vbTextCompare) + 1)


Salutations!






"VieLa" a écrit dans le message de news:wywVc.28845$
Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas. comme dit la chanson


Comment extraire le nom du fichier dans une colonne;
pour que je puisse par la suite faire le trie des noms de mes
fichiers.
(j'en ai des milliers :))


E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentsPhotos La CrocheMini CarnavalDimancheFin mini
carnaval 009.jpg
E:Mes documentstst-ziptestLISEZMOI.TXT
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg
E:Mes documentsEinstein.xls


Merci de votre aide
VieLa
Avatar
michdenis
Tu peux toujours utiliser la fonction personnalisée directement dans la feuille

Si l'information du chemin et fichier est dans la cellule A1, tu peux écrire en B1 ou dans n'importe quelle autre cellule NomFichier(A1) et tu vas obtenir directement le nom du fichier ....


Salutations!



"michdenis" a écrit dans le message de news:
Bonsoir VieLa,

En supposant que tes chemins et fichiers sont en colonnes A et que tu veuilles obtenir en colonne B seulement les noms des
fichiers contenus en colonne A, tu peux faire ceci... la fonction "split " de la fonction personnalisée NomFichier(Rg As
Range) requiert au moins une version Excel 2000 ou plus récente...
Tu copies ce qui suit dans un module standard, et , dans la procédure "CopierLaFormule", tu prends soin de remplacer le nom
de la feuille et les plages désignées par celles de ton application.

'---------------------------
Sub CopierLaFormule()

With Worksheets("Feuil1")
.Range("b1:b100").Formula = "=NomFichier(" & .Range("A1").Address & ")"
.Range("B1:B100").Value = .Range("B1:B100").Value
End With
End Sub
'---------------------------

Function NomFichier(Rg As Range) As String

NomFichier = Split(Rg, "")(UBound(Split(Rg, "")))

End Function
'---------------------------

Si tu as une version plus ancienne qu'excel 2000 remplace la ligne de code de la fonction personnalisé par celle-ci :

NomFichier = Mid(Rg, InStrRev(Rg, "", , vbTextCompare) + 1)


Salutations!






"VieLa" a écrit dans le message de news:wywVc.28845$
Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas. comme dit la chanson


Comment extraire le nom du fichier dans une colonne;
pour que je puisse par la suite faire le trie des noms de mes
fichiers.
(j'en ai des milliers :))


E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentsPhotos La CrocheMini CarnavalDimancheFin mini
carnaval 009.jpg
E:Mes documentstst-ziptestLISEZMOI.TXT
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg
E:Mes documentsEinstein.xls


Merci de votre aide
VieLa
Avatar
AV
E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg

....
Comment extraire le nom du fichier dans une colonne;


Avec tes chemins complets en A1:Ax
En B1 et recopie --> Bx

=STXT(A1;MAX(ESTNUM(TROUVE("";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))*LIGN
E(INDIRECT("1:"&NBCAR(A1))))+1;9^9)

Matricielle (validation par ctrl+maj+entrée)

AV

Avatar
michdenis
Bonsoir AV,

J'ai l'impression que les vacances ont été dures dures! :-)) ... ta formule retourne pas seulement le nom du fichier! mais la
section C: et le nom du fichier.

Peut-être que c'est moi qui devrais aller au lit? ;-)



Salutations!



"AV" a écrit dans le message de news:%
E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg

....
Comment extraire le nom du fichier dans une colonne;


Avec tes chemins complets en A1:Ax
En B1 et recopie --> Bx

=STXT(A1;MAX(ESTNUM(TROUVE("";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))*LIGN
E(INDIRECT("1:"&NBCAR(A1))))+1;9^9)

Matricielle (validation par ctrl+maj+entrée)

AV

Avatar
VieLa
Merci AV pour ta formule qui fonctionne très bien à première vue.

VieLa


"AV" a écrit dans le message de
news:%
E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg

....
Comment extraire le nom du fichier dans une colonne;


Avec tes chemins complets en A1:Ax
En B1 et recopie --> Bx


=STXT(A1;MAX(ESTNUM(TROUVE("";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)))*

LIGN
E(INDIRECT("1:"&NBCAR(A1))))+1;9^9)

Matricielle (validation par ctrl+maj+entrée)

AV





Avatar
VieLa
Merci pour ta réponse michdenis, mais elle me retourne une erreur est-ce
bien ?

=NomFichier(A1)

VieLa
"michdenis" a écrit dans le message de
news:%
Tu peux toujours utiliser la fonction personnalisée directement dans la
feuille


Si l'information du chemin et fichier est dans la cellule A1, tu peux
écrire en B1 ou dans n'importe quelle autre cellule > NomFichier(A1) et tu vas obtenir directement le nom du fichier ....



Salutations!



"michdenis" a écrit dans le message de
news:

Bonsoir VieLa,

En supposant que tes chemins et fichiers sont en colonnes A et que tu
veuilles obtenir en colonne B seulement les noms des

fichiers contenus en colonne A, tu peux faire ceci... la fonction "split "
de la fonction personnalisée NomFichier(Rg As

Range) requiert au moins une version Excel 2000 ou plus récente...
Tu copies ce qui suit dans un module standard, et , dans la procédure
"CopierLaFormule", tu prends soin de remplacer le nom

de la feuille et les plages désignées par celles de ton application.

'---------------------------
Sub CopierLaFormule()

With Worksheets("Feuil1")
.Range("b1:b100").Formula = "=NomFichier(" & .Range("A1").Address &
")"

.Range("B1:B100").Value = .Range("B1:B100").Value
End With
End Sub
'---------------------------

Function NomFichier(Rg As Range) As String

NomFichier = Split(Rg, "")(UBound(Split(Rg, "")))

End Function
'---------------------------

Si tu as une version plus ancienne qu'excel 2000 remplace la ligne de code
de la fonction personnalisé par celle-ci :


NomFichier = Mid(Rg, InStrRev(Rg, "", , vbTextCompare) + 1)


Salutations!






"VieLa" a écrit dans le message de
news:wywVc.28845$

Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas. comme dit la chanson


Comment extraire le nom du fichier dans une colonne;
pour que je puisse par la suite faire le trie des noms de mes
fichiers.
(j'en ai des milliers :))


E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentsPhotos La CrocheMini CarnavalDimancheFin mini
carnaval 009.jpg
E:Mes documentstst-ziptestLISEZMOI.TXT
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg
E:Mes documentsEinstein.xls


Merci de votre aide
VieLa






Avatar
AV
J'ai l'impression que les vacances ont été dures dures! :-)) ... ta formule
retourne pas seulement le nom du fichier! mais la

section C: et le nom du fichier.


** C'est parceque tu n'as pas validé matriciel !

Peut-être que c'est moi qui devrais aller au lit? ;-)


** C'est toi qui voit !

;-)
AV

Avatar
ru-th
Salut

si tu en as des milliers, la matricielle chiroguourdiste (expression
antinomique !) bien que jolie risque de faire ramer !
d'où la galère romaine, (Avé les galériens !) ;-))
un peu de vba ?
Sub test()
For i = 1 To [a65536].End(xlUp).Row
'début ligne
Cells(i, 2) = StrReverse(Mid(StrReverse(Cells(i, 1)), 1,
Application.Find("", StrReverse(Cells(i, 1))) - 1))
'fin ligne
Next
End Sub

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"VieLa" a écrit dans le message de
news:wywVc.28845$
Bonjour à tous,

Je cherche, je cherche mais je ne trouve pas. comme dit la chanson


Comment extraire le nom du fichier dans une colonne;
pour que je puisse par la suite faire le trie des noms de mes
fichiers.
(j'en ai des milliers :))


E:Mes documentsPhotos La CrocheMini CarnavalVendredi 109.jpg
E:Mes documentsPhotos La CrocheMini CarnavalDimancheFin mini
carnaval 009.jpg
E:Mes documentstst-ziptestLISEZMOI.TXT
E:Mes documentscopi du bureaubricolage & travail du
bois_fichiersfrancais_fichierstable_fichierscollage_plateau.jpg
E:Mes documentsEinstein.xls


Merci de votre aide
VieLa




Avatar
AV
** Pffff N°1 : .... le Monsieur a demandé une formule !

si tu en as des milliers, la matricielle chiroguourdiste (expression
antinomique !) bien que jolie risque de faire ramer !


** Pffff N°2: .... "chiroguourdiste"
C'est ki ki a les doigts gourds ? hein ?

** Pffff N°3 : .... t'as essayé (sur qques milliers de cellules) la formule en
B1 avec un double-clic sur la poignée et ta "bouclette" qui n'en finit plus
d'afficher un sablier ?
M'est avis que l'effet est strictement inverse ;-)

**Pffff N°4 ... c'est pour ceux que j'ai oublié !

AV