Excel 97, remplacer une valeur par une autreRésolu

Question

Bonjour,
Sur excel 97, j'ai créé des liens hypertextes pour lancer des fichiers (PDF, DOC etc...)
Les fichiers sont censés être sur un CD.
Sur mon PC, mon lecteur est référencé sous la lettre F: mais il se peut que sur un autre il soit référencé sur une autre lettre.
Je souhaite donc faire une petite macro qui permet de modifier la lettre du lecteur par une autre.
L'utilisateur choisi une lettre et les liens sont automatiquement modifiés.

Ce que je ne trouve pas, c'est comment lui dire : remplacer la lettre dans le cellule G5 des liens hypertexte des cellules de B1 à B50 par celle dans la cellule G6.

Le code suivant remplace la lettre E: par F:

   Range("G8:G28").Select
        Selection.Replace What:="E:", Replacement:="F:", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

A la place de E:, je souhaiterai qu'il prenne la valeur dans la cellule G5
A la place de F:, je souhaiterai qu'il prenne une valeur dans la cellule G6
Je ne sais pas comment faire,
Merci

jrivet · Accepted Answer

Salut,
essaie peu etre
 Range("G8:G28").Select
        Selection.Replace What:=Range("G5").Value, Replacement:=Range("G6").value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

@+: Ju£i?n
Pensez: Réponse acceptée

cs_kouki69 · Answer

Ca marche, merci...;-)

Excel 97, remplacer une valeur par une autre

2 réponses

Votre réponse