XL 2016 Enoyer un email automatique par rapport a un stock

[Flo26]

Bonjour,

Mon fichier de gestion de stock fonctionne bien grasse à vous.
il manque cependant d'une fonction indispensable, un rappel par mail des stocks bas.

Je voudrais que lorsque la colonne M affiche le mot "FAUX" un email soit envoyé qu'une fois afin de prévenir du stock bas (dans le mail quantité de la colonne I avec le code barre de la colonne A) .
J'ai une ligne de code VBA pour cela, malheureusement rien ne se passe.
J'ai encore une fois besoin de votre aide pour me sortir de se problème.

dans VBA, jai activé "microsft office 16.0 object library.

Un grand merci d'avance.

 

[danielco]

Et I27, c'est une formule, ou c'est manuel ?

 

[Flo26]

Bonjour,

C'est rentré en manuel.

 

[danielco]

Teste :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim OutApp As Object
  Dim OutMail As Object
  Dim strbody As String
  Dim L As Long
  If Target.Column = 9 And Target.Value > 1 Then
    Set OutApp = CreateObject("Outlook.Application")
    With Worksheets("feuil1") 'adaptez le nom de feuille
      strbody = ""
      Set OutMail = OutApp.CreateItem(0)
      strbody = .Range("A" & Target.Row) & " et " & .Range("I" & Target.Row) & " sont disponibles"
      With OutMail
        .To = "*****@****.com"
        .CC = ""
        .BCC = ""
        .Subject = "A vérifier"
        .Body = strbody
        .Display 'visu @MAIL
        '.Send ' pour l'envoi du @MAIL
      End With
    End With
    Set OutApp = Nothing
  End If
End Sub

Il faut modifier la ligne pour y mettre l'adresse du destinataire :

 .To = "*****@****.com"

La macro se trouve dans le module de la feuille Feuil1.

Daniel

 

[Flo26]

Avec le code de Basse outook se lance et envoie des mails comme expliqué précédemment avec les deux problème se pose :
- le premier est que l'email ce lance uniquement à la fermeture de fichier excel, alors que je voudrais qu'il ce lance juste au changement d’état de la colonne M (passage en FAUX).
- le second est qu'il m'envoie autant de mail que de ligne au dessus de celle qui comporte "FAUX"
(exemple : si a la ligne 28, "FAUX" apparaît dans la colonne M, alors 28 email vont être envoyés)
Hors je voudrais uniquement les infos de la ligne concerné.

Avec le fichier modifier Flo26 stock magasin, outlook ne ce déclenche pas ??
J'ai l'impression que des que le code est dans feuil1 outlook ne répond pas.

 

[danielco]

L'envoi du message est déclenché par une entrée dans la colonne I supérieure à 1, par exemple si tu entres une nouvelle fois "3" en I4.

Daniel

 

[Flo26]

D'accord. effectivement cela fonctionne.
Le problème est que chaque référence na pas la même quantité de stock sécurité pour déclencher l'email de rappel.

Par exemple :
-I4 l'email envoie à un stock restant de 3
-I5 l'email envoie à un stock restant de 10
-i6 l'email envoie à un stock restant de 1
...

C'est pour ça qu'aux début je pensais partir sur un système " vrai faux" rapporter à la quantité de la référence.
Peut être il y a plus facile pour le même résultat ?

 

[danielco]

L'envoi est déclenché quand la valeur de la colonne I est supérieure à 1. Autrement, il faut créer une colonne avec les valeurs de seuil de déclenchement (3, 10 et 1 pour I4, I5 et I6).

Daniel

 

[Flo26]

très bien, donc si on créer une colonne de déclenchement (disons la 13).
Il faut changer la ligne de code de déclenchement je suppose, pour que le déclenchement se face quand la casse de la colonne 9 soit égale à la colonne 13 sur la même ligne.

If Target.Column = 9 And Target.Value = 1 Then

Je sais pas trop comme arriver à ce résultat.

 

[danielco]

Mets :

If Target.Column = 9 And Target.Value >= Target.Offset(, 4).Value Then

Daniel

 

[Flo26]

j'ai remplace la ligne de code.
L'email s'envoie a toute modification de la colonne 9 sans tenir compte de la valeur de la 13 ?

 

[danielco]

Le mail s'envoie chaque fois qu'une valeur est entrée en colonne I et que cette valeur est supérieure à la colonne 13. Je ne l'ai pas indiqué, mais j'ai désactivé la macro "Private Sub Workbook_BeforeClose(Cancel As Boolean)" du module "ThisWorkbook" dans le classeur que je t'ai retourné.

Daniel

 

[Flo26]

la macro en Private sub workbook est bien désactiver.
Mais voila ce qui ce passe, par exemple sur la ligne 2, en colonne 13 je rentre 5, pourtant l'email s'envoi que la colonne I soit à 3 ou à 10.
Je ne comprend pas pourquoi cela se produit ?

 

[Flo26]

Bonjour,

Ne tenez pas compte de mon message précédent, en sauvegardant le fichier excel tous est rentré dans l'ordre.
Tous fonctionne parfaitement.
Un grand merci à toi Danielco.