Vba-e Probleme boucle sur envoi mail

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+

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

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

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 ?

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+

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!

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.

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

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

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

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?

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+

l'erreur est sur Call SendMail_Outlook !merci !

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

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

Non il faut faire un petit truc différend !

Patiente je te dis çA...

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.

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

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+

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!