1110 connectés

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Lancer une appli dans une nouvelle instance Excel , mais pas seulement

Recherche :

Dernière réponse
Sujet : Lancer une appli dans une nouvelle instance Excel , mais pas seulement
kiki29	Salut, une recherche ? https://www.qwant.com/?client=brz-m [...] xcel&t=web

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

kiki29

Salut, une recherche ? https://www.qwant.com/?client=brz-m [...] xcel&t=web

edma

Bonjour,
J'ai une première application VBA Excel qui crée des classeurs (devis, factures,) sous une forme brute, lesquels doivent ensuite être mis en forme pour être édités/imprimés. L'exécution de ces mises en forme est assez longue.
J'ai donc créé une deuxième application qui assure ces mises en forme (analogue au spouleur Word<==> Wiindows)

La première application comporte un Userform A dont une des fonctions est de mettre dans une file d'attente (table Access) les demandes d'édition et de lancer la deuxième application dans une nouvelle instance d'Excel, par un bouton du Userform A.
La deuxième application comporte un Userform B avec un bouton qui permet de lancer la lecture de cette table Access et d'effectuer les éditions.

Voici mon problème :
1 - Cela fonctionne bien mais la première application attend la fin de la deuxième application pour pouvoir reprendre la main.
2 - Par contre si je déclare le Userform B en "no modal" les deux applications fonctionnent en même temps, mais la deuxième s’arrête (ou semble s’arrêter) lorsque la procédure ferme un classeur ouvert dans cette deuxième application (Classeur qui n'a rien à voir de près ou de loin avec la première application)

Autrement dit comment reprendre la main dans la première application, juste après le lancement de la deuxième application (après l'instruction open ...j'ai tout essayé!)

Dim appExcel As Excel.Application
Set appExcel = CreateObject("Excel.Application" )

With appExcel
.Workbooks.Open FileName:=ThisWorkbook.Path & "\Edit_Batch.xlsm"

End With
end sub

'suite des autres fonctions de la procédure

Merci de vos réponses