selectionner une partie de texte dans une cellule
Le
Gilles72
bonjour à tous,
ci dessous le chemin de fichiers d'un repertoire, listés par macro dans un
fichier xl
S:\Affaires\Leroy G\O30208\O30208 dossier CHANTIER
INFORMATIQUE\2-Fournisseurs & Magasin\O30208 Bon de sortie.xls
S:\Affaires\Leroy G\O30208\O30208 dossier CHANTIER
INFORMATIQUE\5-Sécurité\21-O30208 fiche individuelle exposition amiante.xls
j'aimerais trouver une macro ou fonction pour copier sur une cellule à côté
la partie finale du nom de fichier située à droite de l'espace
ex:
Bon de sortie.xls
fiche individuelle exposition amiante.xls
Le résultat à obtenir ne comprtant pas le même nombre de caractères, je ne
peux pas utiliser la fonction DROITE
Si kekun a une idée la dessus
merci
Gilles
ci dessous le chemin de fichiers d'un repertoire, listés par macro dans un
fichier xl
S:\Affaires\Leroy G\O30208\O30208 dossier CHANTIER
INFORMATIQUE\2-Fournisseurs & Magasin\O30208 Bon de sortie.xls
S:\Affaires\Leroy G\O30208\O30208 dossier CHANTIER
INFORMATIQUE\5-Sécurité\21-O30208 fiche individuelle exposition amiante.xls
j'aimerais trouver une macro ou fonction pour copier sur une cellule à côté
la partie finale du nom de fichier située à droite de l'espace
ex:
Bon de sortie.xls
fiche individuelle exposition amiante.xls
Le résultat à obtenir ne comprtant pas le même nombre de caractères, je ne
peux pas utiliser la fonction DROITE
Si kekun a une idée la dessus
merci
Gilles
Poser une question
=STXT(A1;NBCAR(A1)-EQUIV(" ";STXT(A1;NBCAR(A1)-
LIGNE(INDIRECT("1:"&NBCAR(A1)));1);0)+1;999)
Valider avec Maj+Ctrl+Entrée
JB
On 8 fév, 13:53, "Gilles72"
JB
On 8 fév, 14:13, JB
Extraction après le dernier espace (dans la chaîne située en A1) :
(matricielle à valider par ctrl+maj+entrée) :
=STXT(A1;EQUIV(2;1/(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)=" "))+1;9^9)
AV
Rebonjours Gilles
Une solution Macro pas trés élégante mais efficace :
Soit la Cellule A1 ayant le chemin
En cellule A2 le nom du fichier :
A = Split(Range("A1"))
For i = 1 To UBound(A)
If Split(Range("A1"), "")(i) Like "*.xls" Then
Nom = Split(Range("A1"), "")(i)
Exit For
End If
Next
For J = 1 To Len(Nom)
Car = Mid(Nom, J, 1)
If Car = " " Then
Exit For
End If
Next
Range("A2") = Mid(Nom, J + 1)
Celà devrait convenir
Dis moi !!!!
Pour JB et AV
je m'aperçois que je vous ai enduit avec de l'erreur en pâte:
en fait l'espace , c'est celui situé après O30208
mes excuses ...
Pour François
la macro bug à cette ligne
If Split(Range("A1"), "")(i) Like "*.xls" Then
Merci à tous
Gilles