changer les liens...

[eymeric]

Bonjour,
j'ai un pb....:

Dans ma liste, j'ai fais des liens (dvdthèque) vers des affiches (type : affiches\nomdufilm.jpg)
Malheureusement, après avoir copié le tout sur un autre pc, il m'a changé tous les liens : C:\Documents and Settings\Laboratoire\Application Data\Microsoft\Excel\Affiches\nomdufilm.jpg.......

je voudrais donc éliminer systhématiquement :"C:\Documents and Settings\Laboratoire\Application Data\Microsoft\Excel\" !!
J'ai essayé la macro mais il me sélectionne toujours la même cellule !!!


Merci d'avance

 

[Bernard]

Bonjour Eymeric

As tu essayé avec Edition/Remplacer avec remplcer C:\Documents and Settings\Laboratoire\Application Data\Microsoft\Excel\ par rien dans la seconde zone

Cordialement

Bernard

 

[eymeric]

Merci mais cette fonction ne prend pas en compte les hyperliens !!

Voici un exemple .... une partie de ma liste, dans l'hyperlien vous voyez la partie que je veux supprimer.... !!!

Re merci !

 

[eymeric]

Je re-joins mon exemple, le précédent était invalide ! !

Personne n'a d'idée ?
Brigitte ...?

 

[michel]

Bonsoir eymeric , bonsoir bernard

j'espere qu'avec quelques adaptations l'exemple joint pourra t'aider


bonne soiree
michel

 

[eymeric]

Merci mais il y a un pépin :
Sub ChangerLien()
Dim Cible As String
Dim Cell As Range

For Each Cell In Range("D5😀8")
Cible = Cell.Hyperlinks(1).Address
Cible = "C:\" & Right(Cible, Len(Cible) - 71) ' adapter selon chemin repertoire
Cell.Hyperlinks(1).Address = Cible
Next

End Sub

La ligne posant pb est :

Cible = "C:\" & Right(Cible, Len(Cible) - 71) ' adapter selon chemin repertoire

-71 c'est le nombre de caractère à supprimer ?

 

[eymeric]

Voici une partie du "script editor"
<td height=17 width=80 style='height:12.75pt;width:60pt'></td>
</tr>
</table>
</span></td>
<td colspan=9 style='mso-ignore:colspan'></td>
</tr>
<tr height=20 style='height:15.0pt'>
<td height=20 colspan=3 style='height:15.0pt;mso-ignore:colspan'></td>
<td class=xl24><a
href="file:///C:\DOCUME~1\LABORA~1\LOCALS~1\Temp\MSE\liste\Affiches\mission%20alcatraz.jpg">MISSION
ALCATRAZ</a><![if !supportAnnotations]><span class=msocomspan1><span
class=msocomspan2 id="_anchor_1"
onmouseover="msoCommentShow('_com_1','_anchor_1')"
onmouseout="msoCommentHide('_com_1')" language=JavaScript><a
class=msocomanch href="#_msocom_1" name="_msoanchor_1">[1]</a></span></span><![endif]></td>
<td class=xl25>dvd</td>
<td class=xl26>Action</td>
<td class=xl27 x:num>1</td>
<td class=xl28 x:num>204</td>
<td class=xl29>&nbsp;</td>
<td></td>
</tr>


J'ai supprimé : file:///C:\DOCUME~1\LABORA~1\LOCALS~1\Temp\MSE\liste\
pour avoir : href="Affiches\mission%20alcatraz.jpg

mais dès que j'enregistre, la formule revient comme au début !! il me fait une mise à jour du lien !? comment l'éviter ?

en utilisant :
href="file:///\\Affiches\mission%20alcatraz.jpg j'obtiens unlien débutant par ..\Affiches\

merci pour votre aide

 

[eymeric]

Personne ne peut m'aider ????