Macro pour créer un lien Hypertexte ds excel
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
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
2 réponses
-
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+ -
