VBA/SHAREPOINT - FileDialog + Multiselect

Bonjour à tous,

J'ai passé des heures sur les différents forums spécialisés, en vain.

Mon problème est le suivant :

J'ouvre une boîte de dialogue depuis un fichier Excel pour sélectionner plusieurs fichiers Excel qui sont placés dans un dossier Sharepoint. L'objectif étant de coller les informations présentes sur les fichiers sélectionnés dans le fichier Excel de base.

>Lorsque le chemin correspond à un emplacement local, le code fonctionne (bon emplacement et sélection multiple possible).

>Lorsque le chemin correspond à un emplacement Sharepoint, le boîte de dialogue s'ouvre dans le bon dossier MAIS la sélection multiple n'est pas possible.

Seriez-vous en mesure de m'aider svp ?

Je vous remercie par avance.

Antoni.

Le code est le suivant :

Private Sub CmdParcourir_Click() 

'OUVERTURE BOITE DE DIALOGUE
Dim chem As String
chem = "\\collab-confidentiel.net@SSL\DavWWWRoot\confidentiel-chemincomplet...\...\"

With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .InitialFileName = chem
    .Show
End With

'AFFICHAGE NOMS FICHIERS DANS LISTBOX
Set F = ThisWorkbook.Sheets("HOME")
Set mondico = CreateObject("Scripting.Dictionary")
A = F.Range("V30:V50")
For i = LBound(A) To UBound(A)
    If A(i, 1) <> "" Then mondico(A(i, 1)) = ""
Next i
Me.ListBox1.List = A

End Sub

Je viens de réessayer et

chem = "\\collab-confidentiel.net@SSL\DavWWWRoot\confidentiel-chemincomplet...\...\"

ne fonctionne plus alors que

chem = "https://collab-confidentiel.net/procurement/confidentiel-chemincomplet.../.../

fonctionne...

Je ne comprends pas...

Aucune réponse...

Personne ici n'a eu ce genre de problème ?

Savez-vous où je pourrais avoir ce type d'aide ?