Discussion :

[ju89100]

Bonjour a tous,

Je me suis créé un petit tableau excel qui scan mon dossier musique. je me retrouve donc avec en Col A les Titre.mp3 et en Col B le chemin complet du fichier c:\music\titre.mp3 sous forme de lien hypertexte "Écouter" (quand je clic dessus ça lis la musique).

je voudrai en colonne C avoir le chemin seul sans le titre ex: C:\music\ sous forme de lien hypertexte "Afficher" pour ouvrir le dossier contenant le fichier

la question est donc, comment lui dire de prendre le chemin complet en col B et d'y enlever le titre en Col A


merci

ju

[SfJ5Rpw8]

Bonjour,

à toi de revoir les fonctions de texte ...

http://silkyroad.developpez.com/Exce...ionsExcel/#LII
=NbCar() , =Gauche()...

ou en VBA
http://silkyroad.developpez.com/VBA/...nesCaracteres/


Tu devrais t'en tirer avec Len() et Left()

[patricktoulon]

bonjour
principe
c=replace(b,a)
en terme de code cela pourrait ressembler a ca
pour la 1 ere ligne si elle demarre en ligne 1

Code :

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

[c1]=replace([B1].value,[A1].value)

[ju89100]

Voila ca marche nickel, j'ai juste perdu 1h pour un "s", a la ligne Chemin = Left(... cell au lieu de cells

merci de m'avoir mis sur la piste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim h As Long
Dim adresseTitre As String
Dim NBTitre As Integer
Dim NBChem As Integer
Dim NBLen As Integer
Dim Chemin As String
 
h = 2
Do While Range("B" & CStr(h)).Value <> "" 's’arrête dés qu'il rencontre une cellule vide
adresse = Sheets("rslts").Cells(h, "B")
NBTitre = Len(Sheets("rslts").Cells(h, "A")) 'on compte le nombre de caractère en A
NBChem = Len(Sheets("rslts").Cells(h, "B")) 'on compte le nombre de caractère en B
NBLen = NBChem - NBTitre 'on soustrait A a B
MsgBox NBChem 'indique le nombre de caractère dans B
MsgBox NBTitre 'indique le nombre de caractères dans A
MsgBox NBLen 'Resultat de B - A
Chemin = Left(Sheets("rslts").cells(h, "B").Value, NBLen) 'on garde le nombre de caractère de B calculé précédemment
MsgBox Chemin
 
ActiveSheet.Hyperlinks.Add Anchor:=Range("B" & CStr(h)), Address:="file:" & adresse, TextToDisplay:="Ecouter"
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & CStr(h)), Address:="file:" & Chemin, TextToDisplay:="Afficher"
h = h + 1
Loop

[patricktoulon]

entre nous il y avait beaucoup plus simple
un simple replace aurait suffi

[Marc-L]

Bonjour, bonjour !

Le plus simple (et sans la colonne A !) : via Split & Join ou InStrRev & Left …

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Demo1()
    B$ = "c:\music\titre.mp3"
    SP = Split(B, "\"):  SP(UBound(SP)) = ""
    MsgBox Join$(SP, "\")
End Sub
 
Sub Demo2()
    B$ = "c:\music\titre.mp3"
    MsgBox Left$(B, InStrRev(B, "\"))
End Sub

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse