Retravailler adresse fichier

Bonsoir,

J'ai une application métier qui m'édite l'adresse d'un graphique ".bmp"

Je récupère cette adresse pour pouvoir insérer facilement et rapidement le graphique ".bmp"

Sauf que je viens de me rendre compte que l'adresse générée est incomplète et donc inutilisable en l'état.

Je souhaitais savoir s'il était passible de la retravailler via une macro.

L'adresse générée est la suivante:

C:\LUDHIC-Application\LUDHIC\2014\HIC-2.bmp

Alors que l'adresse réelle est celle-ci:

C:\Users\ESPACE-VERT\Desktop\LUDHIC-Application\LUDHIC\2014\HIC-2.bmp

Si quelqu'un a une idée, je suis preneur.

Merci et bonne soirée

Bonsoir,

les adresses sont-elles des hyperliens ?

si c'est le cas, voici une macro qui fait la modification des adresses hyperliens et de la valeur dans la cellule si elle contient aussi une adresse.

selectionner les cellules à modifier avant de lancer la macro

Sub modifielien()
    ancad = "C:\" ' ancien texte à remplacer
    nouvad = "C:\Users\ESPACE-VERT\Desktop\" ' nouveau texte qui remplace l'ancien
    For Each c In Selection ' on passe en revue toutes les cellules sélectionnées
        c.Value = Replace(c.Value, ancad, nouvad) ' on fait le remplacement dans la cellule
        For Each hpl In c.Hyperlinks ' s'il y a un ou plusieurs hyperliens associés à cette cellule
            hpl.Address = Replace(hpl.Address, ancad, nouvad) ' on fait le remplacement dans l'hyperlien
        Next
    Next
End Sub

Bonsoir H2so4,

Merci pour ta collaboration, ce ne sont pas des liens hypertextes.

Je vais essayer d'adapter ta macro.

J'ai utilisé la fonction Right pour supprimer les deux premières lettres et finalement réussi à adapter l'adresse.