Discussion :

[mekehari]

Bonjour,

Je suis entrain de mettre en place une base de donnée sur excel. Elle me permettra de gérer plus facilement les calculs et la gestion des stock de ma production. J'arrive sans problème à relier tous mes fichiers entre eux.
Mon problème vient de l'ouverture des fichiers nécessaires aux calculs. Je travaille sur Mac, et le reste du bureau est soit sur Mac soit sous Windows. J'ai mis mes fichiers sur le réseau interne. Mon problème maintenant c'est que je voudrais que lorsque la responsable de production ouvre le fichier de gestion des stocks tous ceux nécessaires aux calculs s'ouvrent en même temps. J'ai bien essayé quelques macros sur VBA mais j'ai un soucis quand il s'agit d'entrer les chemins je me retrouve systématiquement avec une erreur 1004.

Si vous pouviez m'aider ça m'aiderait beaucoup. Merci.

[Menhir]

Je suis entrain de mettre en place une base de donnée sur excel.

Mauvaise idée. Excel n'est pas conçu pour ça.
Visser une vis avec en utilisant un couteau, parfois ça marche mais ça donne rarement du bon travail professionnellement.
Pour faire ça, il y a des gestionnaires de base de données comme Microsoft Accès ou Open Office Base.

Et si en plus plusieurs personnes peuvent y accéder simultanément, là ça devient une très mauvaise idée.

Mon problème maintenant c'est que je voudrais que lorsque la responsable de production ouvre le fichier de gestion des stocks tous ceux nécessaires aux calculs s'ouvrent en même temps.

Dans le gestionnaire de projet de ton fichier principal, tu mets dans le Wrokbook une macro événementielle Open dans laquelle tu placera l'ouverture de tes autres fichiers.

J'ai bien essayé quelques macros sur VBA mais j'ai un soucis quand il s'agit d'entrer les chemins je me retrouve systématiquement avec une erreur 1004.

Sans savoir ce que tu as taper comme code, il est difficile de t'indiquer où est ton erreur.

[mekehari]

Bonjour,
je sais que Excel n'est pas le meilleur outil pour tout ça mais c'est le seul maitrisé par le bureau et il n'y a ni l'envie ni la motivation pour passer sur un autre, donc j'essaie de l'adapter au mieux.

Je n'ai pas trouver le "gestionnaire de projet" je ne savais même pas qu'il y en avait un sur Excel.

le code macro tapé est :

Private Sub Workbook_Open()
Set c = ThisWorkbook
Application.Workbooks.Open ("/Users/mekehari/Desktop/marlette/fichier propre/base de donnée V1.xslx"),, true
'ouvre le classeur en lecture seul pour éviter les accidents
c.Activate
Set c = Nothing
End Sub


pour le moment j'essaye de voire si j'arrive à mes fin sur mon ordi en fermé. Une fois en place je changerais le chemin d'accès pour rediriger le tout sur le réseau.

[Menhir]

Je n'ai pas trouver le "gestionnaire de projet" je ne savais même pas qu'il y en avait un sur Excel.

Dans ce cas, où as-tu tapé ta macro ?

As-tu essayé d'ajouter le nom du lecteur dans ton chemin ? Je suppose que si tu es en local, ça doit être C: ?
J'ai aussi rectifié deux ou trois trucs dans ton code. Pas vraiment des erreurs mais des ajustements. Il vaut mieux déclarer les variables, le Nothing final est inutile (la variable disparait à la fin de l'exécution) et il n'est pas nécessaire de préciser Application pour ouvrir un workbook Excel dans Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
   Dim c as Workbook
 
   Set c = ThisWorkbook
   Workbooks.Open ("C:/Users/mekehari/Desktop/marlette/fichier propre/base de donnée V1.xslx"),, true
   c.Activate
 
End Sub

Un petit détail m'intrigue : si ce code est copié depuis l'éditeur VBA, je m'étonne que le True du Open n'ait pas une majuscule et qu'il n'y ait pas en espace entre les deux virgules.

[mekehari]

Effectivement il me rajoute direct le T majuscule et l'espace.

Oui je suis en local mais sur mac et du coup ce n'est pas "c:" le nom de mon volume et j'ai beau essayer tous les noms possible

MacBook pro de charly berlot/ Macintosh HD/Users...
Macintosh HD/ Users...

rien y fait.

et quand je fais débogage il me surligne juste la ligne de chemin

[Menhir]

Ouvre ton fichier à la main et lance la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub chemin()
Debug.Print ActiveWorkbook.Path
End Sub

Elle te donnera la désignation complète du chemin de ton fichier.

L'autre solution est de déclencher l'enregistreur automatique de macro et d'ouvrir ton fichier à la main. Le code généré t'indiquera ce qu'il faut comme désignation pour ton fichier.

[mekehari]

Super ça marche maintenant.
sur ma version/ordi/os à déterminer mais je n'ai pas le niveau, pour rentrer un chemin sur VBA il faut mettre ":" entre chaque nom et non "/" du coup ça risquait pas de marcher.
merci beaucoup.