Macro pour créer un lien Hypertexte ds excel Résolu/Fermé

Question

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 




Configuration: Windows 7 / Internet Explorer 7.0

lermite222 · Accepted Answer

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+

Utilisateur anonyme · Answer

Génial !
C'est exactement ce que je voulais

Merci Bcp

Macro pour créer un lien Hypertexte ds excel

2 réponses

Discussions similaires