Ouvrir automatiquement plusieurs fichiers

[Hic]

Bonjour à tous,

voilà mon petit problème excel 2003:

Attention: Je veux éviter tout code VBA pour le réaliser!!!


Qd j'ouvre mon fichier principal, j'aimerais qu'il ouvre automatiquement plusieurs autres fichiers excel qui me sont nécessaires pour mes calculs. Tous les fichiers en question se
trouvent dans le même répertoire:

a. fichierprincipal.xls
b. donnees1.xls
c. donnees2.xls
d. donnees3.xls


Dans mon 'fichierprincipal.xls', j'utilise des fonctions du type:
INDIRECT(donnees1.xls......) pour retrouver mes données d'un autre fichier.

Mon problème étant que si mes fichiers donnees ne sont pas ouvert,
mon fichierprincipal.xls n'arrive pas à calculer mes formules, et me donne: #REF pour toutes mes cellules.

Votre aide me serait très utile
Merci à tous.

 

[Tibo]

Salut Hic,

Un début de piste :

Si tous tes fichiers sont dans le même répertoire : Fichier / Ouvrir/ Sélectionner tous les fichiers puir Ouvrir.



Sinon, voir du côté de la création d'un classeur Office.

Ca permet de rassembler plusieurs fichiers Office (Excel; Word, ...).

Ca fait longtemps que j'ai fait ça, donc je ne sais plus trop comment il faut faire, mais avec l'aide, tu devrais trouver.

Bon App

@+

Message édité par: tibo, à: 09/12/2005 12:15

 

[Temjeh]

Bonjour à tous

Dans thisworkbook(Alt+F11) colle ceci si il son dans le même dossier:

Private Sub Workbook_Open()
chemin = ActiveWorkbook.Path
ChDir chemin

Workbooks.Open Filename:= _
chemin & '\\' & 'donnees1.xls'
Workbooks.Open Filename:= _
chemin & '\\' & 'donnees2.xls'
Workbooks.Open Filename:= _
chemin & '\\' & 'donnees3.xls'
End Sub

A+

Temjeh

 

[Temjeh]

Oups entre les 2 guillemets seuls il ne veut pas mettre la barre de séparation donc met-la avant de copier coller

J'essai encore autrement sinon met le à la main

Private Sub Workbook_Open()
chemin = ActiveWorkbook.Path
ChDir chemin

Workbooks.Open Filename:= _
chemin & '\\Horaire.xls'
Workbooks.Open Filename:= _
chemin & '\\Trie.xls'
Workbooks.Open Filename:= _
chemin & '\\Trie_complexe.xls'
End Sub

Temjeh

 

[Temjeh]

Oubli mon deuxième message je n'ai même pas mis tes classeurs!!!

De toute facon il ne met pas le séparateur donc prend mon premier et ajoute le séparateur entre les ''

Temjeh

 

[Temjeh]

Rebonjour à tous

Au pire aussi sans VBA tu peut lui mettre 3 hypperliens

Ps:La barre de travers est '/'

Désolé

Temjeh