Script et macro

Bonjour,

je lance ce script à l'ouverture de ma session :

Dim xlApp 
Dim wk 
Set XlApp = CreateObject("Excel.Application") 
xlAPP.visible = False'True pour ouvrir excel False pour ne pas ouvrir excel
Set wk = xlAPP.Workbooks.Open("C:\Users\xxxxxxx\Desktop\Suivi Formation et habilitation 30.04.2020 v1.xlsm") 
xlApp.Run "AlerteSuiviPersonnel"
wk.close false
xlapp.Quit

et j'ai ma macro Alerte suivi personnel qui vérifie la couleur d'une cellule et si elle est rouge elle me lance une macro envoie mail pour donner l'alerte.

Mon problème vient du fait que je reçois sur Outlook 3 fois l'alerte, 3 messages.

Alors que quand je lance la macro à partir de mon fichier excel je reçois l'alerte une seule fois du coup mon problème doit venir de mon script ne faudrait il pas mettre une tempo? ou y à t il un problème dans mon script qui ferait comme 3 lancements de ma macro....?

Merci à tous.

Bonjour Reglaet,

Une confirmation stp : le code VBA que tu fournis est bien dans "OUTLOOK" ?

bonjour Gvialles,

non c'est un script .vbs que je lance avec le planificateur de tache à l'ouverture de session.

Bien compris.

Aurais-tu une maquette anonymisé de l'EXCEL ?

Bonjour,

ci joint le fichier

la vérification de la couleur de cellule et l'envoi mail se passe dans le module général.

Merci.

Bonjour Regis,

J'ai apporté 2 modifications :

Dans le vbs, j'ai ajouté le nom du module dans l'appel à la macro :

xlApp.Run "General.AlerteSuiviPersonnel"  'GVS...

Dans la macro, j'ai ajouté un .activate pour s'assurer que la feuille active est bien la feuille "Menu" :

Sub AlerteSuiviPersonnel()

Application.ScreenUpdating = False
With Feuil6
    .Activate 'GVS...
    If Range("M2").DisplayFormat.Interior.Color = RGB(255, 0, 0) Then
        Call EnvoiMail
    End If
End With
Application.ScreenUpdating = True
End Sub

Chez moi, cela fonctionne et je reçois qu'un seul mail.

Bonjour GVIALES,

Merci beaucoup j'ai réalisé tes modifications et ça fonctionne très bien je reçois maintenant qu'une seule fois l'email.

Bonne journée !!! .

Rechercher des sujets similaires à "script macro"