Bonsoir,
J'ai un formulaire qui dépend de la table Sauvegarde avec 3 box Source , destination et Id
pour récupérer le chemin complet d'un fichier dans le box [Source] j'utilise la procédure suivante :
ex: K:\Documents\xxx\xxxxx\xx\DATA_AL.accdb
Je ne parviens pas récupérer le chemin du répertoire ou Dossier dans mon box [destination]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Private Sub CdeCheminComplet_Click() ' Gestion des erreurs ' On Error GoTo Catch01 ' récupération du chemin physique du Fichier ' par la boite de dialogue strLink = OuvrirUnFichier(Me.Hwnd, _ "Sélectionner un Fichier pour le Compte " & Me.Id, _ 1) ' si la boite renvoie une adresse non nulle If Len(strLink) > 0 Then ' tentative d'affichage du Fichier Me.Source = strLink End If Exit Sub End Sub
ex : D:\Sauvegarde\xxx_2019
Pouvez me mettre sur la voie
Merci
Partager