Discussion :

[clickandgo]

Bonjour à tous,

Tout est dans le titre, je voudrais récupérer en variable que le nom des fichiers sélectionnés grâce à cette fonction et non pas le chemin complet, merci de m'indiquer comment faire ...

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Public Function OuvrirAttachments()
 
On Error GoTo err
' Référence obligatoire : Microsoft Office 11.0 Object Library.
 
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Dim rst As Recordset
 
     ' Prépare le dialog box.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      ' Permet de sélectionner plusieurs fichiers dans le dialog box.
      .AllowMultiSelect = True
 
      ' Titre du dialog box.
      .Title = "Choisissez une ou plusieurs pièces jointes"
 
      ' Efface les filtres actuels et utilise les nouveaux.
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
 
      ' Affiche le dialog box. Si .Show renvoie True, l'utilisateur à choisi au moins un fichier, si False, l'utilisateur a choisi Cancel.
 
            If .Show = True Then
         ' Boucle au travers de tous les fichiers sélectionnés et les ajoute au list box.
 
         Set rst = CurrentDb.OpenRecordset("attachments mails")
         For Each varFile In .SelectedItems
            'Me.filelist.AddItem varFile
            With rst
                .AddNew
                !PathAttachment = varFile
                !NumMail = Forms!Mails!NumMail
                .Update
            End With
         Next
         rst.Close
 
 
 
           Else
         MsgBox "Vous avez annulée l'opération en cours"
      End If
 
 
   End With
 
 
err:
    'Gestion d'erreur
    Select Case err.Number
        Case 3024:
            MsgBox "Fichier inexistant", vbCritical
        Case 3820:
            MsgBox "Une autre pièce-jointe avec le même nom existe déjà", vbCritical
 
    End Select
 
 
   Forms![Mails]![Attachments].Requery
   Forms![Mails].ListeAttachmentsSélectionnés
 
End Function

[madefemere]

Bonsoir,

Tu dois pouvoir y arriver en utilisant la fonction InStrRev pour retrouver la position du dernier "\" dans le chemin complet de ton fichier et de ne prendre en fait que ce qui est à droite.

Bonne continuation

[clickandgo]

Merci pour ta réponse mais ça m'a l'air compliqué !

[jimbolion]

Mandresy

ici un descriptif

http://access.developpez.com/faq/?pa...Rep#chemin_rep

en modifiant quelque peu la fonction de cette sorte tu devrais avoir réponse à ton problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function Extractnamefile(ByVal sFullPath As String) As String
 
If Right(sFullPath, 1) = "\" Then
    Extractnamefile = sFullPath
Else
    Extractnamefile = Right(sFullPath, InStrRev(sFullPath, "\"))
End If
 
End Function

donc tu recopies cette fonction dans un module et en passant comme argument le chemin complet le résultat te donnera le nom du fichier :

un exemple d'implémentation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function rechercher_nomfichier()
MsgBox Extractnamefile("c:\developpez\monfichier.txt")
End Function

jimbolion

[madefemere]

Jean Marie

Clickandgo, ce n'est pas aussi compliqué que ça !!

[jimbolion]

Mandresy

oui Clickandgo reste plus qu'à faire du clic-copy-paste and go...

@ Bientôt

Jm