Alimenter un fichier depuis un export sauvegardé sur dropbox

Bonjour le forum,

Je souhaite faire alimenter la base de donnée d'un fichier qui est sauvegardé sur Dropbox pour que ma team puisse l'utilisé aussi !

la macro que j'utilise sur mon pc fonctionne :

Dim x As Workbook
Set activeWB = Application.ActiveWorkbook

Set x = Workbooks.Open("C:\Users\samue\Dropbox (Gob)\PRODUCTION CLIENTS 2019\_Quentin\Suivi stock Tags\Tableau exporté\EXPORT.xls")

    With x.Sheets("Sheet 1").UsedRange
        .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0).Copy activeWB.Sheets("BDD").Range("A2")
    End With

'fermer le fichier distant
x.Close

Mais le fichier fonctionne car la racine utilisé ce trouve sur mon pc :

C:\Users\samue\Dropbox (Gob)

Comment puis-je faire pour utilisé seulement la racine :

Dropbox (Gob)\PRODUCTION CLIENTS 2019\_Quentin\Suivi stock Tags\Tableau exporté\EXPORT.xls

Merci d'avance pour votre aide

Bonjour Quentin

Je te propose de tenter ceci :

Const cWBPath = "\Dropbox (Gob)\PRODUCTION CLIENTS 2019\_Quentin\Suivi stock Tags\Tableau exporté\EXPORT.xls"
Dim x As Workbook, activewb As Workbook
Dim sUserProfile As String

'Récupérer le chemin de l'utilisateur courant
sUserProfile = Environ("USERPROFILE")

Set activewb = Application.ActiveWorkbook

Set x = Workbooks.Open(sUserProfile & cWBPath)

    With x.Sheets("Sheet 1").UsedRange
        .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0).Copy activewb.Sheets("BDD").Range("A2")
    End With

'fermer le fichier distant
x.Close