Microsoft 365 Tester si un fichier est ouvert dans OneDrive

[ThierryP]

Bonjour le forum,

Avec des fichiers stockés en local, j'utilisais cette fonction pour vérifier si un fichier était ouvert :

Function Verif_Fichier_Ouvert(ByVal Fichier As String) As Boolean
Dim Filenum As Integer

Filenum = FreeFile()
On Error Resume Next
Open Fichier For Input As #Filenum
Close Filenum
On Error GoTo 0
Select Case Err
    Case Is = 0
        Verif_Fichier_Ouvert = False
    Case Is = 52, 53, 70
       Verif_Fichier_Ouvert = True
End Select
End Function

J'ai basculé ces fichiers dans OneDrive mais maintenant la fonction ne fonctionne plus ! J'ai une erreur "Nom ou numéro de fichier incorrect" quand je tente Open Fichier for input
J'ai bien vérifié que dans le path du fichier on a des "/" et pas des "\" comme en local, mais ça plante encore...

Je suis preneur de toute piste pour solutionner mon souci !
D'avance merci à tou(te)s !

 

[wDog66]

Bonsoir ThierryP

Le dossier OneDrive est-il partagé ou pas !?
Sinon, il suffit (normalement) d'utiliser le chemin local

Excel's fullname property with OneDrive

If I want to use the open Workbook object to get the fullname of an Excel file after saving it, but that file has been synchronized to OneDrive, I get a "https" address instead of a local one, which

stackoverflow.com

A+

 

[ThierryP]

Bonsoir ThierryP

Le dossier OneDrive est-il partagé ou pas !?
Sinon, il suffit (normalement) d'utiliser le chemin local

Excel's fullname property with OneDrive

If I want to use the open Workbook object to get the fullname of an Excel file after saving it, but that file has been synchronized to OneDrive, I get a "https" address instead of a local one, which

stackoverflow.com

A+

Bonsoir wDog66,

Merci pour ton retour rapide !
Alors, non il n'est pas partagé, je suis le seul utilisateur.
Il va me falloir beaucoup de Doliprane je pense.... La fonction "Standalone" compte un peu plus de 1000 lignes de code ..... Et je ne suis pas sûr d'avoir les capacités de comprendre ce code !
Je crois que je vais rapatrier les fichiers en local et faire une sauvegarde régulière dans onedrive pour rester simple !

Merci en tous cas d'avoir pris le temps de faire cette recherche !!