Discussion :

[Sano280]

Bonjour à tous,

J'ai un fichier Excel (2013) ou est inséré une requête SQL (PhpMyadmin) avec actualisation automatique.
Dans ce fichier, j'ai réaliser une macro qui capture le résultat d'un tableau croisé dynamique et me l'envoi dans un mail via l'application OUTLOOK.
J'utilises la référence MICROSOFT Outlook 15.0 Object Library sous EXCEL

En local, lors d'un double clique sur mon fichier, tout est OK. Le fichier s'ouvre, s'actualise, la macro s'exécute et m'envoi le mail.

J'ai donc créé un (mini) batch pour réaliser cette opération en automatique chaque matin.

BATCH (non finalisé, car cela plante avant)

start C:\RapportAuto\HeureTechnicienParMoisEnCours.xlsm

En local, le batch fonctionne, je clique dessus et le fichier Excel fonctionne correctement.

En tache planifiée avec les autorisations maximales, j'exécute et la, j'obtiens une erreur sur "Set Ol_App = Outlook.Application"
Comme s'il ne trouvait pas la référence.

Avez vous une idée ?

Le problème se situe dans la tache planifiée ? mon code ?

Ci dessous "mon" code.
J'ai un peu piocher ici et la pour le créer, je ne suis pas un expert VBA

Module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub Resultat()
 
' Dimensionnement des variables----------------------------------------------------------------------------------------------------------------------------------------------------
Dim LeNom As String, MonTo As String, strBody As String
Dim LaLigne As Long, NbAd As Long, DerLig As Long, r As Long
Dim MaRech As Range, rng As Range
Dim Ol_App As Outlook.Application
Dim Ol_Item As Outlook.MailItem
Dim S As Shape
Dim MoisInt As Integer
Dim Mois As String
Dim XX As String
 
' Récupère le tableau -------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set rng = Nothing
    Set rng = Sheets("Résultat").UsedRange
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 MoisInt = Month(Date)
 Mois = MonthName(MoisInt, False)
 
 
' Envoi du mail via Outlook--------------------------------------------------------------------------------------------------------------------------------------------------------
strBody = "Bonjour," & "<br>" & _
          "Voici les heures renseignées dans GLPI par les techniciens pour le mois de " & "<br>" & Mois
Set Ol_App = Outlook.Application
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
With Ol_Item
    .To = "x.y@societe.com"
   .Subject = "Rapport quotidien Helpdesk - Heure par Technicien" 'Défini le sujet du message
    .BodyFormat = olFormatHTML 'Défini le format du mail
    .HTMLBody = strBody & RangetoHTML(rng) 'Affecte le corps du message et lance la function pour insérer la "tableau"
    .Send 'Envoi le message !!cette procédure oblige une confirmation manuelle
End With
 
Set Ol_Item = Nothing 'Décharge
Set Ol_App = Nothing 'Décharge
 
 ActiveWorkbook.Save
 
End Sub

THISWorkBook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_Open()
'IL FAUT QUE LE TABLEAU SOIT EN "ACTUALISER CETTE CONNEXION A LA COMMANDE ACTUALISER TOUT"
 
 Sheets("Tableau").Select
 ActiveWorkbook.RefreshAll
 'Application.ScreenUpdating = False
 Sheets("Résultat").Select
 ActiveWorkbook.RefreshAll
 
 Call Resultat
 End Sub

Merci d'avance

[Jean-Philippe André]

Salut,
pour que le simple
Set Ol_App = Outlook.Application
Ca impliquerait que Outlook soit deja present d'uine facon ou une autre et ouvert dans l'outil =]

2 approches possibles :
1/ tu gardes ton code actuel mais tu forces la creation d'une instance d'Outlook

Code :

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

Set Ol_App = New Outlook.Application

2/ tu supprimes les references a outlook et tu passes par des GetObject et CreateObject

[Invité]

Bonjour,
Indépendamment du fait qu'il faut utiliser creatObject, comment as-tu définis ta tache planifié?

Avec session ouverte ou nom, avec un login admin? Car si la machine se connecte à son nom, j'espère qu'elle a une boite mail! Et si elle doit avoir accès à un répertoire réseau, les chemins sont les n adresse ip car le mappage de lecteurs ne seront peut-être pas fait!

[Sano280]

Bonjour Messieurs,

Merci d'avoir pris le temps de me répondre.

Grace a tes explications "Jean-Philippe André", j'ai un peu plus compris le fonctionnement des objets

J'ai mise à jour mon code.

Code :

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

1
2
3
4
5
6
 
