Bonjour,
J'ai une petite fonction qui me permet de sélectionner rapidement le chemin de mes pièces jointes dans un de mes contrôles de formulaire...

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
19
20
21
22
'Sub getFileName()
 
    ' Affiche la boîte de dialogue Ouvrir fichier d'Office afin de choisir
    ' un nom de fichier pour l'enregistrement de l'escorte en cours.
 
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Sélectionner une pièce jointe"
        .Filters.Add "Tous les fichiers", "*.*"
        .Filters.Add "Fichiers JPEG", "*.jpg"
        .Filters.Add "Fichiers PDF", "*.pdf"
        .FilterIndex = 1
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            [Fiche_Id] = fileName
        End If
    End With
End Sub
C'est pratique simple d'emploi mais je souhaiterais ouvrir l'explorateur windows directement sur mon répertoire ex C:\Essai\PJ contenant les pièces jointes de ma base et ce afin d'éviter de cliquer et dérouler l'arborescence de l'explo à chaque fichier joint... Probablement dois-je agir sur CurrentProject.path mais quel est alors la syntaxe pour le bon chemin ?