1 pièce(s) jointe(s)
Ouverture en VBA d'un fichier Sharepoint toujours en lecture seule
Bonjour
Je rencontre une difficultés. Je suis récemment passé à Windows 10 / Office 2016 et une macro qui marchait initialement ne fonctionne plus.
A chaque fois que j'ouvre un fichier office de mon SharePoint depuis le navigateur Windows, j'ai toujours un bandeau qui s'affiche (malgré la désactivation de toute option de sécurité !)
Pièce jointe 239567
Outre le fait de cliquer systématiquement sur le bouton, ce document est également ouvert par un script VBA pour mise à jour. Seulement, lorsque j'éxécute la macro, le fichier est ouvert en lecture seule !
Code:
Workbooks.Open stPathCrah & "\" & stNomFicCraH, 0, False
Y a t il une modification du comportement de la méthode OPEN pour un Workbook ???
Merci pour votre aide
davwwwroot ou ChangeFileAccess
Bonjour,
Avant toute chose, l'adresse stPathCrah est-elle une simple url ou bien inclut-elle la chaîne "davwwwroot" ?
Ensuite je propose de changer l’accès au fichier avec la méthode "ChangeFileAccess".
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub OpenFileSP()
Dim stNomFicCraH As String
Dim stPathCrah As String
stPathCrah = "http:\\servername.com\DavWWWRoot\...\..."
'Il faut d'assurer qu'il s'agisse de l'url avec la chaine : davwwwroot
stPathCrah = "Nom du fichier.xlsx"
Dim Wb As Workbook
Set Wb = Application.Workbooks.Open(stPathCrah & "\" & stNomFicCraH, , False)
If Wb.ReadOnly Then
'Switch de mode d'accès au fichier
Call Wb.ChangeFileAccess(xlReadWrite)
End If
'...
End Sub |
@+
