Discussion :

[francis60]

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 VBA 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).

L'option "Explorer view" n'est plus active actuellement sur le SharePoint suite à un problème lors de la migration, elle va prochainement être remise en service.

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.

Remarque: J'avais ouvert la même discussion sans aucune réponse sur le forum général VBA, je vais la supprimer car je n'ai pas trouvé le moyen de la déplacer.

[francis60]

Le bug provenait du paramétrage de SharePoint 2013 : la fonctionnalité "Open with Explorer" était mal configurée et inopérante.
Depuis que ce mode a été ré-activé, la sélection de fichier par l'utilisateur par l’intermédiaire de VBA dans une fenêtre msoFileDialogFilePicker fonctionne de nouveau.
Je n'ai pas d'explication quant au lien entre les 2 problèmes.

[francis60]