Macro pour ouvrir un fichier Excel

Bonjour à tous,

J'ai un petit souci avec une macro qui devrait me permettre d'ouvrir le fichier "table metabolique", qui se trouve dans le dossier "C:\Users\djodj\Dropbox\Compléments", sur mon disque dur.

A priori j'ai une erreur que je n'arrive pas à trouver. Pourriez-vous m'aider?

"Workbooks.Open Filename:=Chemin" est surligné en jaune.

Sub Travail()
Dim Dossier As String, Fichier As String, Chemin As String
 Dossier = "C:\Users\djodj\Dropbox\Compléments\...\"
 Fichier = "table metabolique.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
[Surligner]Workbooks.Open Filename:=Chemin[/Surligner]
End If
 End Sub

Merci par avance

Bonjour,

A-priori, si l'ouverture est en erreur, c'est que le chemin n'est pas bon, ou le nom du fichier, ou que que le fichier n'y est pas... Il faut donc tout vérifier.

Je doute de l'existence d'un dossier dont le nom serait composé de 3 points...

NB- Eviter de déclarer les variables au petit bonheur en cours d'exécution, mais systématiquement en début de procédure. Dès déclaration, ta variable booléenne a automatiquement une valeur par défaut, qui dans ce cas est False, donc l'initialiser à False est lui donner la valeur qu'elle a déjà, inutile.

Et il serait mieux de pouvoir lire un code indenté, tu le déboguerais d'ailleurs plus facilement...

Cordialement.

Bonjour djodjo, MFerrand,

regarde bien ta ligne de code VBA :

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

tu as mis djodj au lieu de djodjo ! j'sais bien qu'c'est seulement ton pseudo, mais si t'as fait l'même genre d'erreur avec ton UserName réel, ça risque pas d'passer ! donc vérifie bien soigneusement chaque lettre... et absence de lettre !


Fichier = "table metabolique.xlsm"

pour ton nom de fichier, c'est peut-être "table métabolique.xlsm" ?

dhany

Bonjour Dhany, bonjour MFerrand,

Je vous remercie tous deux pour vos informations.

- Dhany:

djodjo est correctement inscrit. C'est dû à une erreur lors de la création de mon compte Microsoft.

J'ai bien contrôlé les intitulés, ils sont justes.

- MFerrand:

A-priori, si l'ouverture est en erreur, c'est que le chemin n'est pas bon, ou le nom du fichier, ou que que le fichier n'y est pas... Il faut donc tout vérifier.

Je doute de l'existence d'un dossier dont le nom serait composé de 3 points...

Effectivement l'erreur vient de là, la féniandise de mettre le nom de mon fichier.

A nouveau un grand merci à vous deux.

Bonne soirée.

Jean-Marie

merci pour ton retour d'infos, et pour avoir passé le sujet en résolu !

bonne soirée à toi aussi !

dhany

Rechercher des sujets similaires à "macro ouvrir fichier"