Tri de chaines de caracteres dans un lien hypertexte.
5 réponses
intactsaphir
Bonjour,
Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour,
J'utiliserais une macro ressemblant à ceci :
'--------------------------------------------- Sub test() Dim Texte As String, Adr As String Dim SubAdr As String, ScrTip As String
Dim Rg As Range, C As Range
'**************VARIABLE À ADAPTER*************************** With Worksheets("NomDelaFeuille") 'Nom de la feuille 'tu définis la plage où sont tes liens hypertextes Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row) End With '****************************************************************** On Error Resume Next
For Each C In Rg '*************VARIABLE À ADAPTER**************** 'Tu remplaces "Texte2" par sa vraie valeur Texte = Split(C.Hyperlinks(1).Address, "Texte2")(1) '*************************************************** If Err <> 0 Then Err = 0 Else Adr = C.Hyperlinks(1).Address SubAdr = C.Hyperlinks(1).SubAddress ScrTip = C.Hyperlinks(1).TextToDisplay C.Hyperlinks(1).Delete C.Hyperlinks.Add anchor:=C, _ Address:r, _ ScreenTip:=Texte, _ TextToDisplay:=ScrTip End If Next End Sub '---------------------------------------------
"intactsaphir" a écrit dans le message de groupe de discussion : Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
'---------------------------------------------
Sub test()
Dim Texte As String, Adr As String
Dim SubAdr As String, ScrTip As String
Dim Rg As Range, C As Range
'**************VARIABLE À ADAPTER***************************
With Worksheets("NomDelaFeuille") 'Nom de la feuille
'tu définis la plage où sont tes liens hypertextes
Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row)
End With
'******************************************************************
On Error Resume Next
For Each C In Rg
'*************VARIABLE À ADAPTER****************
'Tu remplaces "Texte2" par sa vraie valeur
Texte = Split(C.Hyperlinks(1).Address, "Texte2")(1)
'***************************************************
If Err <> 0 Then
Err = 0
Else
Adr = C.Hyperlinks(1).Address
SubAdr = C.Hyperlinks(1).SubAddress
ScrTip = C.Hyperlinks(1).TextToDisplay
C.Hyperlinks(1).Delete
C.Hyperlinks.Add anchor:=C, _
Address:r, _
ScreenTip:=Texte, _
TextToDisplay:=ScrTip
End If
Next
End Sub
'---------------------------------------------
"intactsaphir" <nospam_intactsaphir@gmail.com> a écrit dans le message de groupe de
discussion : APOdnRPI98uOX_PW4p2dnAA@giganews.com...
Bonjour,
Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant
à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de
caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les
informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
'--------------------------------------------- Sub test() Dim Texte As String, Adr As String Dim SubAdr As String, ScrTip As String
Dim Rg As Range, C As Range
'**************VARIABLE À ADAPTER*************************** With Worksheets("NomDelaFeuille") 'Nom de la feuille 'tu définis la plage où sont tes liens hypertextes Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row) End With '****************************************************************** On Error Resume Next
For Each C In Rg '*************VARIABLE À ADAPTER**************** 'Tu remplaces "Texte2" par sa vraie valeur Texte = Split(C.Hyperlinks(1).Address, "Texte2")(1) '*************************************************** If Err <> 0 Then Err = 0 Else Adr = C.Hyperlinks(1).Address SubAdr = C.Hyperlinks(1).SubAddress ScrTip = C.Hyperlinks(1).TextToDisplay C.Hyperlinks(1).Delete C.Hyperlinks.Add anchor:=C, _ Address:r, _ ScreenTip:=Texte, _ TextToDisplay:=ScrTip End If Next End Sub '---------------------------------------------
"intactsaphir" a écrit dans le message de groupe de discussion : Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Bonjour, j'arrive à une formule longue comme ça en ligne 3: =STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&" "&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;" ";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1)) Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Bonjour,
j'arrive à une formule longue comme ça en ligne 3:
=STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);"
";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);"
";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);"
";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&"
"&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;"
";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1))
Cordialement
Michel dit "Sam"
"intactsaphir" <nospam_intactsaphir@gmail.com> a écrit dans le message de
news: APOdnRPI98uOX_PW4p2dnAA@giganews.com...
Bonjour,
Dans une colonne se trouve un nombre aléatoire de liens hypertextes se
référant
à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes
de
caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers,
les
informations essentielles afin que le nouveau lien hypertexte soit plus
court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Bonjour, j'arrive à une formule longue comme ça en ligne 3: =STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&" "&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;" ";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1)) Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Bonjour, j'arrive à une formule longue comme ça en ligne 3: =STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&" "&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;" ";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1)) Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
En testant la formule le résultat du formatage de la chaine de caractères du nouveau nom est celui demandé. Cependant, le lien hypertexte n'existe plus. Comment faire pour que celui ci soit toujours actif? Crdlmt IS
Sam a écrit le 07/02/2010 à 16h23 :
Bonjour,
j'arrive à une formule longue comme ça en ligne 3:
=STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);"
";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;"
";"$";3);"
";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;"
";"$";3);"
";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;"
";"$";3);" ";"*";2);1)-1)&"
"&DROITE(SUBSTITUE(A3;"
";"µ";5);NBCAR(SUBSTITUE(A3;"
";"µ";5))-TROUVE("µ";SUBSTITUE(A3;"
";"µ";5);1))
Cordialement
Michel dit "Sam"
"intactsaphir" a écrit
dans le message de
news:
Bonjour,
Dans une colonne se trouve un nombre aléatoire de liens hypertextes se
référant
à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les
chaînes
de
caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers,
les
informations essentielles afin que le nouveau lien hypertexte soit plus
court.
Voici le format du lien hypertexte des noms de fichiers originaux :
En testant la formule le résultat du formatage de la chaine de caractères du nouveau nom est celui demandé. Cependant, le lien hypertexte n'existe plus.
Comment faire pour que celui ci soit toujours actif?
Crdlmt
IS
Bonjour, j'arrive à une formule longue comme ça en ligne 3: =STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&" "&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;" ";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1)) Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
En testant la formule le résultat du formatage de la chaine de caractères du nouveau nom est celui demandé. Cependant, le lien hypertexte n'existe plus. Comment faire pour que celui ci soit toujours actif? Crdlmt IS
intactsaphir
michdenis a écrit le 07/02/2010 à 15h41 :
Bonjour,
J'utiliserais une macro ressemblant à ceci :
'--------------------------------------------- Sub test() Dim Texte As String, Adr As String Dim SubAdr As String, ScrTip As String
Dim Rg As Range, C As Range
'**************VARIABLE À ADAPTER*************************** With Worksheets("NomDelaFeuille") 'Nom de la feuille 'tu définis la plage où sont tes liens hypertextes Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row) End With '****************************************************************** On Error Resume Next
For Each C In Rg '*************VARIABLE À ADAPTER**************** 'Tu remplaces "Texte2" par sa vraie valeur Texte = Split(C.Hyperlinks(1).Address, "Texte2")(1) '*************************************************** If Err <> 0 Then Err = 0 Else Adr = C.Hyperlinks(1).Address SubAdr = C.Hyperlinks(1).SubAddress ScrTip = C.Hyperlinks(1).TextToDisplay C.Hyperlinks(1).Delete C.Hyperlinks.Add anchor:=C, _ Address:r, _ ScreenTip:=Texte, _ TextToDisplay:=ScrTip End If Next End Sub '---------------------------------------------
"intactsaphir" a écrit dans le message de groupe de discussion : Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Cependant les instructions suivantes sortent en erreur dans l'éditeur de vba SubAdr = C.Hyperlinks(1).SubAddress ScrTip = C.Hyperlinks(1).TextToDisplay C.Hyperlinks(1).Delete C.Hyperlinks.Add anchor:=C, _ Address:r, _ ScreenTip:=Texte, _ TextToDisplay:=ScrTip
Par ailleurs, à moins que je ne comprenne pas la phrase "tu remplaces texte2 par sa vraie valeur" le fait de fixer le texte2 est impossible en raison que chaque chaine de caractères est distincte et change à chaque nom de fichier.
Merci de me répondre.
Cdlmt
IS
michdenis a écrit le 07/02/2010 à 15h41 :
Bonjour,
J'utiliserais une macro ressemblant à ceci :
'---------------------------------------------
Sub test()
Dim Texte As String, Adr As String
Dim SubAdr As String, ScrTip As String
Dim Rg As Range, C As Range
'**************VARIABLE À ADAPTER***************************
With Worksheets("NomDelaFeuille") 'Nom de la feuille
'tu définis la plage où sont tes liens hypertextes
Set Rg = .Range("B4:B" &
.Range("B65536").End(xlUp).Row)
End With
'******************************************************************
On Error Resume Next
For Each C In Rg
'*************VARIABLE À ADAPTER****************
'Tu remplaces "Texte2" par sa vraie valeur
Texte = Split(C.Hyperlinks(1).Address, "Texte2")(1)
'***************************************************
If Err <> 0 Then
Err = 0
Else
Adr = C.Hyperlinks(1).Address
SubAdr = C.Hyperlinks(1).SubAddress
ScrTip = C.Hyperlinks(1).TextToDisplay
C.Hyperlinks(1).Delete
C.Hyperlinks.Add anchor:=C, _
Address:r, _
ScreenTip:=Texte, _
TextToDisplay:=ScrTip
End If
Next
End Sub
'---------------------------------------------
"intactsaphir" a écrit
dans le message de groupe de
discussion :
Bonjour,
Dans une colonne se trouve un nombre aléatoire de liens hypertextes se
référant
à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les
chaînes de
caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les
informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Cependant les instructions suivantes sortent en erreur dans l'éditeur de vba
SubAdr = C.Hyperlinks(1).SubAddress
ScrTip = C.Hyperlinks(1).TextToDisplay
C.Hyperlinks(1).Delete
C.Hyperlinks.Add anchor:=C, _
Address:r, _
ScreenTip:=Texte, _
TextToDisplay:=ScrTip
Par ailleurs, à moins que je ne comprenne pas la phrase "tu remplaces texte2 par sa vraie valeur" le fait de fixer le texte2 est impossible en raison que chaque chaine de caractères est distincte et change à chaque nom de fichier.
'--------------------------------------------- Sub test() Dim Texte As String, Adr As String Dim SubAdr As String, ScrTip As String
Dim Rg As Range, C As Range
'**************VARIABLE À ADAPTER*************************** With Worksheets("NomDelaFeuille") 'Nom de la feuille 'tu définis la plage où sont tes liens hypertextes Set Rg = .Range("B4:B" & .Range("B65536").End(xlUp).Row) End With '****************************************************************** On Error Resume Next
For Each C In Rg '*************VARIABLE À ADAPTER**************** 'Tu remplaces "Texte2" par sa vraie valeur Texte = Split(C.Hyperlinks(1).Address, "Texte2")(1) '*************************************************** If Err <> 0 Then Err = 0 Else Adr = C.Hyperlinks(1).Address SubAdr = C.Hyperlinks(1).SubAddress ScrTip = C.Hyperlinks(1).TextToDisplay C.Hyperlinks(1).Delete C.Hyperlinks.Add anchor:=C, _ Address:r, _ ScreenTip:=Texte, _ TextToDisplay:=ScrTip End If Next End Sub '---------------------------------------------
"intactsaphir" a écrit dans le message de groupe de discussion : Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
Cependant les instructions suivantes sortent en erreur dans l'éditeur de vba SubAdr = C.Hyperlinks(1).SubAddress ScrTip = C.Hyperlinks(1).TextToDisplay C.Hyperlinks(1).Delete C.Hyperlinks.Add anchor:=C, _ Address:r, _ ScreenTip:=Texte, _ TextToDisplay:=ScrTip
Par ailleurs, à moins que je ne comprenne pas la phrase "tu remplaces texte2 par sa vraie valeur" le fait de fixer le texte2 est impossible en raison que chaque chaine de caractères est distincte et change à chaque nom de fichier.
Merci de me répondre.
Cdlmt
IS
Sam
Bonjour, là je ne sais pas faire, il faudra sans doute passer par la macro de Michdenis. Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Sam a écrit le 07/02/2010 à 16h23 :
Bonjour, j'arrive à une formule longue comme ça en ligne 3: =STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&" "&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;" ";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1)) Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
En testant la formule le résultat du formatage de la chaine de caractères du nouveau nom est celui demandé. Cependant, le lien hypertexte n'existe plus. Comment faire pour que celui ci soit toujours actif? Crdlmt IS
Bonjour,
là je ne sais pas faire, il faudra sans doute passer par la macro de
Michdenis.
Cordialement
Michel dit "Sam"
"intactsaphir" <intactsaphir@domain-xyz.in> a écrit dans le message de news:
FZudnQCFVZJOcPPWRVn_vwA@giganews.com...
Sam a écrit le 07/02/2010 à 16h23 :
Bonjour,
j'arrive à une formule longue comme ça en ligne 3:
=STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);"
";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;"
";"$";3);"
";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;"
";"$";3);"
";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;"
";"$";3);" ";"*";2);1)-1)&"
"&DROITE(SUBSTITUE(A3;"
";"µ";5);NBCAR(SUBSTITUE(A3;"
";"µ";5))-TROUVE("µ";SUBSTITUE(A3;"
";"µ";5);1))
Cordialement
Michel dit "Sam"
"intactsaphir" a écrit
dans le message de
news:
Bonjour,
Dans une colonne se trouve un nombre aléatoire de liens hypertextes se
référant
à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les
chaînes
de
caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de
fichiers,
les
informations essentielles afin que le nouveau lien hypertexte soit plus
court.
Voici le format du lien hypertexte des noms de fichiers originaux :
En testant la formule le résultat du formatage de la chaine de caractères
du
nouveau nom est celui demandé. Cependant, le lien hypertexte n'existe
plus.
Comment faire pour que celui ci soit toujours actif?
Crdlmt
IS
Bonjour, là je ne sais pas faire, il faudra sans doute passer par la macro de Michdenis. Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Sam a écrit le 07/02/2010 à 16h23 :
Bonjour, j'arrive à une formule longue comme ça en ligne 3: =STXT(SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)+1;TROUVE("$";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-TROUVE("*";SUBSTITUE(SUBSTITUE(A3;" ";"$";3);" ";"*";2);1)-1)&" "&DROITE(SUBSTITUE(A3;" ";"µ";5);NBCAR(SUBSTITUE(A3;" ";"µ";5))-TROUVE("µ";SUBSTITUE(A3;" ";"µ";5);1)) Cordialement Michel dit "Sam"
"intactsaphir" a écrit dans le message de news:
Bonjour, Dans une colonne se trouve un nombre aléatoire de liens hypertextes se référant à des noms de fichiers (*.xls;*;doc).
Ces noms de fichiers sont formatés comme indiqué ci dessous. Les chaînes de caractères de chaque nom sont séparées par un espace.
Je souhaiterais, dans une autre colonne, extraire de ces noms de fichiers, les informations essentielles afin que le nouveau lien hypertexte soit plus court.
Voici le format du lien hypertexte des noms de fichiers originaux :
En testant la formule le résultat du formatage de la chaine de caractères du nouveau nom est celui demandé. Cependant, le lien hypertexte n'existe plus. Comment faire pour que celui ci soit toujours actif? Crdlmt IS
