ouverture de fichiers depuis une macro

[ced]

bonjour à tous les spécialistes,


je voudrais savoir comment on peut créer un macro qui ouvre les fichiers de travail se rattachant à une feuille principale sur lequel est implanté la macro.

J'ai un fihcier central central.xls et des fichiers liés de type W1.xls, W2.xls, ...
Je voudrais pouvoir les ouvrir automatiquement depuis central.xls. Avec une contrainte supplémentaire, le logiciel créé a vocation à être déplacé, c'est pourquoi je ne peux pas utiliser un commande du type 'c:/mes/logiciel/W1.xls ...

Quel solution pouvez vous me proposez ?

Je vous remervie par avance pour toute aide que vous pourrez m'apporter.

Cordialement

Céd

 

[michael]

Bonjour,

tu peux utiliser l'instruction Application.FileSearch pour rechercher l'emplacement du fichier que tu souhaite ouvrir, puis lancer l'ouverture.

Michael

 

[Zon]

Bonjour à tous,


J'avais fait un code pour qq1 dur forum il y a quelque jour que j'ai coupé, à partir du fichier existant où se situe cette macro on ouvre d'autres classeur
qu l'on désire, pour arrêter le code il suffit de cliquer sur annuler dans la fenêtre Ouvrir puis annuler dans le messsage "Il y a erreur
Sub ouvrefichier()
'Ouvre la boite de dialogue Ouvrir
Dim reponse as String
Dim wk1 As Workbook

Set wk = ActiveWorkbook 'définition du classeur ouvert

1
fichier = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls") 'ouvre la fenetre Ouvrir
On Error GoTo sortie
If filetoopen <> False Then 'bouton annuler
Workbooks.Open (CStr(fichier))
Else: reponse = MsgBox("Il y a erreur", vbOKCancel, "ERREUR de FICHIER")
End If
If reponse = vbOK Then
GoTo 1 'On revient au dessus pour ouvrir un fichier
Else: GoTo sortie
End If
sortie:
End Sub


A+++