Sub EcrireTag(NomTag As String, MonTexte As String)
With ThisWorkbook.CustomDocumentProperties
On Error GoTo Existe
.Add Name:=NomTag, LinkToContent:=False, Type:=msoPropertyTypeString, Value:=MonTexte
On Error GoTo 0
Exit Sub
Existe:
.Item(NomTag) = MonTexte
End With
End Sub
Function LireTag(NomTag As String) As String
LireTag = ThisWorkbook.CustomDocumentProperties(NomTag)
End Function
Sub test()
EcrireTag "MonTag", "test1"
End Sub
Sub test2()
MsgBox LireTag("MonTag")
End Sub