XL 2010 Lien Hypertexte

[FaruSZ]

Bonjour le forum,

Je travail sur une base de données ou je veux rajouter des liens hypertextes pour consulter quelques documents .
J'ai cree ce code, le pb c'est que quand je viens consulter le document il me dit document non trouvé.
Je sais pas ou est le pb, Merci


Private Sub Sub_Ajout_Mdp_Forma_Click()
If Me.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Pour ajouter le mode de preuve veuillez choisir une formation")
Else
Set ws = ActiveWorkbook.Worksheets(Personne)
Nom_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 0)
Date_Forma = Me.ListBox_Form_Intern.List(Me.ListBox_Form_Intern.ListIndex, 1)
Fin_Col_Forma = ws.Cells(10, 256).End(xlToLeft).Column
ws.Cells(10, Fin_Col_Forma + 1).Value = Nom_Forma
Cells(10, Fin_Col_Forma + 1).Select
ws.Activate
repertoire = Application.GetOpenFilename()
ws.Cells(11, Fin_Col_Forma + 1) = CDate(Date_Forma)
ws.Cells(12, Fin_Col_Forma + 1) = repertoire

End If
End Sub

Code pr consulter :

Private Sub Editer_MdP_Formation_Click()
If UF_Profil_Edit1.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Vous n'avez pas selectionner une formation")
Else

Nom_Forma = UF_Profil_Edit1.ListBox_Form_Intern.List(UF_Profil_Edit1.ListBox_Form_Intern.ListIndex, 0)
Dim Plage As Range
Set ws = ActiveWorkbook.Worksheets(Personne)
Set Plage = ws.Rows(10)
Set Trouve = Plage.Cells.Find(what:=Nom_Forma)
If Trouve Is Nothing Then
MsgBox ("erreur: Mode de preuve non trouv?e")
Else
chemin = ws.Cells(12, Trouve.Column).Value
If chemin = "" Then
MsgBox ("Pas de mode de preuve existante")
Else
ThisWorkbook.FollowHyperlink chemin
End If
End If
End If
End Sub

 

[sylvanu]

Bonjour FaruSZ,
Sans fichier test difficile de cerner le problème.
Le chemin définit par = ws.Cells(12, Trouve.Column).Value contient bien il le chemin complet du fichier c'est à dire l'arborescence et le nom? et y a t-il bien les "\" entre les différents paramètres ?

 

[FaruSZ]

Bonjour FaruSZ,
Sans fichier test difficile de cerner le problème.
Le chemin définit par = ws.Cells(12, Trouve.Column).Value contient bien il le chemin complet du fichier c'est à dire l'arborescence et le nom? et y a t-il bien les "\" entre les différents paramètres ?

lien pour le fichier:
Mot de passe : 100
Ouvrir la base, consulter le profil:
Quand on ajoute une formation avec le bouton + et un chemin : ca marche bien
Quand on clique sur le bouton pdf en rouge pour ajouter un document a une formation exsistante ca créée des doublons dans ma base
Quand on clique sur historique pour ajouter une formation avec le document associé il me dit document non trouvé or que je le trouve sur la feuille excel dans la ligne 12
Merci pour votre aide

 

[sylvanu]

Bonjour,
J'ai l'impression d'avoir tout bien fait comme il faut.
Mais quand je "clique sur historique pour ajouter une formation avec le document associé il me dit " ... rien. Ca a l'air de marcher.

 

[FaruSZ]

Oui mais si tu rajoutes plus de 6 formations tu vas remarquer que quand tu consultes les documents tu les trouves pas.

Bonjour,
J'ai l'impression d'avoir tout bien fait comme il faut.
Mais quand je "clique sur historique pour ajouter une formation avec le document associé il me dit " ... rien. Ca a l'air de marcher.
Regarde la pièce jointe 1070636
[/QUOTE