La Macro ci-dessous me permet de cliquer sur un bouton et d’ouvrir un fichier placé dans « DROPBOX ».
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
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 SubTout 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