Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour Romuald
A ma connaissance, la version d'Excel est indiquée par les premiers chiffres:
07 Windows 95
08 Office 97
09 2000
10 2002
11 2003
Bonne soirée
La version précédente est un peu différente de celle testée: Je l'ai testé 10 fois de suite
Sub EnvoiOutlookAvecFeuilleEtClasseur()
Dim ChDir$
ChDir = ActiveWorkbook.Path
'Select the range of cells on the active worksheet.
ActiveSheet.Range('A1:I13').Select
' Show the envelope on...
Je crois que cette version devrait mieux répondre à ta demande.
Sub Macro2()
'Select the range of cells on the active worksheet.
ActiveSheet.Range('A1:I13').Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
'...
Tu me poses une colle. Je ne vois qu'une solution, un peu compliquée, C'est de créer un classeur et de le détruire ensuite. Ainsi la feuille est envoyée en fichier attaché.
Sub O_EnvoiParOutlook()
Dim ServOutlook As Object
Dim ChDir$
Dim WkAenvoyer$
ChDir = ActiveWorkbook.Path...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.