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
A voir également:
- Macro pour créer un lien Hypertexte ds excel
- Créer un lien pour partager des photos - Guide
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Créer liste déroulante excel - Guide
2 réponses
Bonjour,
Si ta macro fanctionnait avec essai,..
Mettre le curseur sur la cellule et envoyer la macro.
A+
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+
