Discussion :

[charlesFRANCE]

Bonjour,

Etant donné que le pb n'est pas résolu, je continue le fil de discussion. http://www.developpez.net/forums/d84...l/#post4831296

j'ai un classeur excel composé de plusieurs onglets.

Je souhaiterais envoyer un onglet par mail + insérer un message + un display (pour pouvoir contrôler) .

Actuellement j'arrive à envoyer le classeur complet et non pas l'onglet que je désire.
De plus, je souhaiterais que mon onglet soit envoyé sous un format excel n'incluant pas les macros, soit un fichier excel sans le "!".

c'est la ligne

Code :

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

1
2
adress = ThisWorkbook.Path + "\" + ThisWorkbook.Name
                    ActiveWorkbook.Save

qui bloque

je n'arrive pas à remplacer par worksheet.("nom de l'onglet")

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub mail_AZERTY()
 
Dim ObjOutlook
Dim oBjMail As Object
Dim signature As String
 
Set ObjOutlook = CreateObject("outlook.application")
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
corps = "" & vbCrLf & "<br>" _
 & "Bonjour," & vbCrLf & "<br>" _
 & "Cordialement,"
 
adress = ThisWorkbook.Path + "\" + ThisWorkbook.Name
ActiveWorkbook.Save
 
 
With oBjMail
 
.To = "vi@xx.fr"
.CC = RANGE("AZERTY!H8").Value
.Subject = "S" 
.BodyFormat = 2
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
.HTMLBody = corps & oBjMail.HTMLBody
.display
.Attachments.Add (adress)
 
 With oBjMail
    .display
 
    End With
        signature = oBjMail.body
 
End With
 
 
End Sub

quelqu'un peut il m'aider svp

[vinc_bilb]

Bonjour,

c'est la ligne "adress = ThisWorkbook.Path + "\" + ThisWorkbook.Name

=> remplacer + par & (concaténation de chaines) ou mieux par ThisWorkbook.FullName

Actuellement j'arrive à envoyer le classeur complet et non pas l'onglet que je désire.

=> c'est normal, vous devez pour cela copier la sheet que vous voulez envoyer dans un nouveau classeur et envoyer le résultat par email