Réponse acceptée !
bouton fermer :
on error goto erreur
dim MyXl as object
Set MyXl = GetObject(, "Excel.Application")
'Cherche excel en mémoire et crée une DDE dans MyXl (génére une erreur si pas d'excel)
msgBox("excel est ouvert")
do while Err.Number = 0 Then 'Temps que pas d'erreur
MyXl.Application.Quit 'Quite Excel lier
Set MyXl = Nothing ' Libère la référence à l'application
Set MyXl = GetObject(, "Excel.Application")'Cherche excel en mémoire et crée une DDE dans MyXl (génére une erreur si pas d'excel)
loop
exit sub
erreur :
msgBox("excel n'est pas ouvert)
end sub
(Si la réponse vous convient, appuyez sur réponse acceptée...)
Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>