youky(BJ)
XLDnaute Barbatruc
Bonjour à tous,
Je cherche à connaitre la date d'enregistrement d'un fichier partagé sur OnDrive
Le reste je me débrouille
chemfich = "https://bidonshop.sharepoint.com/sites/Commerce22/Documents partages/Devis/Fournisseurs/BASE_FOURNISSEURS.xlsm"
'ci dessus le chemfich ouvre bien le fichier avec Open, mais ne fonctionne pas pour FileDateTime(chemfich)
' vu sur un site supprimer le "https:"
chemfich = "//bidonshop.sharepoint.com/sites/Commerce22/Documents partages/Devis/Fournisseurs/BASE_FOURNISSEURS.xlsm"
'ne fonctionne pas non plus
'vu sur un autre site en plus il faut ajouter "@ssl"
chemfich = "//bidonshop.sharepoint.com@ssl/sites/Commerce22/Documents partages/Devis/Fournisseurs/BASE_FOURNISSEURS.xlsm"
On Error Resume Next
dt = FileDateTime(chemfich)
If Err = 0 Then
MsgBox dt
Else
MsgBox "Pas bon!"
End If
End Sub
Merci pour tout renseignement
Bruno
Je cherche à connaitre la date d'enregistrement d'un fichier partagé sur OnDrive
Le reste je me débrouille
chemfich = "https://bidonshop.sharepoint.com/sites/Commerce22/Documents partages/Devis/Fournisseurs/BASE_FOURNISSEURS.xlsm"
'ci dessus le chemfich ouvre bien le fichier avec Open, mais ne fonctionne pas pour FileDateTime(chemfich)
' vu sur un site supprimer le "https:"
chemfich = "//bidonshop.sharepoint.com/sites/Commerce22/Documents partages/Devis/Fournisseurs/BASE_FOURNISSEURS.xlsm"
'ne fonctionne pas non plus
'vu sur un autre site en plus il faut ajouter "@ssl"
chemfich = "//bidonshop.sharepoint.com@ssl/sites/Commerce22/Documents partages/Devis/Fournisseurs/BASE_FOURNISSEURS.xlsm"
On Error Resume Next
dt = FileDateTime(chemfich)
If Err = 0 Then
MsgBox dt
Else
MsgBox "Pas bon!"
End If
End Sub
Merci pour tout renseignement
Bruno