vba-e Probleme boucle sur envoi mail

Question

Bonjour,
J'ai un problème, j'ai une macro qui envoi un mail lorsque range("a1").value = "1"
Le problème c'est que cette valeur (1) ne doit pas changer, donc j'ai des envois de mail en boucle !

Comment faire en que la macro envoimail s'execute une seule fois après avoir tester la valeur de a1?
Merci !

Bidouilleu_R · Answer

bonjour,

une remarque ! range("a1").value = "1" 
le fait de mettre des guillemets te trompera si tu contrôles une valeur 1 est différent de "1"

fait ce test
Sub toto()
Sheets("feuil1").Select
If IsNumeric(Range("A1").Value) Then
    MsgBox ("c'est un chiffre")
 Else
    MsgBox ("c'est du texte")
 End If

End Sub

selon que cela te fait progresser ou non....
tu peux nous montrer ta boucle....
A+

Invite5 · Answer

Voila ma boucle : 
Private Sub Worksheet_Change(ByVal Target As Range)
DateJour = Now
DOA = Range("e161").Value
Date48 = 48

If DateJour - DOA > Date48 Then
    Range("z161").Value = "1"
        Else: Range("z161").Value = "0"
End If
Sheets("Main courante").Select
If IsNumeric(Range("Z161").Value) Then
Call SendMail_Outlook

end sub
Il me créé des centaines de messages outlook.

Bidouilleu_R · Answer

If DateJour - DOA > Date48 Then
    Range("z161").Value = 1
        Else: Range("z161").Value = 0
End If

Sheets("Main courante").Select
If Range("Z161").Value<>0 Then
Call SendMail_Outlook
endif
end sub

Invite5 · Answer

Toujours la boucle ! 
J'ai remarqué que si je faisais, après SendMail_Outlook un Range("Z161").Value = 2
Il restait à 1 mail.
Donc il faut arrêter la macro SendMail_Outlook après une seule execution, comment faire?
merci!

Bidouilleu_R · Answer

Range("Z161").Value = 2 ....... Il restait à 1 mail.
C'est normal car tu utilises .... Worksheet_Change
en mettant 2 il y a un changement donc tu relances la procédure et comme
la valeur est différente de 0 tu lances un mail.
mais on peut améliorer...

Essaye ça!

Private Sub Worksheet_Change(ByVal Target As Range)
DateJour = Now
DOA = Range("e161").Value
Date48 = 48

If DateJour - DOA > Date48 Then
Range("z161").Value = 1
Else: Range("z161").Value = 0
End If

Sheets("Main courante").Select
If Range("Z161").Value<>0 and Range("Z161").Value<2 Then
Call SendMail_Outlook
endif
end sub

A+

Invite5 · Answer

Ton code marche ! 
mais la je comprends pas ! qd j'entre une date dans e165, il m'envoi quand même un tas d'e-mail ! 
je n'ai donné aucune instruction ni conidtion sur cette cellule ! 
je pense que c'est Private Sub Worksheet_Change(ByVal Target As Range) qui gene.

on v y arriver ! :p

Invite5 · Answer

Si on mettait un bouton : Tester la feuille, et les instructions et conditions sur un _Click ?
Parce que a chaque fois qu'on modifit une cellule il reteste Z161 j'ai l'impression.

Bidouilleu_R · Answer

Non il faut faire un petit truc différend !

Patiente je te dis çA...

Bidouilleu_R · Answer

Essaye comme ça!
j'ai mis des commentaires ... il faut lire

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Intersection As Range, Plage As Range

Set Plage = Range("Z161") ' on ne contrôle qu'une cellule
Set Intersection = Application.Intersect(Target, Plage)

DateJour = Now
DOA = Range("e161").Value
Date48 = 48

If DateJour - DOA > Date48 Then
Range("z161").Value = 1
Else: Range("z161").Value = 0
End If

Sheets("Main courante").Select
If Intersection Is Nothing Then
' on ne fait rien c'est pas la bonne cellule
Else
'c'est Z161 on fait le traitement
If Range("Z161").Value<>0 and Range("Z161").Value<2 Then
Call SendMail_Outlook
End if
End If

Set Plage = Nothing ' on reset l'objet
Set Intersection = Nothing ' idem

end sub

