Discussion :

[yoyo-tns]

Bonjours

Je tente desesperement d'envoyer par mail via outllok seulement la feuille2 d'un classeur
Avec mon exemple ci dessous j'arrive bien a envoyer la totalité du classeur,
Y a t-il une solution a mon probleme, ?

Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
 
monItem.To = " <a href="mailto:xxxx@yyyy.com">xxxx@yyyy.com</a> "
monItem.Subject = "Demande d'intervention "
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous adresse cette demande d'intervention"
monItem.Attachments.Add ActiveWorkbook.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "

cordialement.

[Daniel.C]

Bonjour,

Je n'ai pas testé, mais ça devrait le faire. Je copie la feuille dans un nouveau classeur que j'enregistre après avoir supprimé le précédent du même nom (dans le dossier "C:\temp").

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim ol As Object, monItem As Object
    Set ol = CreateObject("outlook.application")
    Set monItem = ol.CreateItem(olMailItem)
    Sheets("Feuil2").Copy
    On Error Resume Next
    Kill "C:\temp\PJ.xls"
    On Error GoTo 0
    ActiveWorkbook.SaveAs "C:\temp\PJ.xls", xlExcel8
    monItem.To = " xxxx@yyyy.com "
    monItem.Subject = "Demande d'intervention "
    monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous adresse cette demande d'intervention"
    monItem.Attachments.Add ActiveWorkbook.FullName
    monItem.Send
    ActiveWorkbook.Close False
    Set ol = Nothing
    MsgBox "la demande a bien été transmise "

[yoyo-tns]

Bonjour Daniel

merci beaucoup pour le retour, cela fonctionne
j'ai juste un petit problème avec un message
de vérificateur de compatibilité car je suis en Excel 2010

Merci encore

[Daniel.C]

je suis en Excel 2010

C'est ton intérêt de le préciser dans le sujet du message initial. Il y a un liste déroulante pour ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim ol As Object, monItem As Object
    Set ol = CreateObject("outlook.application")
    Set monItem = ol.CreateItem(olMailItem)
    Sheets("Feuil2").Copy
    On Error Resume Next
    Kill "C:\temp\PJ.xlsx"
    On Error GoTo 0
    ActiveWorkbook.SaveAs "C:\temp\PJ.xlsx"
    monItem.To = " xxxx@yyyy.com "
    monItem.Subject = "Demande d'intervention "
    monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous adresse cette demande d'intervention"
    monItem.Attachments.Add ActiveWorkbook.FullName
    monItem.Send
    ActiveWorkbook.Close False
    Set ol = Nothing
    MsgBox "la demande a bien été transmise "

En supposant que, dans tes options d'enregistrement, tu n'aies pas précisé autre chose que "classeur Excel (.xlsx)" qui est le défaut; sinon, il faut préciser le type de classeur à sauvegarder.

[yoyo-tns]

Super ... merci beaucoup

Bonne fin de journée