IPB

Bienvenue invité ( Connexion | Inscription )

 
Reply to this topicStart new topic
> Enregistrement fichier Excel + Email
Options
b00ss
posté 11 Apr 2017, 19:32
Message #1


Macbidouilleur de vermeil !
****

Groupe : Membres
Messages : 897
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 ?! sad.gif
- 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..



Go to the top of the page
 
+Quote Post
b00ss
posté 12 Apr 2017, 20:08
Message #2


Macbidouilleur de vermeil !
****

Groupe : Membres
Messages : 897
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 ? sad.gif

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..



Go to the top of the page
 
+Quote Post
b00ss
posté 12 Apr 2017, 20:28
Message #3


Macbidouilleur de vermeil !
****

Groupe : Membres
Messages : 897
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..



Go to the top of the page
 
+Quote Post
baron
posté 12 Apr 2017, 22:47
Message #4


Macbidouilleur d'Or !
*****

Groupe : Modérateurs
Messages : 19 315
Inscrit : 22 Jul 2004
Lieu : Louvain-la-Neuve (Gaule Gelbique)
Membre no 21 291



Déplacé. wink.gif


--------------------
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…
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 utilisateur(s) sur ce sujet (1 invité(s) et 0 utilisateur(s) anonyme(s))
0 membre(s) :

 



Nous sommes le : 29th March 2024 - 00:15