Bonjour

Je souhaite insérer une formule d'insertion de lien hypertexte dans une cellule via macro mais le débugger bloque sur "ActiveCell.Formula = l"

sachant que j'ai essayé ActiveCell.Value, ActiveCell.text...

PS : le module d'insertion d'hypertexte de office à tendance à modifier les liens inopinément, c'est pour cela que veux le mettre en dur...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub lien()
 
 
' lien Macro
' Macro enregistrée le 7/02/14 par Administrateur
' Macro d'insertion de lien hypertexte en dur dans excel
 
Dim nomfich As String
Dim nomLien As String
Dim sep As String
sep = """"
 
nomfich = Application.GetOpenFilename 'recupere le chemin et le fichier
nomLien = InputBox("Saisir le nom du lien")
 
If nomfich = "" Then Exit Sub
 
l = "=LIEN_HYPERTEXTE(" & CStr(sep) & nomfich & CStr(sep) & ";" & CStr(sep) & nomLien & CStr(sep) & ") "
'l = "=LIEN_HYPERTEXTE(" + CStr(sep) + nomfich + CStr(sep) + ";" + CStr(sep) + nomLien + CStr(sep) + ") "
 
 
MsgBox l
 
ActiveCell.Formula = l
 
End Sub