envoie mail a partir d'une date

sixair

XLDnaute Junior

• 1 Mai 2013

• #16

Re : envoie mail a partir d'une date

Bonjour,

Petit problème avec la référence, je suis en 2007,
or, j'ai remarqué que tu as remplacé le 1 par "mail envoyé"
Il faudrai aussi changer la ligne 4

If Cells(Ligne, 4) - Date <= Cells(18, 9) And Cells(Ligne, 6) <> 1 Then

Cliquez pour agrandir...

par

If Cells(Ligne, 4) - Date <= Cells(18, 9) And Cells(Ligne, 6) <> "mail envoyé" Then

Cliquez pour agrandir...

Cordialement
six'R

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 1 Mai 2013

• #17

Re : envoie mail a partir d'une date

merci

commande modifiée mais toujours de départ de mon dernier mail


merci

RAPHAEL

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 1 Mai 2013

• #18

Re : envoie mail a partir d'une date

j'ai effacé les 3 'msg envoyé" et appuyé sur envoie msg mais seul les 3 premier partent pas le 4 ème

 

Vote positif 0 Vote négatif

sixair

XLDnaute Junior

• 1 Mai 2013

• #19

Re : envoie mail a partir d'une date

Re-re-moi,

J'ai comme l'impression que tu me tends des pièges...🙁

J'ai pu voir que tu as ajouter une ligne en haut,
or, tu n'as pas modifier la selection:

Code:

NbLignes = Application.CountA(Columns(4))

devient

Code:

NbLignes = Application.CountA(Columns(4)) + 1

et donc la dernière ligne n'était pas traitée

Cdlt

 

Pièces jointes

• expiration.xlsm

  64.6 KB · Affichages: 52
• expiration.xlsm

  64.6 KB · Affichages: 61
• expiration.xlsm

  64.6 KB · Affichages: 53

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 1 Mai 2013

• #20

Re : envoie mail a partir d'une date

effectivement j'ai rajouté un ligne, j'avais compensé ça en mettant 3 a la place de 2 dans le ligne suivant

For Ligne = 3 To NbLignes


que veux dire cette commande ?

une nouvelle fois je te remercie

cordialement

RAPHAEL

 

Vote positif 0 Vote négatif

sixair

XLDnaute Junior

• 1 Mai 2013

• #21

Re : envoie mail a partir d'une date

Explications:

NbLignes = Application.CountA(Columns(4)) + 1
Je compte les lignes non vides de la colonne 4 et ajoute 1 pour compenser la ligne vide en haut =>variable NbLignes
For Ligne = 3 To NbLignes
se traduit : pour les lignes 3 à (NbLignes) , permet de boucler sur les lignes
On aurait pu écrire: For Ligne = 3 To NbLignes step 1
ou step 1 est l'incrémentation (toutes les lignes)
step 2 = toutes les 2 lignes, etc
ou encore
For Ligne = NbLignes to 3 step -1 (de bas en haut, très utile quand on supprimes des lignes dans la macro...)

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 1 Mai 2013

• #22

Re : envoie mail a partir d'une date

merci

je pense que maintenant le sujet est clos .

encore merci pour tout

cordialement

RAPHAEL 🙂🙂

 

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 9 Mai 2013

• #23

Re : envoie mail a partir d'une date

bonjour au forum

je reviens sur cette discussion, pour mettre au point mon fichier

jusqu'à maintenant tout allait bien mais aujourd'hui plus rien ne va

si j'appuie sur envoie les mails qui ne devraient pas partir , partent
seul ceux où il y a un nom et une localité et la colonne date "grise" partent ( pas nornal)
ceux qui sont jaunes ne partent pas et là c'est normal

merci

le troubadour

 

Pièces jointes

• Copie.xlsm

  76.6 KB · Affichages: 33
• Copie.xlsm

  76.6 KB · Affichages: 39
• Copie.xlsm

  76.6 KB · Affichages: 39

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 10 Mai 2013

• #24

(RESOLU) envoie mail a partir d'une date

le problème est réglé

merci SIXAIR

 

Vote positif 0 Vote négatif