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.
Partager