Creation bouton "envoyer"

Re : Creation bouton "envoyer"

Bonjour,
Tiens un début de Macro pour ouverture de outlook et positionnement du contenu du mail .
Si sa peut t'aider un peu.
Sinon je pence que c'est tout a fait possible


Sub EnvoiMail()
Dim ol As Object, myItem As Object
Dim strHtml As String

Set Plage = ActiveSheet.Range("A1:J16")
Application.ScreenUpdating = False
Plage.CopyPicture Appearance:=xlScreen, Format:=xlPicture


Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = Range("A1") & " ;" & Range("A2") & " ;" & Range("A3") & " ;" & Range("A4") & " ;" & Range("A5") & " ;" & Range("A6") & " ;" & Range("A7")
myItem.Subject = Range("E4")
myItem.HtmlBody = strHtml

myItem.display

Set ol = Nothing

End Sub

Re : Creation bouton "envoyer"

merci eddy cela fonctionne pour la recup du fichier 🙂

maintenant il faut trouver le moyen que cette pièce jointe se transforme en xml 🙂

merci d'avance à qui voudra m'aider 🙂

Re : Creation bouton "envoyer"

j'ai un petit peu avancé sur ma macro

j'ai réussi à transformer mon excel en gif à l'aide d'un bouton.

voici ma macro :

Sub exportXML()
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="A1:J57", _
Title:="Sélection de zone ", Default:="$A$1:$J$57", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Documents and Settings\user\Bureau\Test1.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


j'ai testé en mettant test1.xml et "XML" mais ca ne marche pas.

j'ai l'impression que je tiens le bon bout mais là je bloque c'est frustrant.

Si jamais quelqu'un a une idée ^^" ?

merci d'avance.