tableau de bord

[asmar]

bonjour
j'ai une problème concernant le fichier ci-joint , mon but c'est d'envoyer un mail automatique a partir de Outlook chaque fois que la case "H3" de la page 'menu principale ' (kilométrage restant) , est inférieur ou égale à 1000.je faire un macro ( a l'aide de quelqu'un dans ce forum) mais il ne marche pas comme il faut... aidez-moi si vous plait , c'est très urgent.. merci d'avance

 

[Lone-wolf]

Re : tableau de bord

Bonjour asmar,

fait un copier coller du code dans la feuille principale. Clic-droit sur la feuille > Afficher le code.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OlApp As New Outlook.Application
Dim OlMail
Dim Fichier As String

If Range("H3").Value <= 1000 Then
Application.WindowState = xlMinimized
Set OlApp = New Outlook.Application
    Set OlMail = OlApp.CreateItem(olMailItem)
 
     With OlMail
        .To = "xxxxxx.outlook.com"
       .Subject = "Commande pneux"
       .Body = "Bonjour Messieurs,"
       .Display     'Pour visualiser le mail avant de l'envoyer
       .Send        'Pour envois automatique
    End With
    Set OlMail = Nothing
    Set OlApp = Nothing
End If
End Sub

A+

 

[asmar]

Re : tableau de bord

Merci , mais ça marche pas...lors le valeur de cellule 'h3' a changé...le programme indique un probleme..le message d'alerte c'est : 'type defini par l'utilisateur non defini' (le défau est existe au ligne 2 : outlook)

 

[asmar]

Re : tableau de bord

bonjour
merci j'ai résolu la problème

 

[Lone-wolf]

Re : tableau de bord

Bonsoir asmar,

C'est très bien. Mais note quand même dans le 1er message "Problème résolu".


A+