Macro Mail Auto Archivage données

Salut à tous,

Me revoilà avec un vrai sac de noeuds

Alors voilà, je souhaite remplir le bon de livraison de l'onglet BL, sans que des infos obligatoires manquent. Quand je clique sur envoi BL, cela doit :

Envoyer un mail avec en pièce jointe le tableau

Enregistrer en ligne dans un autre tableau chaque ligne de mon BLdans un autre tableau

Cleaner le bon de livraison (certaines infos) pour pouvoir en refaire un autre à la suite

Enregistrer (pour ne pas à réavoir à remplir la liste d'adresse de destinataires)

Pour ça, 3 macros distinctes et une 4ème pour lancer le tout.

Mais cela nemarche pas J'ai passé tellement de temps dessus que je n'y vois plus clair ...

N'hésitez pas à me dire si des choses ne sont pas claires, ce ne serait pas étonnant !

Merci d'avance !

Salut SoCRacK,

Qu'est ce qui ne fonctionne pas exactement dans ton fichier.

Le problème provient de quel code :

• Ship (qui a l'air de gérer l'envoi de l'email et le nettoyage du BL)
• ExportFS (celle là je pense que j'y ai participée ) ?

A+

Salut Jers,

Rien ne t’échappe c’est bien ton bébé !

A vrai dire c’est la première. Elle ne fait pas le boulot de cleaning (why ?) et elle ne veut plus envoyer le mail. Pour autant elle ne me déclenche pas d’erreur ...

Hello, j'ai résolu mon problème, mais voilà, j'ai encore quelques détails qui me tracassent ...

Je vous joins un fichier ce sera plus claire :

En fait j'ai 3 modules à exécuter et un 4ème qui les exécute tous.

Mon soucis c'est que je génère un "code unique" par BL via la formule : =CONCATENER(ALEA.ENTRE.BORNES(0;999);ALEA.ENTRE.BORNES(0;1000);ALEA.ENTRE.BORNES(0;999))

Mais entre ma première et ma seconde macro, le code unique change et je n'arrive donc pas à réappairer mes demandes envoyées par mail par rapport à mes lignes archivées.

J'imagine que ma solution serait de jouer l'ensemble de mes 3 modules dans un seul et même module, mais je me trompe peut-être là aussi

Merci d'avance de votre aide !

Je me permet de revenir vers-vous car j'ai beau essayer, je n'arrive pas à faire tourner

L' un d'entre vous aurait une idée ?

Salut,

La fonction ALEA.ENTRE.BORNES se rafraichit à chaque fois que la feuille est activée.

Donc dès que tu fais une copie dans ton fichier base, ton numéro est modifié.

Tu peux essayer cela à la place de ta formule afin de générer un nombre aléatoire à chaque fois que tu lances le code :

Sub macroBouton()
Randomize
Sheets("BL").Range("D3").Value = Int((Rnd() * 1000000000) + 1)
ExportFS
Ship
Save
End Sub

Jers

Bonjour Jers, navré de la réponse tardive, mais j'ai résolu mon problème avec un peu d'ingéniosité dans ma formule et le moment de déclenchement des mailing et différentes sauvegardes, j'essaierai quand même cette macro pour voir ce que cela donne la prochaine fois

ok pas de pb.

Bon courage