Comment en vba je pourrais tester si Outlook (ou word) est d=E9j=E0 ouvert
avant de lancer une commande ?
il faudrait que si Outlook est ouvert alors je fais exit sub avec une
msgbox avant pour inviter l'utilisateur =E0 fermer cette application
sinon je continue mon code vba sous excel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour SylVBA,
'----------------------------------- Sub test() Dim X As Object On Error Resume Next 'Pour Word, tu remplaces outlook par Word Set X = GetObject(, "Outlook.application") If Err.Number = 0 Then MsgBox "Microsoft Outlook est déjà ouvert" 'Si tu veux fermer l'application X.Quit Exit Sub End If End Sub '-----------------------------------
"SylVBA" a écrit dans le message de groupe de discussion :
Bsr,
Dèja dedans à peine revenue de vacances .....
Comment en vba je pourrais tester si Outlook (ou word) est déjà ouvert avant de lancer une commande ?
il faudrait que si Outlook est ouvert alors je fais exit sub avec une msgbox avant pour inviter l'utilisateur à fermer cette application sinon je continue mon code vba sous excel
je vous remercie vivement de votre aide
Bonne soirée
SylVBA
Bonjour SylVBA,
'-----------------------------------
Sub test()
Dim X As Object
On Error Resume Next
'Pour Word, tu remplaces outlook par Word
Set X = GetObject(, "Outlook.application")
If Err.Number = 0 Then
MsgBox "Microsoft Outlook est déjà ouvert"
'Si tu veux fermer l'application
X.Quit
Exit Sub
End If
End Sub
'-----------------------------------
"SylVBA" <sylvie.laurent82@wanadoo.fr> a écrit dans le message de groupe de discussion :
7fd15758-e363-4dfa-b584-0715fd09c396@s13g2000yql.googlegroups.com...
Bsr,
Dèja dedans à peine revenue de vacances .....
Comment en vba je pourrais tester si Outlook (ou word) est déjà ouvert
avant de lancer une commande ?
il faudrait que si Outlook est ouvert alors je fais exit sub avec une
msgbox avant pour inviter l'utilisateur à fermer cette application
sinon je continue mon code vba sous excel
'----------------------------------- Sub test() Dim X As Object On Error Resume Next 'Pour Word, tu remplaces outlook par Word Set X = GetObject(, "Outlook.application") If Err.Number = 0 Then MsgBox "Microsoft Outlook est déjà ouvert" 'Si tu veux fermer l'application X.Quit Exit Sub End If End Sub '-----------------------------------
"SylVBA" a écrit dans le message de groupe de discussion :
Bsr,
Dèja dedans à peine revenue de vacances .....
Comment en vba je pourrais tester si Outlook (ou word) est déjà ouvert avant de lancer une commande ?
il faudrait que si Outlook est ouvert alors je fais exit sub avec une msgbox avant pour inviter l'utilisateur à fermer cette application sinon je continue mon code vba sous excel
je vous remercie vivement de votre aide
Bonne soirée
SylVBA
SylVBA
Bsr MichDenis
Cette solution est parfaite, ta participation en ce moment est proche du record,!!!!!!!!!
Merci pour tous les différents conseils et solutions: Chapeau
En esp"rant un jour pouvoir venir au fameux diner MPFE......
Bonne soirée
Sylvie
Bsr MichDenis
Cette solution est parfaite, ta participation en ce moment est proche
du record,!!!!!!!!!
Merci pour tous les différents conseils et solutions: Chapeau
En esp"rant un jour pouvoir venir au fameux diner MPFE......