Invite5 · Answer

Ah j'ai compris, par contre à mon aivs, il y a une fonction qui s'appel récurisivemen, message d'erreur : espace pile insufisant

Invite5 · Answer

l'erreur est sur Call SendMail_Outlook !merci !

Bidouilleu_R · Answer

l'erreur doit venir de là!

Call SendMail_Outlook 

Call signifie appelle de procedure pour execution.
SendMail_outlook  est ta procedure.

comme outlook est une application
tu dois la retrouver dans un module .

il y aura une ligne  un peu comme ça set monapp=application.... outlook
A la fin de la procedure 
vérifie qu'il y a bien set monapp = nothing.
Cette erreur est commise par 95% des gens qui gens qui font un boulot mais ne range pas le matériel.

Vérifie aussi qu'il y a bien libération de l'application avec monapp.quit
Bien sur tu as compris que monapp est une variable objet elle s'appelle peut-être autrement ^^..

A+

Invite5 · Answer

Module


Sub SendMail_Outlook()

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)

With olmail
.To = ""
.Subject = "Test"
.Body = ""
.display
End With
End Sub

Instruction
'c'est Z161 on fait le traitement
If Range("Z161").Value <> 0 And Range("Z161").Value < 2 Then
Call SendMail_Outlook
End If
End If

Set Plage = Nothing ' on reset l'objet
Set Intersection = Nothing ' idem
Set ol = Nothing
End Sub

Même message d'erreur ! Je crois que je vais tout recommencer, et faire quelque chose de plus simple nan?

Bidouilleu_R · Answer

Qu'est-ce que je disais....



Sub SendMail_Outlook()

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)

With olmail
.To = ""
.Subject = "Test"
.Body = ""
.display
End With

ol.quit 
Set olmail=nothing
End Sub

mark45 · Answer

Même message d'erreur !!!c'est pas possible ?!
Espace pille insufisant !

mark45 · Answer

Même message d'erreur !!!c'est pas possible ?!
Espace pille insufisant !

Bidouilleu_R · Answer

Le problème est difficile car moi je n'ai d'erreur.
Je ne vois pas.
je le fais sous 2007. avec la bibliothèque microsoft outlook 12.0
je ne vois pas.
je ne peux  pas t'aider plus.

Invite5 · Answer

bonjour,

Comment faire un call d'une macro dont l'indicateur est : Worksheet_Change(ByVal Target As Range)
Call Worksheet_Change ne fonctionne pas ! 

merci!

Bidouilleu_R · Answer

bonjour recopie ta macro dans un module

sub test()

' adapte le code de ta macro

end sub

tu pourras alors appler ta macro avec call.

Attention aux objets et variables déjà existante...
A+

Invite5 · Answer

Oui mais alors comment mettre dans une macro sans procédure, une procédure comme Worksheet_Change(ByVal Target As Range) . Parce que si je supprime Worksheet_Change, mes instructions ne réagiront plus si les valeurs de la feuille change ?

Bidouilleu_R · Answer

le problème est mal posé.
si tu fais un appel sur un changement d'état qui change lui-même l'état
ce sera un plantage garanti...

personnellement je ne vois qu'une solution.



Worksheet_Change(ByVal Target As Range)

 call macro1
end sub

dans un module 
public sub macro1()

'dans ce module tu copies ton code en l'adaptant
end sub


private macro2()

'blabla
.....

call macro1

end sub

et donc tu pourras sur un changement  faire l'appel que tu veux.
Note que les instructions sont toutes portables de Worksheet_Change vers une sub classique

Invite5 · Answer

Ok merci ! Comment faire pour appeler ma macro dans un workbook_open()?
Si je fais call test, il fera appel à la macro sans l'instruction : Worksheet_Change

Bidouilleu_R · Answer

workbook_open()

call test
end sub

mais quand test modifiera la feuille ta  macro Worksheet_Change() sera executée et elle
voudra lancée Test qui est déjà en cours d'éxécution.

Je dirais que dans ton cas il faut faire un choix de statégie  ...
je suis désolé de ne pouvoir t'aider davantage.
Dis-moi si tu progresses.
A+

Vba-e Probleme boucle sur envoi mail

23 réponses

Votre réponse

Discussions similaires

Newsletters