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
 

PMO2

XLDnaute Accro
Bonjour,
Essayez l'un des codes suivants
VB:
'### Les noms des utilisateurs sont inconnus ###
Sub aa()
Dim rep As Variant
'---
ChDir "C:\"
rep = Application.GetOpenFilename(FileFilter:="Classeurs Excel(*.xls*),*.xls*") 
If rep = False Then Exit Sub
Workbooks.Open rep
End Sub


'### Les noms des utilisateurs sont connus ###
Sub bb()
Dim rep As Variant
'---
On Error Resume Next
ChDir "C:\Users\TOTO\Dropbox\Recettes\Compléments\"
ChDir "C:\Users\djodj\Dropbox\Recettes\Compléments\"
ChDir "C:\"   'par défaut
On Error GoTo 0
rep = Application.GetOpenFilename(FileFilter:="Classeurs Excel(*.xls*),*.xls*") 
If rep = False Then Exit Sub
Workbooks.Open rep
End Sub
 

Toubabou

XLDnaute Impliqué
Super avec une petite modif
Semble fonctionner parfaitement. J'essaye demain avec l'autre PC
Code:
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
Workbooks.Open Filename:="C:\Users\" & Environ("username") & "\Dropbox\Recettes\Compléments\" & "Les vins.Xlsm"

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

Merci beaucoup en attendant.
Jean-Marie
 

Sheldor

XLDnaute Occasionnel
Supporter XLD
bonjour,
qu'est ce qui fait que ça marche du coup dans votre code?
l'instruction Workbooks.Open Filename (..) est au début donc si ça ne bug pas c'est que ça s'ouvre et du coup si ça s'ouvre je ne comprends pas ce que le code après fait pour aider à ce que ça fonctionne...
à bientôt
nico
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal