ouverture simultanée de 2 fichiers

[Cédric]

Bonjour a tous,
En ouvrant un classeur xls, je voudrait qu'un autre s'ouvre en même temps pour (pour éviter le bug d'une macro). Je voulais essayer avec 'liaison' dans le menu édition mais je n'y ai pas accès.
Comment faire!!!
Merci d'avance

 

[Jean-Marie]

Bonjour Cédric

Excel permet d'enregistrer/ouvrir un environnement, ce qui permet d'ouvrir simultanément plusieurs fichiers, se sont des fichiers avec extensions .XLW
Je crois que c'est André qui avait donné cette astuce en son temps.

@+Jean-Marie

 

[@+Thierry]

Bonjour Cedric, le Forum

Un code comme celui-ci dans le Private Module de "ThisWorkBook" (NB pas dans un Module Standard) devrait faire l'affaire :

Private Sub Workbook_Open()
Dim Chemin As String
Dim NomFichier As String
Chemin = "C:\Documents and Settings\Thierry\My Documents\" '<<<à adapter
NomFichier = "LautreFichier.xls" '<<< à adapter

Application.ScreenUpdating = False
Workbooks.Open Chemin & NomFichier
ThisWorkbook.Activate
Application.ScreenUpdating = True
End Sub

Bonne Journée
@+Thierry

 

[@+Thierry]

Bonjour Jean-Marie, re Cedric

On s'est croisé, mais Arf oui très bien vu cette possibilité de SaveAs "WorkSpace" (bien une extension "xlw"), et c'est vrai que vu que je ne l'utilise jamais je n'y ai pas pensé. Mais c'est probablement le plus simple pour Cedric.

Merci à toi Jean-Marie
@+Thierry

 

[Cédric]

Merci beaucoup, ça marche nickel!

Bonne journée

 

[andré]

Salut Jean-Marie, @+Thierry et Cedric

JM, que tu as une bonne mémoire !
Quant à toi @+Thierry, trop souvent c'est l'arbre qui cache la forêt.

Il est de rares moments (dont celui-ci) où je suis content de ne pas mieux connaître XL, ce qui m'oblige de me satisfaire de moyens simples (lol).

Effectivement j'emploie cette procédure depuis que j'étais tout petit (non là, j'exagère un peu !).

Ândré.