Macro Mail Auto Archivage données Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
S
SoCRacK
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 14 décembre 2016
Version d'Excel : 2016

Message par SoCRacK » 28 août 2018, 17:35

Salut à tous,

Me revoilà avec un vrai sac de noeuds :cry:

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 !
DUDUBL.xlsm
(43.09 Kio) Téléchargé 12 fois
Avatar du membre
Jers19
Membre fidèle
Membre fidèle
Messages : 305
Appréciations reçues : 27
Inscrit le : 14 septembre 2017
Version d'Excel : 2010

Message par Jers19 » 28 août 2018, 20:58

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+
S
SoCRacK
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 14 décembre 2016
Version d'Excel : 2016

Message par SoCRacK » 28 août 2018, 23:35

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 ...
S
SoCRacK
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 14 décembre 2016
Version d'Excel : 2016

Message par SoCRacK » 4 septembre 2018, 09:24

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 :bof:

Merci d'avance de votre aide !
exemple_B.xlsx
(9.01 Kio) Téléchargé 7 fois
BL_MP.xlsm
(52.39 Kio) Téléchargé 10 fois
S
SoCRacK
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 14 décembre 2016
Version d'Excel : 2016

Message par SoCRacK » 6 septembre 2018, 13:14

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 ?
Avatar du membre
Jers19
Membre fidèle
Membre fidèle
Messages : 305
Appréciations reçues : 27
Inscrit le : 14 septembre 2017
Version d'Excel : 2010

Message par Jers19 » 9 septembre 2018, 21:01

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
:btres:
S
SoCRacK
Membre habitué
Membre habitué
Messages : 93
Inscrit le : 14 décembre 2016
Version d'Excel : 2016

Message par SoCRacK » 12 octobre 2018, 21:19

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 :wink:
Avatar du membre
Jers19
Membre fidèle
Membre fidèle
Messages : 305
Appréciations reçues : 27
Inscrit le : 14 septembre 2017
Version d'Excel : 2010

Message par Jers19 » 13 octobre 2018, 14:12

ok pas de pb.

Bon courage
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message