j'ai une macro qui envoi la cde par email au fournisseur. Les fichiers
commandes étant assez volumineux pour certains, je voudrais qu'ils soient
systématiquement zippés avant envoi.
Existe-t-il un paramètre qui puisse faire cela et peut on l'incorporer à
cette macro :
----
Sub EnvoiParEmail()
With ThisWorkbook
End With
Dim titre As Variant
Dim Message As Variant
Dim boutons As Integer
Dim réponse As Integer
titre = "ENVOI PAR E-MAIL"
Message = "Voulez-vous envoyer cette commande maintenant ?"
boutons = vbYesNo
réponse = MsgBox(Message, boutons, titre)
If réponse = vbNo Then Exit Sub
If réponse = vbYes Then
Application.Dialogs(xlDialogSendMail).Show
End If
j'ai une macro qui envoi la cde par email au fournisseur. Les fichiers commandes étant assez volumineux pour certains, je voudrais qu'ils soient systématiquement zippés avant envoi. Existe-t-il un paramètre qui puisse faire cela et peut on l'incorporer à cette macro : ---- Sub EnvoiParEmail() With ThisWorkbook End With
Dim titre As Variant Dim Message As Variant Dim boutons As Integer Dim réponse As Integer titre = "ENVOI PAR E-MAIL" Message = "Voulez-vous envoyer cette commande maintenant ?" boutons = vbYesNo réponse = MsgBox(Message, boutons, titre) If réponse = vbNo Then Exit Sub If réponse = vbYes Then Application.Dialogs(xlDialogSendMail).Show End If
j'ai une macro qui envoi la cde par email au fournisseur. Les fichiers
commandes étant assez volumineux pour certains, je voudrais qu'ils soient
systématiquement zippés avant envoi.
Existe-t-il un paramètre qui puisse faire cela et peut on l'incorporer à
cette macro :
----
Sub EnvoiParEmail()
With ThisWorkbook
End With
Dim titre As Variant
Dim Message As Variant
Dim boutons As Integer
Dim réponse As Integer
titre = "ENVOI PAR E-MAIL"
Message = "Voulez-vous envoyer cette commande maintenant ?"
boutons = vbYesNo
réponse = MsgBox(Message, boutons, titre)
If réponse = vbNo Then Exit Sub
If réponse = vbYes Then
Application.Dialogs(xlDialogSendMail).Show
End If
j'ai une macro qui envoi la cde par email au fournisseur. Les fichiers commandes étant assez volumineux pour certains, je voudrais qu'ils soient systématiquement zippés avant envoi. Existe-t-il un paramètre qui puisse faire cela et peut on l'incorporer à cette macro : ---- Sub EnvoiParEmail() With ThisWorkbook End With
Dim titre As Variant Dim Message As Variant Dim boutons As Integer Dim réponse As Integer titre = "ENVOI PAR E-MAIL" Message = "Voulez-vous envoyer cette commande maintenant ?" boutons = vbYesNo réponse = MsgBox(Message, boutons, titre) If réponse = vbNo Then Exit Sub If réponse = vbYes Then Application.Dialogs(xlDialogSendMail).Show End If
