Version imprimable du sujet

Sub BOUTONENREGISTRER()

--PREMIER ENREGISTREMENT

Dim NomFichier
NomFichier = range("A5").Value

ThisWorkbook.SaveCopyAs Filename:="C:\Users\......" & "xls".
MsgBox "Document sauvegardé"

-- Comment faire pour MODIFIER un fichier déja existant et recevoir un message d'alerte, si c'est le cas ?

--DEUXIEME ENREGISTREMENT DANS UN DOSSIER CLIENT DROPBOX

Dim CheminDossierCible
CheminDossierCible = MacintoshHD/.../DropBox/A6 (imaginons qu'A6 est le nom du client, et que le répertoire target porte le nom du client)

ThisWorkbook.SaveCopyAs Filename:= CheminDossierCible
MsgBox "Document sauvegardé dans le dossier DropBox"

End Sub

Sub BOUTONENVOIDUMAIL()

Dim Statut
Statut = range("A5").Value
-- définir manuellement un statut en A5, si la valeur en A5 est YES, alors envoyer le mail (cela veut simplement dire que la commande du client est terminée)

Dim EmailClient
EmailClient = range("A6").Value

ActiveWorkbook.EnvelopeVisible = True

With ActiveWorkbook.MailEnvelope
    .Introduction = "Bonjour , ci joint le fichier excel de votre commande ..."
    .Item.To = EmailClient
    .Item.Subject = "Commande" + A3 (numéro de commande)
    .Item.Send
End With
End Sub