XL 2010 Macro pour ouvrir un fichier dans DROPBOX

Toubabou

XLDnaute Occasionnel
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
 

nicopec

XLDnaute Occasionnel
bonjour,
j'ai le même cas et à l'ouverture de la macro je clique sur un des chemins proposé en fonction de sur quel ordi je suis.
je ne suis pas sûr que "TOTO" puisse être détecter par vba mais si oui ça m'intéresse
nico
 

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
 

nicopec

XLDnaute Occasionnel
bonsoir,
trouvé...!

Workbooks.Open Filename:="C:\Users\" & Environ("username") & "\Dropbox\" & "Classeur4.xlsx"

cool, j'avais pas eu le courage de chercher assez pour moi

nico
 

Toubabou

XLDnaute Occasionnel
Chez moi cela ne fonctionne pas
Code:
Sub Travail_vin()

Workbooks.Open Filename:="C:\Users\" & Environ("username") & "\Dropbox\" & "Les vins.Xlsm"

End Sub
 

Toubabou

XLDnaute Occasionnel
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
 

nicopec

XLDnaute Occasionnel
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
 

Toubabou

XLDnaute Occasionnel
Bonjour,
A la base le reste du code évitait d'avoir un message d'erreur en cas d'une seconde ouverte du fichier. Mais maintenant cela ne fonctionne plus.
Amicalement,
Jean-Marie
 
Dernière édition:

Toubabou

XLDnaute Occasionnel
Oups, pardon, il semblerai que lorsque je réponds avec mon téléphone, j'ai un soucis de clavier.
Amicalement,
Jean-Marie
 

nicopec

XLDnaute Occasionnel
ok, plus simple :

On Error Resume Next
Workbooks("Les vins.Xlsm").Activate
if Err Then Err.Clear: Workbooks.Open Filename:="C:\Users\" & Environ("username") & "\Dropbox\Recettes\Compléments\" & "Les vins.Xlsm"
 

Toubabou

XLDnaute Occasionnel
Super cela fonctionne sur le premier PC. J’espère pouvoir essayer sur le second dès ce soir.
Amicalement,
Jean-Marie
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas