Discussion :

[arctica]

Bonjours à tous

j'ai demandé et obtenu votre aide (merci FVandermeulen) concernant une macro qui doit m'expédier des emails automatiques au transporteur dés lors qu'apparait dans la feuille "globale" " pas livrée ? " (colonne Q) , les transporteurs étant en J , les transporteur que l'on retrouve egalement en feuille(dest) colonne A , leurs l'adresses email etant en b et c de la feuille "Dest"
Je souhaite envoyer ses emails sans avertissements Malheureusement quand je l'execute il m'indique la variable objet ou variable de bloc with non definie Pourriez vous m'aider ?Je joins le fichier avec qui indique en rose le numero de commande devant apparaitre dans le message , en bleu les transporteurs en jaune les cellules qui déclenchent les messages

[Fvandermeulen]

Salut Arctica,

Dans le fichier que je t'avais donné il y a des remarques dans le code, dont les lignes que tu dois adapter, commence par adapter ces lignes et ensuite dis nous où ça coince en recopiant le code.

Il y a également une référence à activer (Outils/références):
Microsoft CDO for Windows 2000 Library (comme indiquer au début du code)

A+

[arctica]

Bonsoir FVandermeulen

-Dans la macro envoie des mails sans confirmations j'ai mis mon adresse email comme demandé comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.From = "philippe.lohr" & Chr(64) & "mondia.fr"

et dans la fonction j'ai bien mis l'adresse smtp comme indiqué dans outlook
Dans la ligne là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets("globale").Cells(r, 17) = "pas livrée ?"

Then 'Attention syntaxe importante, éventuellement vérifier si non vide (moins de risque)
je n'ai rien touché mais que voulez vous dire par "verifier si non vide ?" car je pense que la syntaxe est "pas livrée ?" non?
enfin quand je déclenche le processus une erreur m'indique la variable objet ou variable de bloc with non définie la ligne Monto se met en jaune dans le bloc ci apres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With MaPlage
            Set MaRech = .Find(Sheets("globale").Cells(r, 10).Value, LookIn:=xlValues) 'Récupère l'address de la cellule qui répond à la recherche
            MonTo = Sheets("Dest").Cells(MaRech.Row, 2) & Chr(64) & Sheets("dest").Cells(MaRech.Row, 3) 'Récupère l'adresse e-mail par concaténation de la colonne 2 et 3            MonText = Sheets("Dest").Cells(MaRech.Row, 5) 'récupère le texte dans la colonne E (N°5)
        End With

Voila j'espere votre aide car je dois mettre cela en fonction rapidement

[Fvandermeulen]

Salut,
Dans l'ordre:
OK pour l'adresse e-mail "envoyeur"
Pour la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets("globale").Cells(r, 17) = "pas livrée ?"

Ce que je veux dire c'est que si dans le fichier tu notes par erreur "Pas livrer" par exemple le résultat sera 'faux' et donc pas pris en compte pour l'envoi.
Par contre la ligne (! écrit à main levée donc pas testée):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If not isempty(sheets("globale").cells(r,17)) then

Considérera toutes les lignes non vide de la colonne 17 et donc prendrait en compte "Pas livrer"

Ensuite pour l'erreur:
Il faudrait voir ce que MaRech renvoi, pour ça passe sur la macro en mode pas à pas (ou mais un point d'arrêt sur la ligne) car ça peut être la source d'erreur.
Tout comme le nom de la feuille ("Dest"), l'as tu changé ?

Si vraiment t'es pressé et que ça ne te dérange pas de remttre le fichier n'hésite pas je devrais avoir le temps d'y jeter un oeil.

A+