Lien sharepoint/intranet dans getopenfilename

Bonjour la communauté !

Je souhaiterais utiliser un lien sharepoint dans la fonction getopenfilename ci dessous

Code:

---

1 2 3 4 5 6 7

NomFichierEntree = Application.GetOpenFilename("https://collaboration-bb.xxx.aaa/sites/abc/def/DOC ghi/Catalogue/NMxxx.xls (*.xls),*.xls")   If NomFichierEntree <> False Then   Workbooks.Open NomFichierEntree Fichier = Right(NomFichierEntree, Len(NomFichierEntree) - InStrRev(NomFichierEntree, "\"))

---

pour qu'il puisse s'ouvrir automatiquement mais ça ne fonctionne pas, sauriez-vous comment faire ?

Merci d'avance

Bonjour,

Code:

---

Fichier = Right(NomFichierEntree, Len(NomFichierEntree) - InStrRev(NomFichierEntree, "\"))

---

=> adresse sharepoint: le séparateur devrait être "/" non?

Si ça peut dépanner (c'est vieux et mal écrit)

Code:

---

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

Function Upd_FoldSep(ByRef FoldName As String) As String '============================================================================= 'Get the separator used for the Fold and add it to the Foldname last character if not   Subname = "Upd_FoldSep"   Dim Separ As String   Separ = Get_Separat(FoldName, "/\") If Right(FoldName, 1) <> Separ Then FoldName = FoldName & Separ   Upd_FoldSep = FoldName   End Function Function Get_Separat(ByVal InpString As String, ByVal SepList As String) As String '============================================================================= 'Check is a separator (1 unique charact) from SepList is used within InpString, if so, return the first found and stop   Funcname = "Get_Separat"   Dim SepInd As Integer, SepChar As String Dim FoundSep As Boolean   For SepInd = 1 To Len(SepList)   SepChar = Mid(SepList, SepInd, 1)   If FoundSep = True Then Exit For   If InStr(1, InpString, SepChar, vbTextCompare) > 0 Then FoundSep = True   Next SepInd   Get_Separat = SepChar   End Function

---

Merci mais je ne comprends pas très bien l'utilisation de ce code.

Pour les séparateurs oui c'est bien ça je les avais modifié mais ça ne fonctionne toujours pas quelqu'un aurait une piste?

Bonjour,

pourquoi passer par getopenfilename ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Const Fichier As String = "https://collaboration-bb.xxx.aaa/sites/abc/def/DOC ghi/Catalogue/NMxxx.xls"   Sub Toto() Dim Wb As Workbook   On Error Resume Next Set Wb = Workbooks.Open(Fichier) On Error GoTo 0   If Wb Is Nothing Then MsgBox "Fichier non trouvé" Exit Sub End If   End Sub

---

Sinon, pour naviguer sur un site SharePoint, à forfiori en https://, il est préférable de mapper le site en tant que lecteur réseau et de le parcourir ainsi avec Fso

Merci ça répond parfaitement une fois adaptée !