Private Sub btximagemso_Click()
Dim balise, N$, Nod
If docXML Is Nothing Then Exit Sub
If tbxfichtxt = "" Then MsgBox "choisissez un element dans la vue de gauche !!!": Exit Sub
Set balise = GetXElementsById(docXML, actifelement.Text)
If balise Is Nothing Then Exit Sub
If " tab tabs group separator box " Like "* " & balise.tagname & " *" Then MsgBox "non!! on ne met pas d'icon dans une balise " & balise.tagname: Exit Sub
N = GeticonExcelDialog.GetIconMsoName 'appel dialog retourne le nom selectionné ou rien si fermé brutalement
If N <> "" Then
balise.setattribute "imageMso", N
tbximagemso = N
TreeView1.SelectedItem.Image = N
End If
ClearTreeviewNodes
'visual
End Sub