Liens hyper texte et modification de code VBA

bonjour a tous

j ai 2 questions sur lien hyper texte

1 question

j aimerai afficher le chemin des liens hyper texte qui se trouve dans la colonne H et les afficher dans la colonne" I" en code VBA

et surtout de pouvoir enregistrer mon dossier ou se trouve mon fichier excel sur une cle USB ou un autre ordinateur sans perdre

mes liens hyper texte

j ai ecris un code (code qui se trouve dans le module 1 )mais ca fonctionne pas

le but étant d'ecrire un code pour pouvoir enregistrer n importe ou sans perdre mes liens hyper texte

2 questions

j aimerai mettre le liens hyper dans mon userform dans la case justificatif

pouvez vous m'aider a modifier ce code excitant

merci a vous

Bonjour,

à tester,

Sub extrationlienshypertextes2()
Dim cell As Range
With ActiveSheet
 For i = 1 To .Hyperlinks.Count
   x = .Hyperlinks(i).Range.Address
  .Range(x).Offset(0, 1) = .Hyperlinks(i).Address
 Next i
 End With
End Sub

en colonne H mettre la formule,

=LIEN_HYPERTEXTE(I6;"Devis")

bonjour sabV

j ai mis la formule dans la colonne H

ca affiche "0"

j'ai mis le code que tu m as donne dans le module 1 mais je sais pas quand il exécute cette tache

re,

j'ai mis le code que tu m as donne dans le module 1 mais je sais pas quand il exécute cette tache

sur quel événement veux-tu que le code s'exécute ?

à l'activation de cette onglet ?

à l'ouverture du fichier ?

ou autre ?

re

a chaque fois que je rajoute un lien hyper texte

petite précision

quand je clic sur devis( colonne H6) pour inserer mon lien hyper texte je voudrai qu'il affiche en Ie lien en I6

s'il j ai pas de lien il affiche en H6 donc la cellule reste vide

merci

re,

la macro ne devrait être exécuter qu'une seule fois pour corriger les lien déjà créer.

par la suite, au lieu de créer un lien, vous n'avez qu'à inscrire le chemin en colonne I et recopier la formule en colonne H.

je viens essayer et je n'arrive a copier le chemin complet

quand je clic sur le chemin, le fichier ne s ouvre pas

re,

je ne comprend pas ?

en fait

quand je mets la formule dans la colonne i et que je mes mon liens hypertexte en en H

resultat

le chemins s'affiche bien en H

donc je suppose quand je sauvegarde ou je deplace mon dossier les liens se modifie

par contre le probleme est comment recuperer les anciens liens

oups j ai bien mis la formule en H

re,

 je mes mon liens hypertexte en en H 

le chemin valide doivent être mis en colonne I, par exemple (I6)

et la formule =LIEN_HYPERTEXTE(I6;"Devis") en cellule H6

ok ca marche pour les nouvelle commande que j insere

mais pas pour les anciennes comment faire pour recuperer les liens en automatique

re,

voici un exemple de 3 liens récupérés par la macro

../../AppData/Roaming/Microsoft/Excel/devis/commande 2018/AB MECA jonction machine.pdf

..\..\AppData\Roaming\Microsoft\Excel\devis\commande 2018\festo amendine.pdf

devis\commande 2018\electro reims carte automate.pdf

je ne crois pas que toutes vos ancien liens étaient des liens valide.

non tous les liens non sont pas valide c'est pour ca que je veux les mettre recuperer en automatique pour voir lequel j ai oublie

par contre les anciens ne fonctionne pas (j arrive pas a les recuperer)

je ne sais pas qu'es ce que j'ai louppe !

re,

voici les anciens lien récupérés sur le fichier que vous avez transmis

ok merci ca marche

encore merci et bonne soiree a vous