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

Envoi avancé d'un classeur par outlook

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jameslebon
  • Date de début Date de début

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

jameslebon

Guest
Voila le topo

Il me faudrai envoyer un classeur Excel avec le classeur actif enregistré avec les modif apporté par les utilisateurs

voici le code que j'utilise il me conviens parfaitement sauf que je ne trouve pas la ligne de commande qui di de joindre le classeur actif avec les modif apporté.

Private Sub Image1_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = Range("Affichage!B19").Value
MonMessage.cc = Range("Affichage!B21").Value
MonMessage.Subject = Range("Affichage!B20").Value
MonMessage.display
End Sub

Je serai vraiment reconnaissant si l'un de vous arrive à trouver car c vraiment galère il dois pas manquer grand choses il me semble et c super urgent pour finaliser mon fichier
 
Trier par date Trier par votes
Re : Envoi avancé d'un classeur par outlook

Bonsoir JamesLeBon 🙂,
Les critères de messages (que je connais) via OutLook
Code: 
          .To = MailTo ' Destinataire
          .CC = MailCC ' Copie
          .Importance = olImportanceNormal
          .Subject = ObjetMessage ' Sujet
          .Body = CorpsMessage ' Message
          .Attachments.Add CheminDestination ' Pièce jointe
          .Categories = "Daily"
          .OriginatorDeliveryReportRequested = True ' Accusé de dépôt
          .ReadReceiptRequested = True ' Accusé de lecture
'          .Send '<<<<<<<<<<<<<<<Pour envoyer directement
          .Display '<<<<<<<<<<<<<Pour voir le mail avant envoi
Bonne soirée 😎
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Merci JNP pour ta réponse mais juste ce qui me manque c le code qui permet d'attacher en piece jointe le classeur actif avec les modifs apportéc juste une toute petite ligne du code. Car j'ai déja essaye plusieurs façon notamment la tienne mais certaine ne sont pas bonne car elles placent le mail en attente dans la boite d'envoi de outlook. Selon le code cela n'ouvre pas la même boite d'envoi de Outlook
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Hello,

Tu veux envoyer tout le classeur essaye ce code
Code: 
Private Sub Image1_Click()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
    PathName = ThisWorkbook.FullName 'Chemin du classeur.
With Olmail
    .To = Sheets("Affichage").Range("B19").Value
    .CC = Sheets("Affichage").Range("B21").Value
    .Subject = Sheets("Affichage").Range("B20").Value
    '.Body = Sheets("Affichage").Range("B22").Value 'Pour le corps du message.
    .Attachments.Add PathName 'Pour joindre le classeur.
    '.Send 'Si tu mets Send, il envoie directement le mail.
    .Display 'Si tu mets Display ça ouvre ton message Outlook
End With
End Sub
Saches qui si tu mets ".Send" tu ne peux pas mettre ".Display", si tu mets ".Display", tu ne peux pas mettre ".Send". Ou l'un ou l'autre !

Le "Body" c'est pour si tu veux aussi ajouter un message dans le corps.

Evidemment, il faut côcher dans Référence Microsoft Outlook 11.0 Object Library.

Si tu fais ça avec un nouveau classeur, avant le premier envoi, enregistre-le si non il y aura un message d'erreur à cause du PathName = ThisWorkbook.FullName, il ne saura pas où trouver le classeur, vu que pas enregistré.

Cdt, Hulk.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Merci beaucou Hulk pour ton aide précieuxe mais effectivement ca me joint le classeur mais sons les modif apporté par l'utilisateur ca joint le fichier racine vierge. Il faudrai que la piece jointe soit une copie du classeur à l'instant ou le mail est généré.
Merci je sais c pas évident lolll🙂
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Hello,


Place ceci ActiveWorkbook.Save après le Dim CurrFile As String
Code: 
Private Sub Image1_Click()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
[COLOR="DarkGreen"][B]ActiveWorkbook.Save[/B][/COLOR]
Set Ol = New Outlook.Application ...
Comme ça il sauvegarde le classeur avant l'envoi.

Cdt, Hulk.
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

ALors j'explique la situation c'est un fichier que j'ai fé en entreprise et les salariés doivent le remplir tous les mois. Ce fichier et mis à dispositions sur le réseau et ne dois absolument pas etre modifié par l'utilisteur donc il ne faut pas l'enregistré avant l'envoi il faut juste en fait le mettre une copie dans le mail mais sauvegardé des modif apporté par l'utilisateur. Je suis compliqué je m'en excuse mais c super précis en fait comme demande.😀
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Petite précision pour l'instant j'utilise simplement cette ligne magique qui m'ouvre outlook, met le destinataire, l'objet et joint le fichier avec les modifs enregistré sans toucher le fichier source. Le probleme avec ce code c'est qu'il ne permet pas de mettre en copi et de mettre du texte

Private Sub Image2_Click()
Application.Dialogs(xlDialogSendMail).Show Range("Affichage!B19").Value, Range("Affichage!B20").Value
End Sub

Voila si ca peut aider certain loll
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Hello,

Dans ce cas, tu dois vraiment envoyer le classeur ?

