Lien Hypertexte

[Esox]

Bonjour le forum,

J'ai une macro qui fait appel a une référence, et selon cette dernière informe une autre cellule. Le problème, celle ci doit être un lien hypertexte. En premier lieu cela fonctionne mais dans la cellule de destination cela ne prend pas encompte le lien mais met "FAUX".
voici la partie du code concerné...

With ThisWorkbook.Sheets("Résas")
reference3 = .Range("T1")
info3 = .Range("=HYPERLINK(R[-2]C,NOW())")

Set celluleRecherche = .Range("A:A").Find(reference3, , xlValues, xlWhole)
If Not celluleRecherche Is Nothing Then
memAdresse = celluleRecherche.Address
Do
celluleRecherche.Offset(0, 6).Value = info3
Set celluleRecherche = .Range("A:A").FindNext(celluleRecherche)
Loop Until celluleRecherche.Address = memAdresse
End If
End With






Auriez vous une idée, ou bien une ligne de commende qui peut faire référence a un lien hypertexte sans le perdre???
Merci bcp.
Stef.

 

[Esox]

Re : Lien Hypertexte

Bonjour le forum,
Je vais tenter de préciser ce que je veux.
Dans la macro que vous trouverez dans la pièce jointe il y a cette ligne :
celluleRecherche.Offset(0, 1).Value = info

quand à lexcution elle va me chercher la valeur de "info" j'aimerais qu'elle garde le format "lien hypertexte".

En fait dans mon fichier principal, cette macro que j'ai adaptée me permet de mettre à jour certaines commandes, et les sauvegardes. Quand j ai procé à une modif, il me fait une sauvegarde et je souhaiterai mettre la date de cette sauvegarde au format "lien" qui me renvoi vers le fichier. Tout marche, sauf le lien.
Ci joint un fichier "exemple" qui j'espère pourra vous, et surtout m'aider.
Merci à tous.
Stef.

 

[kjin]

Re : Lien Hypertexte

Bonsoir,
Euh, rien compris !
D'autant que je ne vois pas à quoi sert un lien hypertexte si c'est juste pour ouvrir un répertoire
Qq explications claires seront bienvenues
A+
kjin

 

[Esox]

Re : Lien Hypertexte

Bonsoir,
C'est un exemple, au final ce n'est pas un dossier mais un fichier.
MA question se résume juste au fait de savoir comment retranscrire un lien hyper texte via un offset(x,x).value, mes connaissances s'arretant là.
Dans mon fichier exemple, lors de la mise à jour, la macro retranscrit la valeur et non pas le lien, ce que je voudrais.
MErci encore à tous...
Stef.

 

[Esox]

Re : Lien Hypertexte

Bonjour le forum,
Personne n'a une piste ???
Merci encore et désolé d'insister.
Stef.

 

[kjin]

Re : Lien Hypertexte

Bonjour,
Je dois être un peu bouché sans doute, mais je ne comprends toujours pas où est le pb !

'...
        Do
            celluleRecherche.Offset(0, 1).Formula = [COLOR=Blue]"=HYPERLINK(F1 ,TODAY())"[/COLOR]
            Set celluleRecherche = .Range("A:A").FindNext(celluleRecherche)
        Loop Until celluleRecherche.Address = memAdresse
'...

A+
kjin

 

[Esox]

Re : Lien Hypertexte

Bonjour Kjin,

et bien faut que j essaye ta ligne, mais tu vois le language VBA je le découvre, et là tu met :" blablabla.formula" et moi je mettais "blablabla.value", cela vient peut etre tout simplement de ca. Je fais un essai. Car ma macro me renvoyais la valeur mais faisait fi de mon lien....

Pffffiiiouuuuu quand je me relis, je comprends qu on ai du mal a me comprendre......

merci à tous

 

[kjin]

Re : Lien Hypertexte

Re,
On commence tous un jour et je ne te blâme aucunement sur ce point tu l'auras compris.
Par contre l'explication dois être la plus claire possible.
Il suffisait de dire que tu souhaitais une formule dans la cellule adjacente, par contre je n'ai toujours pas compris ton lien hypertexte car ne sais pas s'il contient des variables, d'où ma précédente question à ce sujet
A+
kjin

 

[Esox]

Re : Lien Hypertexte

Re,
non mon lien ne contient que le chemin de la sauvegarde du fichier, et je veux renvoyer ce lien avec pour texte la date de modif.
En fait j'ai une cellule S1 = lien_hypertexte(chemin_de_sauvegarde;maintenant())

et ensuite ma macro :

With ThisWorkbook.Sheets("Résas")
reference3 = .Range("T1")
info3 = .Range("S1")

Set celluleRecherche = .Range("A:A").Find(reference3, , xlValues, xlWhole)
If Not celluleRecherche Is Nothing Then
memAdresse = celluleRecherche.Address
Do
celluleRecherche.Offset(0, 6).Formula = info3
Set celluleRecherche = .Range("A:A").FindNext(celluleRecherche)
Loop Until celluleRecherche.Address = memAdresse
End If
End With


mais il me renvoit donc dans la 6ème colonne, en regard des référence3, uniquement la date, mais pas le lien qui va avec. Alors qu'en S1, il y a bien le lien.

Voilà, je continue à chercher et je te remercie de l'aide que tu m'a apportée et que tu m'apporteras encore j'en suis sûr ;-)

Stef.

 

[kjin]

Re : Lien Hypertexte

Re,
Si tu écris

    info3 = .Range("S1")

cela équivaut par défaut à

    info3 = .Range("S1").value

donc info3 renvoie la valeur de S1 et non la formule qu'elle contient
essaie

    info3 = .Range("S1").Formula

A+
kjin

 

[Esox]

Re : Lien Hypertexte

re,
non de diouuuu !!! ca marche je crois... je suis hyper content.....
sacrée épine du pied qui est ressortie !!!!!
fo ke j adapte sur toute mon appli et cas de figure et je crois que ce sera ok
encore GROS merci
Stef

 

[Esox]

Re : Lien Hypertexte

Bonjour le forum,
Bon ca marche, mais après avoir lancer la macro, il créé bien un lien référent au fichier voulu, mais à partir de la seconde incrémentation il met le nouveau lien, mais y compris sur les anciens et de ce fait les liens sont tous identique au dernier enregistrement...
Comment éviter cela ??
Merci...