XL 2010 Macro pour ouvrir un fichier dans DROPBOX

[Toubabou]

La Macro ci-dessous me permet de cliquer sur un bouton et d’ouvrir un fichier placé dans « DROPBOX ».

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

 

[Sheldor]

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

 

[Toubabou]

Bonjour Nicopec,
TOTO n'était qu'à titre d'exemple.
Jean-Marie

 

[Sheldor]

oui bien sûr, moi aussi

 

[PMO2]

Bonjour,
Essayez l'un des codes suivants

'### 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]

Désolé PM02,
Cela n'ouvre pas mon fichier:
"Les vins.xlsm"

 

[PMO2]

C'est sûr que vous ne le trouverez pas si vous ne le cherchez pas dans la fenêtre qui s'ouvre !!!

 

[Sheldor]

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

 

[Sheldor]

modifier Classeur4 par "Les vins.xlsm" bien sûr

 

[Toubabou]

Chez moi cela ne fonctionne pas

Sub Travail_vin()

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

End Sub

 

[Toubabou]

Super avec une petite modif
Semble fonctionner parfaitement. J'essaye demain avec l'autre PC

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]

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]

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

 

[Toubabou]

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

 

[Sheldor]

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"