Enregistrement fichier Excel + Email |
Bienvenue invité ( Connexion | Inscription )
Enregistrement fichier Excel + Email |
11 Apr 2017, 19:32
Message
#1
|
|
Macbidouilleur de vermeil ! Groupe : Membres Messages : 902 Inscrit : 28 Oct 2004 Lieu : Belgium Membre no 25 982 |
Bonjour,
Je souhaiterais ajouter un BOUTON sur un fichier EXCEL, Ce bouton permettrait de : - Vérifier si le fichier Existe déja dans le dossier cible (parfois un fichier s'appelle "enco1241.xls" et parfois "enco1241 .xls), je ne sais pas pourquoi Excel défini un ESPACE dans certains cas ?! - Enregistrer le fichier dans un dossier cible + une copie dans un dossier cible sur DropBox qui serait partagé entre moi et mon client, donc dossier DropBox/NOMDUCLIENT ou /NUMEROCLIENT) ; ce nom/numéro peut être défini dans une case du fichier Excel. - Envoyer par email au client. Pour l'envoi de l'email au client, est-il possible de faire une rechercheV dans un fichier CLIENTS.XLS contenant donc le numéro de client, son email, son nom... ? Ce qui m'embête en fait, c'est de définir un chemin du dossier (car le dossier est utilisé sur mon ordinateur et également sur un autre ordinateur) Les fichiers sont partagés sur Dropbox. Un grand merci -------------------- iMac 5K iPhone 11Pro 256GB Watch SE --------\\\ /// ------ ( @ @ ) ....o00o.(_).o00o.. |
|
|
12 Apr 2017, 20:08
Message
#2
|
|
Macbidouilleur de vermeil ! Groupe : Membres Messages : 902 Inscrit : 28 Oct 2004 Lieu : Belgium Membre no 25 982 |
En fouillant un peu sur le web, voici ce que j'ai trouvé.
Est-ce que quelqu'un dans la salle, pourrait m'aider à faire de ce brouillon un CODE VBA ? Code 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 Code 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 Ce message a été modifié par b00ss - 12 Apr 2017, 20:14. -------------------- iMac 5K iPhone 11Pro 256GB Watch SE --------\\\ /// ------ ( @ @ ) ....o00o.(_).o00o.. |
|
|
12 Apr 2017, 20:28
Message
#3
|
|
Macbidouilleur de vermeil ! Groupe : Membres Messages : 902 Inscrit : 28 Oct 2004 Lieu : Belgium Membre no 25 982 |
Peut etre devrais-je déplacer ce post dans PROGRAMMATION ?
> Forums MacBidouille > Général > Programmation > Technologies Apple Est-ce qu'un admin peut m'aider ? Merci Ce message a été modifié par b00ss - 12 Apr 2017, 20:29. -------------------- iMac 5K iPhone 11Pro 256GB Watch SE --------\\\ /// ------ ( @ @ ) ....o00o.(_).o00o.. |
|
|
12 Apr 2017, 22:47
Message
#4
|
|
Macbidouilleur d'Or ! Groupe : Modérateurs Messages : 19 361 Inscrit : 22 Jul 2004 Lieu : Louvain-la-Neuve (Gaule Gelbique) Membre no 21 291 |
Déplacé.
-------------------- ¶ MacBook Pro 14’’ 2021, M1 Pro, 16 Go/1 To – macOS 12.6 “Monterey” ¶ MacBook Pro 15’’ mi-2010 Core i5 2,53 GHz, 8 Go/SSD Samsung 860EVO 1 To – Mac OSX 10.6.8 ¶ Power Macintosh G3 beige de bureau, rev.1 @ 233MHz, 288 Mo/4Go – MacOS 9.1 + carte PCI IDE/ATA Tempo 66 Acard 6260 avec HD interne Maxtor 80 Go + graveur interne CDRW/DVD LG GCC-4520B + tablette A4 Wacom UD-0608-A + LaCie ElectronBlueIV 19" + HP ScanJet 6100C ¶ B-Box 3 + HP LaserJet 4000 N
¶ La recherche dans MacBidouille vous paraît obscure ? J'ai rédigé une proposition de FAQ. Le moteur logiciel a un peu changé depuis mais ça peut aider quand même. … Les corsaires mettent en berne… |
|
|
Nous sommes le : 26th April 2024 - 20:29 |