Sub Test()
Cible = Range("B5").Hyperlinks(1).Address
Set WordApp = CreateObject("Word.application")
WordApp.Visible = False 'False pour ne pas afficher Word
WordApp.Documents.Open Filename:=Cible
WordApp.Selection.HomeKey Unit:=6
With WordApp.Selection.Find
.ClearFormatting
.Text = "date d’application"
End With
WordApp.Selection.Find.Execute
WordApp.Selection.MoveRight Unit:=1, Count:=4 ' Déplacement à G
WordApp.Selection.MoveRight Unit:=1, Count:=9, Extend:=1 'Nombre de caracteres à récupérer
Range("A5") = WordApp.Selection
WordApp.Quit
Set WordApp = Nothing
End Sub
Sub Tot()
Cible = Range("B5").Hyperlinks(1).Address
MsgBox Cible
End Sub