Erreur de code sur VBA

Bonjour à tous,

J'ai testé un code afin de me permettre d'aller chercher un fichier sur l'ordinateur de l'ajouter dans une base de donnée et d'ouvrir le fichier sous le format auquel il a été enregistré. Excel VBA m'affiche une erreur 5 "argument ou appel de procédure incorrect", voici le code :

Sub chercher()

Dim lefichier As FileDialog
Dim trouvenom As Variant

Set lefichier = Application.FileDialog(msoFileDialogFilePicker)

With lefichier
If .Show <> -1 Then
GoTo vide
End If

Range("i2") = .SelectedItems(1)
End With

'chercher le nom du fichier
trouvenom = VBA.Split(lefichier.SelectedItems(1), "\")
Range("I1") = trouvenom(UBound(trouvenom))

Exit Sub

vide:

End Sub

Sub ajouter()

Dim dl As Long
Dim ligne As Long

If Range("i1") <> Empty And Range("i2") <> Empty Then

'évite les doublons
For ligne = 6 To Range("h5").End(xlDown).Row

If Range("h" & ligne) = Range("i1") Then

MsgBox "le fichier existe déjà"
Exit Sub
End If
Next ligne

'contrôler nouvelle entrée oui ou non
If Range("h6") <> Empty Then
ActiveSheet.ListObjects(1).ListRows.Add
dl = Range("h5").End(xlDown).Row + 1
Else
dl = 6
End If

Range("h" & dl) = Range("i1") 'titre du fichier
Range("i" & dl) = Range("i2") 'lien du fichier
Range("i1") = Empty
Range("i2") = "=IFERROR(VLOOKUP(I1,Tableau1,2,0), " & Chr(34) & Chr(34) & ")"

End If

End Sub

Sub ouvrir()

Range("i2") = "=IFERROR(VLOOKUP(I1,Tableau1,2,0), " & Chr(34) & Chr(34) & ")"
ActiveWorkbook.FollowHyperlink Address:=Range("i2")
End Sub

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois

Merci d'avance

Bonjour textsolne35,

L'erreur se produisant sur la ligne d'appel à la fonction 'FollowHyperlink', es-tu sûr que la cellule I2 contient bien le chemin complet du document à ouvrir ?