Excel 2010 VBA vers un lien hypertexte avec une cellule active vers elle-même, ce qui indiquerait l'emplacement exact à partir du moment où cette cellule est collée et envoyée dans un courrier électronique Outlook

Objectif: Excel 2010 - VBA vers un lien hypertexte avec une cellule active, ce qui indiquerait son emplacement exact dans la feuille de calcul à partir du moment où cette cellule est collée et envoyée dans un courrier électronique Outlook. Je dois garder le contenu de la cellule Excel intact - continuer d'afficher tout ce que j'ai dans celle-ci sans rapport avec l'hyperlien, etc. Cette cellule sera envoyée par courrier électronique. Vous devez pouvoir cliquer sur une cellule à partir d'un message électronique Outlook et demander à ce lien hypertexte d'ouvrir la feuille de calcul et de sélectionner l'emplacement exact de la cellule sur cette feuille de calcul. Le seul élément manquant est cette partie hyperlien. Le code VBA que j'ai ci-dessous bogues sur (surlignage jaune) la partie avec des hyperliens. Désolé si je ne colle pas le code conformément aux règles - je ne les comprends probablement pas. Merci pour l'aide!

Sub H_Link_Cell_to_Self
Dim path As String
Dim sheet As String
Dim cell As String
path = Application.ActiveWorkbook.FullName
sheet = Application.ActiveSheet.Name
cell = Application.ActiveCell.Address
ActiveSheet.Hyperlinks.Add Range(Active.Cell), "path” & “\“ & “sheet” & “\“ & “cell"
End Sub

Votre code semble bon, à l'exception de la ligne qui ajoute le lien hypertexte. Ici, vos variables sont entourées de guillemets, ce qui les amène à être interprétées comme des valeurs littérales et non comme des variables.

Essayez ceci à la place:

ActiveSheet.Hyperlinks.Add Range(Active.Cell), path & “\“ & sheet & “\“ & cell