Détails de Macro (utilisateur)

[Yohan05]

Bonjour,

Voici le code qui consiste à véhiculer des dossiers avec archivage automatique.
Seulement mon objectif est de faire fonctionner sendmail suivant les utilisateur donc par exemple :
Si "reception" clique sur le bouton, envoi chez production
et SI "production" clique envoi chez "expedtion"
Attention : commercial1,2,3 peuvent aussi cliquer pour envoyer chez production.
La difficulté est de travailler sur les mêmes classeurs et archivé uniquement quand production clique.


Sub envoyer_Click()
ActiveSheet.Copy
Dim Nom As String, Fichier As String, Chemin As String
Nom = Sheets("Fiche de suivi").Range("G6").Value
Fichier = ThisWorkbook.Path & "\" & Nom & Format(Date, "yyyymmdd") & "_" & ".xls"
Chemin = "H:\Gestion de production\Commande Archivage\"
ActiveWorkbook.SaveAs Chemin & Fichier
ActiveWorkbook.SendMail Recipients:="expedition"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Nouvelle commande validée")

ThisWorkbook.Close savechanges:=False
Application.Quit
End Sub


Pouvez-vous m'aider.....

Merci beaucoup 🙂

 

[Guest]

Re : Détails de Macro (utilisateur)

bonjour,

Pouvez-vous m'aider.....

Sans doute à partir du moment où l'on saura que sont expedition,réception, production. (bouton de commande, variable etc...)

Sur quelle base déterminer l'utilisateur?

un fichier exemple serait plus parlant.

A+