Macro sous word

Bonjour,

je suis en train de réaliser une macro automatique pour insérer un objet sous word.
Tout vas bien mais lorsque je veux nommer mon objet il me met le lien du fichier, et je souhaiterais uniquement le nom du document. Il y a un probleme au niveau de IconLabel:=vName, je ne sais pas quoi mettre à la place de vname pour qu'il prenne le nom du fichier


je vous met le code ci dessous:

Sub Macro2()
'
Dim FoundFile As Variant

Dim vName As Variant

With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)

If .Show = -1 Then

For Each FoundFile In .SelectedItems

vName = FoundFile 'gets new filepath

On Error GoTo Alternate

Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.7", _
FileName:=vName, LinkToFile:=True, DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-7AD7-1036-7B44-AA1000000001}\PDFFile_8.ico" _
, IconIndex:=0, IconLabel:=vName


GoTo NextShape

Alternate:
Selection.InlineShapes.AddOLEObject ClassType:="AcroExch.Document.7", _
FileName:=vName, LinkToFile:=True, DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\Installer\{AC76BA86-7AD7-1036-7B44-AA1000000001}\PDFFile_8.ico" _
, IconIndex:=0, IconLabel:=vName
NextShape:

Next

End If

End With

End Sub

Merci par avance