Bonjour à tous,

J'ai un ensemble de fichiers XL hébergés un SharePoint (qui vient de migrer de 2007 vers Sharepoint 2013) à disposition.
Une macro .xlam est à disposition de dizaines d'utilisateurs dans un utilitaire sous Excel.

Je souhaite que la macro puisse récupérer le chemin + nom + les attributs d'un fichier XL sélectionné par l'utilisateur en VBA via la fenêtre msoFileDialogFilePicker.

Le code ci-dessous fonctionnait mais plus maintenant (ce code plantait parfois sur certains postes utilisateurs de la macro de manière inexpliquée avant la migration).

Merci pour vos suggestions,

Cordialement,

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
Dim ChoosenFile As Variant   'le fichier sélectionné par l'utilisateur
Dim ChoiceFileDialog As FileDialog
Dim pickedFile As Boolean

Set ChoiceFileDialog = Application.FileDialog(msoFileDialogFilePicker)

With ChoiceFileDialog
    .InitialFileName = "https://MonSite/... .../liste/1/"
    .Title = "Ma fenêtre de selectio
    .ButtonName = "Select XL file"
    .InitialView = msoFileDialogViewProperties
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls; *.xlsx"
    '.Filters.add "Text Files", "*.txt"
    '.Filters.add "CSV Files", "*.csv"
End With
    
    pickedFile = ChoiceFileDialog.Show
    
    If pickedFile Then ChoosenFile = ChoiceFileDialog.SelectedItems(1)

Set ChoiceFileDialog = Nothing

'Les traitements suivants manipulent le fichier pour récupérer le path, le nom ainsi que les attributs du fichier : Category et Subject.