Bonjour
@FaruSZ , le Forum
Par claire ton histoire de " base de données sous Excel VBA " il y a quoi la dedans ? Le chemins complets de fichiers ?
Et VBA les ouvre avec un Shell ou autre ? Quelles sortes de Fichiers ?
La première chose à faire c'est de copier et coller le chemin dans un simple Explorateur de Fichiers de Windows avec le profile de l'utilisateur et de voir si il a accès...
Bon courage
@+Thierry
Le chemin est de type:
S:\Cal\10-FILES\SERVICE1\Mathieu Alex\01-Formations \Fiche1.pdf
Dans ma base il y a une liste de personnels, chacun a son profil détaillé sur des feuilles Excel, la gestion de la base se fait avec des userforms ou on affiche le profil de la personne on a le nom, prénom, poste, liste des formations maitrisés avec les modes de preuves, pour consulter les modes de preuves il faut cliquer sur un bouton le code est le suivant:
Private Sub Consulter_MdP_Formation_Click()
If UF_Profil_Edit1.ListBox_Form_Intern.ListIndex = -1 Then
MsgBox ("Vous n'avez pas selectionn? 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