modif code envoie classeur par email

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

julie999

XLDnaute Occasionnel
Bonjour j’utilisais cette macro qui fonctionnait parfaitement pour envoyer un classeur excel par email automatique
Le problème c’est que le classeur a changé de place et je n’arrive pas a trouver la bonne formule
Je pense qu’il faut modifier la ligne sPath = "C:\Archives photobox\Archive UK Order\"
Nom du fichier : Tableau uk order .xls
Emplacement ou il se trouve : "C:\Archives photobox\Archive UK Order\"
Je vous met le code complet en fin de message
Si quelqu ‘un a la solution ou une autre idée
Merci
julie

Sub macro8()
'
' envoie tableau uk order injection direct
'

'
rep = MsgBox("Voulez-vous envoyer le tableau Uk orders direct injection_tracker par email ?", vbYesNo + vbQuestion, "Envoie Email Photobox")
If rep = vbYes Then
sNomFic = "Tableau uk order .xls"
sPath = "C:\Archives photobox\Archive UK Order\"
'--- Envoi par mail
Dim olapp As Object 'Outlook.Application
Sheets("Envoie Email").Select
Range("B87").Select
Set olapp = CreateObject("Outlook.Application")
Do While Not IsEmpty(ActiveCell)
Dim msg As Object 'MailItem
Set msg = olapp.CreateItem(0)
msg.To = ActiveCell.Value
msg.Subject = Range("B74").Value
msg.CC = Range("b94").Value
msg.Body = Range("B77").Value & Chr(13) & Chr(13) & Range("B78").Value & Chr(13) & Chr(13) & Range("B79").Value & Chr(13) & Chr(13) & Range("B80").Value & Chr(13) & Chr(13) & Range("B81").Value & Chr(13) & Chr(13) & Range("B84").Value & Chr(13) & Chr(13)
msg.Attachments.Add sPath & sNomFic
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
Set msg = Nothing
Set olapp = Nothing

MsgBox "le tableau Uk orders direct injection_tracker a été envoyé par email avec succés ...."
Else

End If
End Sub
 
Trier par date Trier par votes
Re : modif code envoie classeur par email

Bon(jour)soir...
le chemin du fichier est dans la ligne:
sPath = "C:\Archives photobox\Archive UK Order\"
vérifie s'il est là ou pas et s'il a changé, mets à la place le nouveau répertoire où tu l'as trouvé 🙂

Bonne nuit
P.

 
Vote positif 0 Vote négatif
Re : modif code envoie classeur par email

bonjour je suis toujours dans l'impasse j'ai retourné le code dans tous les sens mais je n'ai pas le niveau
le mail ne s'envoie pas ou peux etre le probleme svp

Sub macro8()
'
' envoie tableau uk order injection direct
'

'

