XL 2010 Macro pour ouvrir un fichier dans DROPBOX

Toubabou

XLDnaute Impliqué
La Macro ci-dessous me permet de cliquer sur un bouton et d’ouvrir un fichier placé dans « DROPBOX ».
VB:
Sub Travail_vin()
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\Users\djodj\Dropbox\Recettes\Compléments\"
Fichier = "Les vins.xlsm"
Chemin = Dossier & Fichier

Dim Presence As Boolean
Presence = False

For Each w In Workbooks

If w.Name = Fichier Then Presence = True
Next w

If Presence = True Then
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub

Tout fonctionne bien tant que je reste sur mon ordinateur. Par contre si je vais sur un autre appareil impossible de l’ouvrir du fait que le chemin d’accès n’est plus le même.

Pour mon PC :

Dossier = "C:\Users\djodj\Dropbox\Recettes\Compléments\"

Fichier = "Les vins.xlsm"

Sur le second PC (par exemples) :

Dossier = "C:\Users\TOTO\Dropbox\Recettes\Compléments\"

Fichier = "Les vins.xlsm"

Est-il possible de rechercher le fichier uniquement à partir de :

Dossier = "C:\Dropbox\Recettes\Compléments\"

Fichier = "Les vins.xlsm"


Merci par avance

Jean-Marie
 

Discussions similaires