[VBA Excel] Ouverture d'une nouvelle session Excel

Bonjour,

J'ai écrit un petit programme VBA qui ouvre un autre classeur Excel et en exécute le contenu :

Code:

---

1 2 3

'Ouverture du programme Workbooks.Open Filename:=FichierX ActiveWorkbook.RunAutoMacros xlAutoOpen

---

Hors, ce classeur ferme tous classeurs / feuilles Excel qui sont ouvert dans la même session Excel que lui (C'est son fonctionnement normal et je souhaite le conserver tel quel, car il modifie également les menus d'Excel). Donc, afin de conserver ouvert d'autres classeurs Excel que j'aurais déjà ouvert, j'aurais aimé savoir s'il était possible d'ouvrir une nouvelle session Excel afin d'y ouvrir le classeur en question.

Merci par avance pour vos réponses.

Si je comprends bien tu veux ouvrir par macro un fichier excel à partir d'un autre fichier excel, sans pour autant fermer quoi que ce soit?

Tu peux toujours essayer ça (jamais testé)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub TaSub() Dim XlAppli As Object Dim XlCl As Workbook Dim Xlfl As Worksheet Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel Set XlCl = XlAppli.Workbooks.Open("D:\xls\LeClasseur.xls") '< le classeur Set Xlfl = XlCl.Worksheets("Feuil1") '< la feuille 'et pour en sortir XlCl.Close False 'ou true XlAppli.Quit Set XlAppli = Nothing Set XlCl = Nothing Set Xlfl = Nothing End Sub

---

Tu dis si ça fonctionne, c'est intéressant ;)
A+

Bonjour et bienvenue sur les forums de www.developpez.com

C'est tout à fait possible.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim appExcel as Excel.Application Set AppExcel = CreateObject("Excel.Application")   With AppExcel .Workbooks.Open Filename:=FichierX .ActiveWorkbook.RunAutoMacros xlAutoOpen End With   appExcel.quit Set appExcel = Nothing

---

Tu as à ta disposition tout un tas de cours/tutoriels, de FAQs.

;)

ça marche nickel pour ouvrir la nouvelle fenêtre, mais il manquait un peu de code pour que le nouvel Excel fonctionne pleinement (J'ai besoin d'afficher le classeur que j'ouvre pour travailler dedans tout de même).

Au final, mon code est du genre :

Code:

---

1 2 3 4 5 6 7 8

Dim appExcel as Excel.Application Set AppExcel = CreateObject("Excel.Application")   With AppExcel .Workbooks.Open Filename:=FichierX .Visible = True .ActiveWorkbook.RunAutoMacros xlAutoOpen End With

---

Citation:

---

Envoyé par fmartin

...mais il manquait un peu de code pour que le nouvel Excel fonctionne pleinement

---

Je n'allais pas te donner toute la solution :aie:
moi ou ouskel'n'or

Hello kikof, comme tu l'as compris, je n'ai jamais utilisé de deuxième session. Par contre, je me pose (juste par curiosité) la question de savoir ce que deviennent les instances... Et, question subsidiaire, y a-t-il moyen de retourner sur le classeur "appelant" et de pouvoir de nouveau exécuter les macros qu'il contient ?
Merci

Citation:

---

Envoyé par ouskel'n'or

Hello kikof, comme tu l'as compris, je n'ai jamais utilisé de deuxième session.

---

Ben non :aie:

Citation:

---

Par contre, je me pose (juste par curiosité) la question de savoir ce que deviennent les instances... Et, question subsidiaire, y a-t-il moyen de retourner sur le classeur "appelant" et de pouvoir de nouveau exécuter les macros qu'il contient ?
Merci

---

Je me sers des instances uniquement en automation entre Access et Excel.
Donc à partir du moment ou j'en crée une : je la ferme (l'instance).
Et il faut la fermer !!
Essai un code sans fermer l'instance (appExcel.Quit) et vas dans le gestionnaire de tache. Tu as ton instance Excel !!!
Donc il est important de la fermer et de libérer la variable (appExcel = Nothing)

En ce qui concerne la question subsidiaire...
A mon avis, si tu exécutes un code avec une création d'une nouvelle instance lors de la fermeture de l'instance tu devrais revenir dans le code exécuté dans la première instance.
A voir.

Ok, merci de ta réponse, c'était juste pour savoir si mes

Citation:

---

Set XlAppli = Nothing
Set XlCl = Nothing

---

avaient une raison d'être ou non ici.
A+

Citation:

---

Envoyé par ouskel'n'or

Ok, merci de ta réponse, c'était juste pour savoir si mes
avaient une raison d'être ou non ici.
A+

---

Ces lignes ont une raison d'être ;)

Ok, merci.
A+

(Si tu penses utile de faire le ménage tu peux supprimer mes questions)

Quand j'ouvre ma nouvelle instance et que je suis effectivement dedans (Fenêtre ouverte plein écran comme je le souhaitais), le code présent dans la macro d'appel, s'arrête jusqu'à ce que cette fenêtre reprennent la main (Fermeture de la session Excel ou Click manuel marche tous les deux).

S'il n'y a pas le code "Visible = True", la session Excel reste caché, mais tourne effectivement en tâche invisible (un processus dans le gestionnaire de processus, et rien pour y avoir accès), d'où l'obligation d'avoir :

Code:

---

1 2	appExcel.quit Set appExcel = Nothing

---

à la fin d'une macro VBA qui n'aurait pas besoin d'afficher un nouvel Excel.

Merci de votre aide, la macro effectue bien ce que je voulais.