accorder un nom fixe

voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9

dim xls2 as Excel.Applicatiom   Set xls2 = CreateObject("Excel.Application") xls2.Visible = True xls2.Workbooks.Open Filename:="K:\projet entreprise\programmes\interfaceclient.xlsm"   'et la grace au nom xls2 je peux accéder au fichier interfaceclient.xlsm :   xls2.Windows("interfaceclient.xlsm").Activate

---

ma question est la suivante :
est il possible d accorder un nom fixe a la place de la variable xls

mon but et de réutiliser xls.Windows("interfaceclient.xlsm").Activate dans d autres module et userform.

merci a tous !

Bonjour,

Ma première question serait, as tu vraiment besoin d'une instance excel.application ?

Sinon pour répondre a ta question, je pense qu'une variable Workbook fera l'affaire

Code:

---

1 2 3 4 5 6

dim Wrk as New Workbook   set Wrk =Application.Workbooks.Open Filename:="K:\projet entreprise\programmes\interfaceclient.xlsm"   Wrk.Activate

---

oui j en ai besoin car je dispose de 2 écrans marchants en simultanés.

merci pour le réponse je teste ça tout de suite !

Il écrit (VBa) "erreur de compilation attendue : fin d'instruction".
quand je rentre le code que tu ma écrit.

J'ai essayé de rajouter des trucs dans le code mais j y arrive pas.
tu as une idée ?

c'est bon j'ai réussi a utiliser ton code il manquait les parenthèses

Code:

---

1 2 3 4

Set Wrk = Application.Workbooks.Open(Filename:="K:\projet entreprise\programmes\interfaceclient.xlsm")   Wrk.Visible = True Wrk.Activate

---

maintenant le truc c'est qu'il a ouvert le fichier interface client dans la même fenêtre et moi je veux qu'une nouvelle fenêtre soit créer afin de la mettre sur mon deuxième écran, et de pouvoir ainsi les faire communiquer grâce a la formule:

Code:

---

wrk.windows ("interfaceclient.xlsm").activate

---

merci

Salut
Utilise xls2 qui tu as créé plus haut en lieu et place de application, qui fait référence a ton instance d'excel sur laquelle tu te trouves.

++
Qwaz

ok super merci