Apprendre à gérer vos pièces jointes depuis Access avec FileDialog

Un billet de blog de Denis Hulo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CmdChoisirFichier_Click() 
    Dim fd As Object ' Office.FileDialog 
  
    ' Créer un objet FileDialog pour choisir un fichier 
    Set fd = Application.FileDialog(3) ' msoFileDialogFilePicker : 3 
  
    ' Titre de la boîte de dialogue 
    fd.Title = "Sélectionnez un fichier..." 
  
    ' Ne pas autoriser la sélection multiple 
    ' (donc 1 seul fichier est sélectionnable à la fois) 
    fd.AllowMultiSelect = False 
  
    ' Effacer les filtres précédents 
    fd.Filters.Clear 
  
    ' Afficher la boîte de dialogue 
    If fd.Show() Then ' on a sélectionné un fichier 
        Me.CheminFichier = fd.SelectedItems(1) ' on met à jour le champ avec le chemin sélectionné 
    End If 
  
    ' On libère la variable objet 
    Set fd = Nothing 
  
End Sub

1
2
3
4
5
Private Sub CmdOuvrirFichier_Click() 
    If Nz(Me.CheminFichier.Value, "") <> "" Then ' si un chemin est enregistré dans le champ CheminFichier 
        Shell "explorer.exe " & Chr(34) & Me.CheminFichier.Value & Chr(34), vbMaximizedFocus ' on ouvre le fichier avec son chemin 
    End If 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CmdChoisirDossier_Click() 
    Dim fd As Object ' Office.FileDialog 
    Dim sCheminDossier As String 
  
    ' Créer un objet FileDialog pour sélectionner un dossier 
    Set fd = Application.FileDialog(4) ' msoFileDialogFolderPicker : 4 
  
    ' Titre de la boîte de dialogue 
    fd.Title = "Sélectionnez un dossier..." 
  
    ' Ne pas autoriser la sélection multiple 
    ' (donc 1 seul fichier est sélectionnable à la fois) 
    fd.AllowMultiSelect = False 
  
    ' Effacer les anciens filtres 
    fd.Filters.Clear 
  
    ' Afficher la boîte de dialogue 
    If fd.Show() Then ' si un choix a été effectué 
        sCheminDossier = Nz(Me.CheminDossier, "") ' on copie le chemin du dossier dans la variable 
        Me.CheminDossier = fd.SelectedItems(1) ' le dossier sélectionné devient le nouveau    
        UpdateCheminsFichiers sCheminDossier, Me.CheminDossier ' on met à jour les chemins des fichiers dans la base 
    End If 
  
    ' On libère la mémoire 
    Set fd = Nothing 
End Sub

1
2
3
4
5
Private Sub CmdOuvrirDosssier_Click() 
    If Nz(Me.CheminDossier.Value, "") <> "" Then ' si un chemin est enregistré dans le champ CheminDossier 
        Shell "explorer.exe " & Chr(34) & Me.CheminDossier.Value & Chr(34), vbMaximizedFocus ' on ouvre le dossier avec son chemin 
    End If 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
Sub UpdateCheminsFichiers(AncienDossier As String, NouveauDossier As String) 
    Dim sSQL As String 
    Dim db As DAO.Database 
  
    Set db = CurrentDb ' référence à la base courante 
  
    sSQL = "Update T_PieceJointe Set CheminFichier=Replace(nz(CheminFichier,""""),""" & AncienDossier & """ , """ & NouveauDossier & """)" 
    db.Execute sSQL, dbFailOnError ' Exécute la requête permettant de remplacer l'ancien dossier par le nouveau dans les chemins des fichiers enregistrés dans la base 
  
    Set db = Nothing ' on libère la variable 
  
End Sub