Discussion :

[fmartin]

Bonjour,

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

Code :

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

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.

[sash6]

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?

[ouskel'n'or]

Tu peux toujours essayer ça (jamais testé)

Code :

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

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+

[Lou Pitchoun]

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

C'est tout à fait possible.

Code :

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

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.

[fmartin]

ç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 :

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

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

[Lou Pitchoun]

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

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

[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

[Lou Pitchoun]

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

Ben non

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.

[ouskel'n'or]

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

Set XlAppli = Nothing
Set XlCl = Nothing

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

[Lou Pitchoun]

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

[ouskel'n'or]

Ok, merci.
A+

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

[fmartin]

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 :

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

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.