ouverture automatique demarrage

[jderoque]

bonjour à tous
je sais qu'il y a beaucoup d'info sur le sujet mais pas exactement ce qu'il me faut.
j'ai un fichier excel qui pioche des données dans trois autres fichiers.
le probleme est que quand j'ouvre mon fichier central, il veut faire les mises à jour des données mais impossible car ils ne sont pas ouvert.
j'aimerais donc au demarrage ouvrir mes trois fichiers.
ils sont dans le meme repertoire et je ne veux pas entrer le chemin d'acces.
une fois les fichiers ouvert attendre dix secondes et les refermer.

voila ou j'en suis

Sub Auto_open()

Workbooks.Open "DONNEES.XLS"
Workbooks.Open "DONNEES1.XLS"
Workbooks.Open "DONNEES2.XLS"

End Sub

mais autant vous dire que ca ne marche pas du tout.
si vous avez la marche a suivre ca m'aiderai beaucoup
merci d'avance
jean

 

[tototiti2008]

Re : ouverture automatique demarrage

Bonjour jderoque,

Private Sub Workbook_Open()
Workbooks.Open thisworkbook.path & "\DONNEES.XLS"
Workbooks.Open thisworkbook.path & "\DONNEES1.XLS"
Workbooks.Open thisworkbook.path & "\DONNEES2.XLS"
application.ontime now + timevalue("00:00:10"), "ThisWorkbook.FermerTout"
End Sub
 
Sub FermerTout()
workbooks("DONNEES.XLS").close false
workbooks("DONNEES1.XLS").close false
workbooks("DONNEES2.XLS").close false
End Sub

à mettre dans ThisWorkbook

 

[Raja]

Re : ouverture automatique demarrage

Bonjour, Salut tototiti2008,

Tu peux aussi tester le code suivant dans un module de VBAProject de ton classeur principal qui est lié avec ces 3 fichiers :

Private Sub Auto_Open()
  Workbooks.Open "DONNEES.xls"
  Workbooks.Open "DONNEES1.xls"
  Workbooks.Open "DONNEES2.xls"
  Application.Wait (10) 'délai à adapter
  Workbooks("DONNEES.xls").Close savechanges:=False
  Workbooks("DONNEES1.xls").Close savechanges:=False
  Workbooks("DONNEES2.xls").Close savechanges:=False
End Sub

Par contre, dans le menu Outils/Options/Onglet Général dans le Dossier par défaut : inscrit le repertoire de tes fichiers. A l'ouverture de ton fichier principal, la macro ouvre les 3 fichier et les ferme après.

 

[jderoque]

Re : ouverture automatique demarrage

merci bcp pour votre réponse
ca marche nickel.
mais j'aimerai encore une petite chose
au demarrage il veut faire les mises a jour, ne trouve pas les fichiers et lance la macro.
ya t'il moyen que tout ces messages de depart ne s'affichent pas et kil fasse les mises entre ouverture et la fermeture des fichiers sources?
merci

 

[tototiti2008]

Re : ouverture automatique demarrage

tu veux qu'il fasse les mises à jour ? comment il fait s'il ne trouve pas les fichiers ?

 

[job75]

Re : ouverture automatique demarrage

Bonjour,
Pour éviter les divers messages de mise à jour lors de l'ouverture, je ne vois personnellement qu'une solution : mettre les références externes sous forme de texte (sans le chemin d'accès) et les introduire dans une fonction INDIRECT().
A+

Exemple : =INDIRECT("DONNEES.xls!A1")

 

[jderoque]

Re : ouverture automatique demarrage

ben en fait au depart il veux faire les mises a jours mais ne peut pas car les fichier sont fermer. resultat, 3 message d'erreurs. puis la macro s'execute, les trois fichiers s'ouvrent, la mise à jour a lieu et tt va bien.
mon pb est de savoir s'il est possible de ne pas avoir ces messages d'erreur ?

 

[tototiti2008]

Re : ouverture automatique demarrage

Bonjour à tous,

sur une liaison, tu peux demander qu'elle se mette à jour ou non au démarrage.
mais si tu désactives la mise à jour, c'est en VBA que tu devras demander de mettre à jour tes liaisons...

 

[jderoque]

Re : ouverture automatique demarrage

oki merci Tototiti 2008
mais concretement comment on fait car c'est exactment ca dont J'ai besoin.
merci