lien

[hoob91]

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

 

[hoob91]

En cliquanr sur Annuler dans la boite de dialogue du lien hypertext, retrouver le style initial du texte sélectionné

merci

 

[Jon]

bonjour


x=Application.Dialogs(wdDialogInsertHyperlink).Show...

if x=false then
msgbox "annulation"
else
....
end if

 

[hoob91]

merci

 

[hoob91]

Ne faut 'il pas déclarer x comme une variable ???

merci

 

[STephane]

pour faire du travail propre oui ;-)
dim x as boolean
mais pas oblige

 

[hoob91]

merci