Sujet Précédent Sujet Suivant

Macro pour créer un lien Hypertexte ds excel

Résolu/Fermé
Utilisateur anonyme - 10 août 2010 à 21:17
 Utilisateur anonyme - 11 août 2010 à 21:42
BonjBonjour,

Je voudrais écrire une macro qui créerait un fichier .txt en lui donnant le nom qui est le contenu de la cellule où se trouve le pointeur.


Voilà ce que j'obtiens en mode apprentissage :

Sub Macro1()
'
' Macro1 Macro
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"D:\Attila\Commentaires prospects\essai.txt", TextToDisplay:="Essai"
ActiveSheet.Hyperlinks(ActiveSheet.Hyperlinks.Count).CreateNewDocument _
Filename:="D:\Attila\Commentaires prospects\essai.txt", EditNow:=True, _
Overwrite:=False
End Sub

Là où je bute, c'est quand il faut retravailler le code pour que :

"D:\Attila\Commentaires prospects\essai.txt" change en fonction du pointeur, dans Address et Filename...

La partie variable est uniquement "essai" que j'ai entré en dur dans le mode apprentissage et qui était le contenu de la cellule où était le pointeur.

Merci




A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
11 août 2010 à 02:33
Bonjour,
Si ta macro fanctionnait avec essai,.. 
Sub Macro1()
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "D:\Attila\Commentaires prospects\" & ActiveCell.Value & ".txt", TextToDisplay:=ActiveCell.Value
    ActiveSheet.Hyperlinks(ActiveSheet.Hyperlinks.Count).CreateNewDocument _
    Filename:="D:\Attila\Commentaires prospects\" & ActiveCell.Value & ".txt", EditNow:=True, _
    Overwrite:=False
End Sub

Mettre le curseur sur la cellule et envoyer la macro.
A+
2
Réponse 2 / 2
Utilisateur anonyme
11 août 2010 à 21:42
Génial !
C'est exactement ce que je voulais

Merci Bcp
0

Discussions similaires

Rajout de lien sur plusieurs pages
leparradiss -
David -

11 réponses