Problème avec ThisWorkBook.Path sur OneDrive

Bonjour,

Je rencontre un problème pour récupérer l'adresse locale de fichier (via VBA) stocké sur OneDrive. Voici ma fonction :

Sub ouvrir(fichier)
    For Each i In Workbooks
        If i.Path & "\" & i.Name = fichier Then
            Set cWB = i
            Exit For
        End If
    Next i
    If cWB Is Nothing Then
        Set cWB = Workbooks.Open(fichier)
    End If
    Set cWS1 = cWB.Sheets(1)
    Set cWS2 = cWB.Sheets(2)

        colonnes = Array("G", "H", "", "F", "T", "E", "W", "B", "D", "C", "S", "K", "L", "M", "N", "O", "P", "Q", "R")

End Sub

Je ne sais vraiment pas comment faire et cela m'occasionne de très gros problèmes. Pourriez vous m'aider.

Merci par avance.

Bonjour,

Il faut affecter un lecteur réseau à ton OneDrive (https://www.it-connect.fr/connecter-un-lecteur-reseau-onedrive-sous-windows/) et ensuite donner à la variable fichier, le chemin complet du classeur.

Bonjour,

c'est pas mal ça thev.
Je ne connaissais pas, merci
eric

Merci pour la technique que je ne connaissait pas ça m'a aider.