Discussion :

[nananinanana]

Bonjour la communauté !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vinc_bilb]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[nananinanana]

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?

[joe.levrai]

Bonjour,

pourquoi passer par getopenfilename ?

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

[nananinanana]

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