Discussion :

[will Igetit]

bonjour,
J'ai un doc qui a une macro qui amene a ouvrir d'autre document et je souhaitera garder le seccond document ouvert comme celui active a l'ecran, que dois je faire ?
lecode est pour le moment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc1.xls",  UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc2.xls",  UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc3.xls",  UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False

j'ai pense a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim myworkbook as workbooks
set myworkbook = "C:\WINDOWS\Profiles\\Desktop\doc2.xls"
set myworkbook = activeworkbook

[helios77]

Bonjour
la commande est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Activate

Voici ce que tu devrais fair dans ton code, çà me parait plus simple à maintenir si tes fichiers viennet à changer de nom ou de localisation


A mettre au tout debut de ton module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Pulic const strFile1 as string = "doc1.xls"
Pulic const strFile2 as string = "doc2.xls"
Pulic const strFile3 as string = "doc3.xls"
Public const repertoire as string = "C:\WINDOWS\Profiles\\Desktop\"

A mettre dans ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Workbooks.Open Filename:=repertoire & strFile1,UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
Workbooks.Open Filename:=repertoire & strFile2,UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
Workbooks.Open Filename:=repertoire & strFile3,UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
Workbooks(strFile2).Activate

Voilà g pas testé mais çà devrait pas trop mal fonctionner je pense

[Gorfael]

Salut will Igetit et le forum
Plein de possibilités, mais sans le but réel de ta macro... On ferme les autres ? on le code en variable ?
Pourquoi pas modifier le sens d'ouverture ? le dernier ouvert est celui actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc1.xls", IgnoreReadOnlyRecommended:=True
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc3.xls",  UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False 
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc2.xls",  UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False

C'est Doc2 qui est actif à la fin du code
j'ai pense a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim myworkbook as workbook
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc1.xls", UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
set myworkbook =Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc2.xls", UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
Workbooks.Open Filename:="C:\WINDOWS\Profiles\\Desktop\doc3.xls", UpdateLinks:=0, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False
myworkbook.activate

Fait attention dans le type des variables :
workbooks : collection de classeurs
workbook : classeur
3 classeurs d'ouverts (peut-être que certains paramètres ne sont pas nécessaires).
Un seul stocké en variable. Mais n'ayant pas plus d'infos, c'est impossible de te préconiser une méthode plutot qu'une autre.
A+