Erreur de code sur VBA
t
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 SubEdit 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 ?