rep = MsgBox("Voulez-vous envoyer le tableau Uk orders direct injection_tracker par email ?", vbYesNo + vbQuestion, "Envoie Email Photobox")
If rep = vbYes Then
répertoireAppli = "C:\Archives photobox\Dossier tempo pour email"
Sheets(Array("Réception", "Cross Docking", "UK Order Injection")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "\tableau Uk orders" & Format(Worksheets("UK Order Injection").Range("a3"), "d\-mm\-yyyy") & ".xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Object 'Outlook.Application
Sheets("Envoie Email").Select
Range("B87").Select
Set olapp = CreateObject("Outlook.Application")
Do While Not IsEmpty(ActiveCell)
Dim msg As Object 'MailItem
Set msg = olapp.CreateItem(0)
msg.To = ActiveCell.Value
msg.Subject = Range("B74").Value
msg.CC = Range("b94").Value
msg.Body = Range("B77").Value & Chr(13) & Chr(13) & Range("B78").Value & Chr(13) & Chr(13) & Range("B79").Value & Chr(13) & Chr(13) & Range("B80").Value & Chr(13) & Chr(13) & Range("B81").Value & Chr(13) & Chr(13) & Range("B84").Value & Chr(13) & Chr(13)
msg.Attachments.Add répertoireAppli & "\tableau Uk orders" & _
Format(Worksheets("UK Order Injection").Range("a3"), "d\-mm\-yyyy") & ".xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
Set msg = Nothing
Set olapp = Nothing

MsgBox "le tableau Uk orders direct injection_tracker a été envoyé par email avec succés ...."
Else
Sheets("MENU").Select
End If
End Sub

ca bloque sur " msg.Send"
 
Vote positif 0 Vote négatif
Re : modif code envoie classeur par email

bonjour,

comprend pas bien l'histoire de ton chemin !?
là où tu l'as mis c'est correct !
et si c'est un autre et bien tu le retapes point final ! on ne saurait rien faire pour toi à ce niveau !

par contre ici
'les espaces dans ce nom sont correctent ? "sNomFic = "Tableau uk order .xls"
'-------ne serait-ce pas plutôt comme ceci: "sNomFic = "Tableau uk order.xls"

EDIT: et comme ceci, il s'agit du premier car tu en mets un deuxième complètement différent !

Code: 
Sub macro8()
' envoie tableau uk order injection direct
rep = MsgBox("Voulez-vous envoyer le tableau Uk orders direct injection_tracker par email ?", vbYesNo + vbQuestion, "Envoie Email Photobox")
If rep <> vbYes Then Exit Sub
'suite ok ...
sNomFic = "Tableau uk order .xls"
sPath = "C:\Archives photobox\Archive UK Order\"
'--- Envoi par mail
Sheets("Envoie Email").Select: Range("B87").Select
Dim olapp As Object 'Outlook.Application
Set olapp = CreateObject("Outlook.Application")
Dim msg As Object 'MailItem
Do While Not IsEmpty(ActiveCell)
  Set msg = olapp.CreateItem(0)
  With msg
   .To = ActiveCell.Value
   .Subject = Range("B74").Value
   .CC = Range("b94").Value
   .Body = Range("B77").Value & Chr(13) & Chr(13) & Range("B78").Value & Chr(13) & Chr(13) & Range("B79").Value & Chr(13) & Chr(13) & Range("B80").Value & Chr(13) & Chr(13) & Range("B81").Value & Chr(13) & Chr(13) & Range("B84").Value & Chr(13) & Chr(13)
   .Attachments.Add sPath & sNomFic
   .Send
  End With
  ActiveCell.Offset(1, 0).Select
  Set msg = Nothing
Loop
'
Set olapp = Nothing
MsgBox "le tableau Uk orders direct injection_tracker a été envoyé par email avec succés ...."
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : modif code envoie classeur par email

re le fil
je vous joins un fichier pour essayer de comprendre mon probleme

je cherche a envoyé la feuille UK Order Injection par email avec les info sur la feuille Envoie Email a plusieur destinataire
mais la macro bloque sur "msg.Send"
certainement du a l'emplacement de la piece jointe mais je ne vois pas l'erreur ....

Sub macro8()
'
' envoie tableau uk order injection direct
'

'
répertoireAppli = "C:\Archives photobox\Dossier tempo pour email"
Sheets(Array("UK Order Injection", "Cross Docking", "Way Bill Arvato")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "\Tableau uk order du " & Format(Worksheets("UK Order Injection").Range("a3"), "d\-mm\-yyyy") & ".xls"
ActiveWindow.Close
rep = MsgBox("Voulez-vous envoyer le tableau Uk orders direct injection_tracker par email ?", vbYesNo + vbQuestion, "Envoie Email Photobox")
If rep = vbYes Then
sNomFic = "Tableau uk order" & ".xls"
sPath = "C:\Archives photobox\Dossier tempo pour email"
'--- Envoi par mail
Dim olapp As Object 'Outlook.Application
Sheets("Envoie Email").Select
Range("B87").Select
Set olapp = CreateObject("Outlook.Application")
Do While Not IsEmpty(ActiveCell)
Dim msg As Object 'MailItem
Set msg = olapp.CreateItem(0)
msg.To = ActiveCell.Value
msg.Subject = Range("B74").Value
msg.CC = Range("b94").Value
msg.Body = Range("B8").Value & Chr(13) & Chr(13) & Range("B9").Value & Chr(13) & Chr(13) & Range("B10").Value & Chr(13) & Chr(13) & Range("B11").Value & Chr(13) & Chr(13) & Range("B12").Value & Chr(13) & Chr(13) & Range("B15").Value & Chr(13) & Chr(13)
msg.Attachments.Add répertoireAppli & "\Tableau uk order du " & Format(Worksheets("UK Order Injection").Range("a3"), "d\-mm\-yyyy") & ".xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
Set msg = Nothing
Set olapp = Nothing

MsgBox "le tableau Uk orders direct injection_tracker a été envoyé par email avec succés ...."
Else
Sheets("MENU").Select
End If
End Sub

merci de votre aide Julie
 

Pièces jointes

Vote positif 0 Vote négatif
Re : modif code envoie classeur par email

bonsoir Julie999, gosselien,Roland_M et le forum

après 290 message vous devriez savoir mettre vos codes entre balises pour les rendre plus lisibles

pourquoi
toto@neuf.fr;0
Cliquez pour agrandir...
a ;0 en fin de ligne de toute façon ton classeur ne servira a rien car il n'y a pas de code

Pascal
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
423
ZiM
Z
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
446
Phil69970
Phil69970
R
  • Question Question
Microsoft 365 Mise en forme email
Réponses
7
Affichages
731
dysorthographie
dysorthographie
S
  • Résolu(e)
Microsoft 365 Fusion de 2 macro VBA (selection envoi de mail + envoie de fichier PDF)
Réponses
6
Affichages
2 K
soNZOOO
S
gothc
  • Question Question
XL 2019 envoyer un onglet par email en format pdf
Réponses
4
Affichages
1 K
gothc
gothc
R
  • Question Question
XL 2019 VBA - Ignorer erreur
2 3
Réponses
33
Affichages
4 K
fanch55
fanch55
gilles37
  • Question Question
XL 2019 Message en fonction d'une date
Réponses
11
Affichages
2 K
gilles37
gilles37
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
475
Mika07
M
E
  • Question Question
XL 2013 Ajouter un rdv calendrier depuis excel via exchange
Réponses
0
Affichages
974
estivill
E
Y
  • Question Question
XL 2013 Envoie de P-J sil existe par mail Macro VBA
Réponses
1
Affichages
695
kiki29
kiki29
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
718
Cheyenne_2021
C
A
  • Question Question
Microsoft 365 Envoyer un email automatique a date d'échéance d'une cellule Excel
2
Réponses
17
Affichages
3 K
Abdenour
A
A
  • Question Question
Microsoft 365 Génération d'une feuille en Pdf et envoie par outlook
Réponses
5
Affichages
1 K
patricktoulon
patricktoulon
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
B
  • Question Question
XL 2016 Mailing Type à différents groupe de personnes
Réponses
1
Affichages
795
Bullrot
B
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
990
Hasco
Hasco
B
  • Question Question
XL 2016 Send from...Account or Send on behalf
Réponses
0
Affichages
798
Bullrot
B
S
  • Question Question
Microsoft 365 Macro pour Copier une feuille Excel en tant qu'image dans outlook
Réponses
3
Affichages
2 K
fanch55
fanch55
N
  • Question Question
Microsoft 365 donner a ma feuille le nom de l'onglet avant envoi par mails
Réponses
2
Affichages
925
Nabster
N
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
907
Hasco
Hasco
Retour