Parce que si tu veux, tu peux envoyer juste une feuille de ce classeur ou une copie de la feuille voulue !

Cdt.
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Alors ben c pas possible car il ya une identification, une validation avec un code immatruclation et des liens dans différentes page avec recherche V et plein d'autre fonction c obligatoirement le fichier
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Merci beaucoup Hulk pour ton aide je sais que ce que je demande n'est pas facilee mais bon c important que ce soit exactement ce que je demande sinonca compromet tous le processus. Merci encore beaucoouppp
🙂
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Bonjour le forum 🙂,
Et si tu fait un SaveAs sur C: au premier niveau, tu prends le fichier pour l'envoyer, et tu le Kill à la prochaine ouverture ?
Bonne journée 😎
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

le fait de faire un souvegarder sous serai la meilleur solution mais je ne connai pas le code permettant de le faire est ce que vous pourriez m'aider en me l'intégrant dans mon code il faudré donner un chemin genre "C:\Temp"

voici mon code:

Private Sub Image12_Click()
Dim MonOutlook As Object
Dim MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = Range("Affichage!B19").Value
MonMessage.cc = Range("Affichage!B21").Value
MonMessage.Subject = Range("Affichage!B20").Value
Corps = "Bonjour," & vbCrLf & vbCrLf
Corps = Corps & "Veuillez trouver ci-joint le fichier." & vbCrLf & vbCrLf & "Cordialement."
MonMessage.Body = Corps
MonMessage.Attachments.Add
MonMessage.display
End Sub

Merciii
 
Vote positif 0 Vote négatif
Re : Envoi avancé d'un classeur par outlook

Bonsoir le forum 🙂,
essaie
Code: 
Private Sub Image12_Click()
[COLOR=#ff0000]ThisWorkbook.SaveAs "C:\A envoyer.xls" [/COLOR]
Dim MonOutlook As Object
Dim MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = Range("Affichage!B19").Value
MonMessage.cc = Range("Affichage!B21").Value
MonMessage.Subject = Range("Affichage!B20").Value
Corps = "Bonjour," & vbCrLf & vbCrLf
Corps = Corps & "Veuillez trouver ci-joint le fichier." & vbCrLf & vbCrLf & "Cordialement."
MonMessage.Body = Corps
MonMessage.Attachments.Add[COLOR=#ff0000] = "C:\A envoyer.xls" [/COLOR]
MonMessage.display
End Sub
et dis nous.
Bon courage 😎
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
Microsoft 365 Mise en forme email
Réponses
7
Affichages
1 K
dysorthographie
R
  • Question Question
Microsoft 365 Inserer copie d'ecran ou plage de cellules dans mail
Réponses
4
Affichages
1 K
romubzh35
R
D
  • Question Question
XL 2019 vba : copier en valeur un onglet avant envoi par mail
Réponses
4
Affichages
1 K
douguy
D
A
  • Question Question
XL 2010 Générer mail avec corps de mail / destinataire et PJ
Réponses
0
Affichages
771
Alghorn
A
P
  • Résolu(e)
Microsoft 365 VBA Envoi un email à l'user
Réponses
4
Affichages
9 K
Pom909
P
X
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
X
  • Question Question
Microsoft 365 Envoi mail depuis boite Outlook pré-identifiée
Réponses
3
Affichages
2 K
chris6999
  • Question Question
Microsoft 365 Envoi mail depuis boite Outlook pré-identifiée
Réponses
0
Affichages
756
chris6999
  • Question Question
Microsoft 365 MSG Outlook via VBA pb de lien et de signature
Réponses
0
Affichages
819
chris6999
R
  • Question Question
XL 2016 Envoyer un fichier excel par email via outlook
Réponses
8
Affichages
3 K
rayms
R
R
  • Résolu(e)
Microsoft 365 Insertion commentaires avant copie lors d'un envoi via Outlook
Réponses
4
Affichages
1 K
laurent3372
W
  • Question Question
envoie de mail automatique avec plusieurs destinataires en copis
Réponses
2
Affichages
827
Roland_M
S
  • Question Question
XL 2010 Envoi d'une feuille spécifique par mail via VBA
Réponses
9
Affichages
2 K
Lone-wolf
L
  • Question Question
Mettre de la couleur dans UNE PARTIE du corps d'un mail en VBA
Réponses
10
Affichages
20 K
camarchepas
Z
  • Question Question
gestion d'erreur
Réponses
2
Affichages
2 K
zaid
Z
L
  • Question Question
Remplir un classeur excel avec des éléments d'un index
Réponses
5
Affichages
2 K
lumiexcel
L
J
  • Question Question
envoie classeur en piece jointe avec outlook 2010
Réponses
5
Affichages
38 K
Compte Supprimé 979
C
N
  • Question Question
Outlook via excel
Réponses
2
Affichages
918
nicolase78
N
F
  • Question Question
Outils/Références cocher OutLook : Envoi par OutLook d'un onglet du classeur actif
2 3
Réponses
36
Affichages
40 K
hidozo
H
F
  • Question Question
Adapter une macro pour extraire données de plusieurs feuilles d'un classeur
Réponses
6
Affichages
14 K
floflo2411
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…