Vba-e Probleme boucle sur envoi mail

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+

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.

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

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!

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+

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

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.

Non il faut faire un petit truc différend !

Patiente je te dis çA...

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

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

l'erreur est sur Call SendMail_Outlook !merci !

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+

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?

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

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

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

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.

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!

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+

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 ?