bonjour à tous,
dans le cadre de mes traitements XL, je suis amené à ouvrir Outlook pour récupérer des fichiers.
Depuis qques temps une fenêtre intempestive s'ouvre (cf pj).
mon service informatique m'indique que c'est un pb collectif et qu'il faut attendre sa résolution...
quelqu'un aurait-il le bout de code VBA Excel pour ouvrir OL et cliquer sur le bouton OK ?
j'ai essayé sans succès avec le code ci-dessous:
Sub ouvrirOL()
Dim oOutlook As Object
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
Shell "Outlook.exe", vbNormalFocus
End If
SendKeys "{ENTER}", True
End Sub
merci d'avance et bonne journée,
dans le cadre de mes traitements XL, je suis amené à ouvrir Outlook pour récupérer des fichiers.
Depuis qques temps une fenêtre intempestive s'ouvre (cf pj).
mon service informatique m'indique que c'est un pb collectif et qu'il faut attendre sa résolution...
quelqu'un aurait-il le bout de code VBA Excel pour ouvrir OL et cliquer sur le bouton OK ?
j'ai essayé sans succès avec le code ci-dessous:
Sub ouvrirOL()
Dim oOutlook As Object
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
Shell "Outlook.exe", vbNormalFocus
End If
SendKeys "{ENTER}", True
End Sub
merci d'avance et bonne journée,
