Ouverture fichier en automatique

[titi]

Bonjour a tous.
j'epère que la nuit a été bonne car la mienne super avec les infos que j'ai récuperé sur le forum hier, etant donner que vous etez en forme, voici une nouvelle quetion.
j'ai un dossier nommé GAL avec quatre fichiers a l'intérieur A.xls , B.xls
C.xls D.xls
Comment en ouvrant le fichier A.xls ouvrir les autres en automatique
Une petite solution merci.
Titi

 

[Pascal76]

Bonjour Titi et le forum

Peut-être avec cette petite macro dans le classeur A.xls

Private Sub Workbook_Open()

ChDir "C:\GAL"
Workbooks.Open Filename:="C:\GAL\B.xls"
Workbooks.Open Filename:="C:\GAL\C.xls"
Workbooks.Open Filename:="C:\GAL\D.xls"

End Sub

Bon courage

Pascal

 

[titi]

Merci Pascal, je viens de mettre cette macro dans ThisWorkbook du fichier que j'ouvre, mais cela plante érreur 76 (j'ai bien renomé dans le code les fichiers)
As tu une solution ? peut-être ai-je fais une mauvaise manip.
Titi

 

[Munchkin]

Bonjour titi

En fait l'erreur 76 c'est le chemin d'accés

il faut etre sur du chemin.

Tes classeurs sont peut peut etre dans un autre dossier

la solution de pascal c'est pour des classeurs qui sont dans C

il faut que tu adapte le code.

Tu vas dans le dossier et clique droite sur le classeur que tu veux, dans propirétés tu peux récupérer le chemin, n'oublie pas d'ajouter le nom du classeurs à la fin?

je pense que je n'étais pas trop clair ooooops?
mais dis mois si t'as compris

cordialement
The Munchkin

 

[Munchkin]

par exemple moi j'ai ca

Private Sub Workbook_Open()

ChDir "C:\Documents and Settings\MOHSEN\Mes documents"

Workbooks.Open FileName:="C:\Documents and Settings\MOHSEN\Mes documents\Liste des config2.xls"


End Sub

je pense c'est clair maintenant

The Munchkin

 

[Minick]

Salut,

Tu dis que tous les fichiers sont dans le meme dossier, dans ce cas tu peux faire ceci

Private Sub Workbook_Open()

ChDir ThisWorkbook.path
Workbooks.Open Filename:="B.xls"
Workbooks.Open Filename:="C.xls"
Workbooks.Open Filename:="D.xls"

End Sub

@+
Minick

 

[titi]

Merci de ton intervention Munchkin, c'est trés clair et sa marche.
Vous savez je comprends vite mais il faut m'expliquer longtemps.
Encore merci a tous les deux.
Titi

 

[Munchkin]

la solution de Minick est meilleure car si ton dossier est mit à un autre endroit ton code marchera toujours

je te conseil de faire comme Minick le dit

Munchkin

 

[Pascal76]

Re

Bon excuse je me réveille après la bataille, mais j'étais en train de bosser
Je vois que tu a été bien servi.

Bonne journée

Pascal