macro insertion de formule
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:
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 |