Dim Ol_App As Object
Dim Ol_Item As Object
 
Set Ol_App = CreateObject("Outlook.Application")
Set Ol_Item = Ol_App.CreateItem(olMailItem)

Cela fonctionne presque parfaitement.
Lorsque je fais un test en double cliquant sur le fichier Excel, le mail est envoyé sans problème.

Lorsque je passe par la tache planifiée et que je force son lancement, SI mon OUTLOOK est ouvert, plantage, si non, si celui ci est fermé, cela fonctionne.
J'ai essayé de jouer avec "NEW" mais cela n'a pas été concluant.

Une idée du pourquoi le fichier plante via la tache planifiée si mon Outlook est ouvert ?


dysorthographie : J'ai fais pour l'instant du basique. La tache planifiée s'exécute sur mon poste lorsque ma session est ouverte.
Plus tard, le but est d'automatiser cela sur un serveur.

[joe.levrai]

Bonjour,

voici une procédure standard que j'utilise dans tout mes projets
les variables utilisées sont publiques

Code :

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

1
2
3
4
5
Sub InitialisationOutlook()
    On Error Resume Next: Set OlApp = GetObject(, "Outlook.Application"): On Error GoTo 0
    If OlApp Is Nothing Then Set OlApp = CreateObject("Outlook.Application")
    Set OlNmSpace = OlApp.GetNamespace("MAPI")
End Sub

On tente de chopper l'instance Outlook
Si ça marche pas, on la crée
La dernière ligne de code ne te sera peut-être pas utile si tu fais simplement un Create MailItem sur la boite principale du compte

[Jean-Philippe André]

Salut,

la double instance Outlook c'est pas toujours top, donc comme le note dysortho, je pense que passer dans un premier temps par un GetObject(), de tester si l'objet est Nothing et si c'est le cas (outlook pas ouvert), faire un createobject, sinon utiliser directement l'objet (outlook deja ouvert).


edit : j'ai mis trop de temps a taper mon message

[Sano280]

Merci joe.levrai , merci Jean-Philippe André

Je me suis empressé de tester cette manip et ... bah c'est pas encore cela.
Le programme plante exclusivement via la tache planifiée lorsque Outlook est ouvert.
Si Outlook est fermé, par la tache planifiée, cela fonctionne.
Sans tache planifié, ouvert ou fermé, cela fonctionne.

Ca plante ici :

Code :

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

Set Ol_App = CreateObject("Outlook.Application")

Message d'erreur :

Erreur d'execution 429 Un composant Active X ne peut pas créer d'objet

Code entier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
Sub Resultat()
 
' Dimensionnement des variables----------------------------------------------------------------------------------------------------------------------------------------------------
Dim LeNom As String, MonTo As String, strBody As String
Dim LaLigne As Long, NbAd As Long, DerLig As Long, r As Long
Dim MaRech As Range, rng As Range
Dim S As Shape
Dim MoisInt As Integer
Dim Mois As String
Dim XX As String
 
Dim Ol_App As Object
Dim Ol_Item As Object
 
 
' Récupère le tableau -------------------------------------------------------------------------------------------------------------------------------------------------------------
    Set rng = Nothing
    Set rng = Sheets("Résultat").UsedRange
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 MoisInt = Month(Date)
 Mois = MonthName(MoisInt, False)
 
 
' Envoi du mail via Outlook--------------------------------------------------------------------------------------------------------------------------------------------------------
strBody = "Bonjour," & "<br>" & _
          "Voici les heures renseignées dans GLPI par les techniciens pour le mois de " & "<br>" & Mois
 
    On Error Resume Next: Set Ol_App = GetObject(, "Outlook.Application"): On Error GoTo 0
    If Ol_App Is Nothing Then Set Ol_App = CreateObject("Outlook.Application")
    Set OlNmSpace = Ol_App.GetNamespace("MAPI")
 
Set Ol_Item = Ol_App.CreateItem(olMailItem)
 
With Ol_Item
    .To = "x.y@societe.com"
    .Subject = "Rapport quotidien Helpdesk - Heure par Technicien" 'Défini le sujet du message
    .BodyFormat = olFormatHTML 'Défini le format du mail
    .HTMLBody = strBody & RangetoHTML(rng) 'Affecte le corps du message et lance la function pour insérer la "tableau"
    .Send 'Envoi le message !!cette procédure oblige une confirmation manuelle
End With
 
Set Ol_Item = Nothing 'Décharge
Set Ol_App = Nothing 'Décharge
 
 ActiveWorkbook.Save
 
End Sub

Ya un truc qui m'échappe...