Re : A partir d'un fichier Comment avec un TCD créer autant de fichier que d'onglet ?
Merci à vous trois, c'est très gentil !
"Est ce ce que tu voulais faire sachant que tu peux le faire pour le nombre d'onglets que tu veux?"
C'est exactement ça, je dois au préalable créer autant de dossier que j'ai d'agence. Une fois ces dossiers crées je pense que ça ira vite.
Est-il possible au même titre d'affecté un fichier à un dossier spécifique, d'envoyer un fichier spécifique à une personne précise par mail?
Pour un récent projet j'ai su(en regardant sur les forums) envoyer un fichier à plusieurs personnes, ci dessous le code.
Dans les lignes de code proposé par Fredl il est indiqué agence 1 "va vers" dossier Est, est-il possible de luir dire agence 1 va vers
anthooooony@hotmail.com?
Select Case vnom
Case "Agence1": vdir = "Est\" ; Case "Agence1": vdir = "anthooooony@hotmail.com"
Case "Agence2": vdir = "Nord\"
CODE : ENVOIE D'UN FICHIER A PLUSIEURS PERSONNES PAR MAIL.
Sub Mail_workbook_Outlook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = "mail@mail.com"
.CC = "
mail@mail.com;
mail@mail.com "
.BCC = "
mail@mail.com "
.Subject = "mouvements clients"
.body = "Bonjour," & Chr(13) & "" & Chr(13) & "Veuillez trouver, ci-joint, le fichier des jours….." & Chr(13) & "" & Chr(13) & "Cordialement." & Chr(13) & "" & Chr(13) & "blabla"
.Attachments.Add ActiveWorkbook.FullName
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
C'est un plus cette demande, en tout cas merci beaucoup de votre aide, ça nous avance beaucoup dans nos projets, ça nous fait gagner beaucoup de temps, et d'energie! en tt cas si quelqu'un passe par nanterre je paye mon café