H
hoob91
Guest
Bonjour, je viens de crére cette macro qui me permets de changer le style de ma sélection et d'ouvrir une boite de dialogue, je souhaite en cas de non validation retrouver le style initial de ma sélection et la fermeture de la boite de dialogue
Merci
Sub LienHypertext()
Response = MsgBox("Désirez vous créer un lien sur votre sélection ?", vbYesNo)
If Response = vbYes Then
Selection.Style = ActiveDocument.Styles("Lien")
Application.Dialogs(wdDialogInsertHyperlink).Show
Else
MyString = "Non"
End If
End Sub
Merci
Sub LienHypertext()
Response = MsgBox("Désirez vous créer un lien sur votre sélection ?", vbYesNo)
If Response = vbYes Then
Selection.Style = ActiveDocument.Styles("Lien")
Application.Dialogs(wdDialogInsertHyperlink).Show
Else
MyString = "Non"
End If
End Sub