Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modif code envoie classeur par email

Créer une discussion

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

Re
Personne ne vois d ou provient l errez sur mon code
Le fichier s enregistre bien a l emplacement mais le mail ne part pas problème chemin ou piece jointe ....
Julie
 
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
Identifiez-vous ou inscrivez-vous pour participer.
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

A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
520
Phil69970
R
  • Question Question
Microsoft 365 Mise en forme email
Réponses
7
Affichages
903
dysorthographie
  • Question Question
XL 2019 envoyer un onglet par email en format pdf
Réponses
4
Affichages
1 K
gothc
F
  • Résolu(e)
XL 2016 Envoi mail fichier Excel renommer
Réponses
6
Affichages
982
FS69
F
  • Question Question
XL 2019 Message en fonction d'une date
Réponses
11
Affichages
2 K
gilles37
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
616
Mika07
M
E
  • Question Question
XL 2013 Ajouter un rdv calendrier depuis excel via exchange
Réponses
0
Affichages
1 K
estivill
E
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
785
Cheyenne_2021
C
A
  • Question Question
Microsoft 365 Génération d'une feuille en Pdf et envoie par outlook
Réponses
5
Affichages
1 K
patricktoulon
B
  • Question Question
XL 2016 Mailing Type à différents groupe de personnes
Réponses
1
Affichages
840
Bullrot
B
T
  • Question Question
XL 2016 [VBA] problème macro EXCEL ne réponds pas
Réponses
11
Affichages
2 K
terry08200
T
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
1 K
Hasco
B
  • Question Question
XL 2016 Send from...Account or Send on behalf
Réponses
0
Affichages
820
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
N
  • Question Question
Microsoft 365 donner a ma feuille le nom de l'onglet avant envoi par mails
Réponses
2
Affichages
973
Nabster
N
S
  • Résolu(e)
Microsoft 365 Bouton : Envoi du classeur Excel par mail
Réponses
10
Affichages
4 K
Sylvain29
S
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
T
  • Question Question
Envoie d'un mail vba sous condition
Réponses
2
Affichages
4 K
TEMAGOULTFARID
T
R
  • Question Question
XL 2016 Envoyer un fichier excel par email via outlook
Réponses
8
Affichages
3 K
rayms
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…