[MichelXld]

bonjour Antoine

si j'ai bien compris ta demande tu peux tester ,

dans la feuile :

Private Sub CommandButton1_Click()
maVariable = Sheets('Feuil1'Â'Â').Range('A1'Â'Â') & Sheets('Feuil1'Â'Â').Range('B2'Â'Â')
envoiMessageLienFichier
End Sub

et dans un module

Public maVariable As String

Sub envoiMessageLienFichier()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem

Set oMessage = oOutlook.CreateItem(olMailItem)

With oMessage
.Subject = maVariable
.Body = 'bonjour , ' & vbLf & 'Ci joint le lien vers le fichier ' & vbLf & _
'file://' & Application.Substitute(ThisWorkbook.FullName, ' ', '%20'Â'Â')
.Display
End With
End Sub

pour ta question précédente , à partir d'un lien dans le mail , je ne sais pas ouvrir le classeur dans une feuille précise .
s'il s'agit toujours de la meme feuille tu pourrais insérer un evenement lors de l'ouverture du classeur

par exemple

Private Sub Workbook_Open()
Feuil2.Activate
End Sub


bonne soiree
MichelXld

Message édité par: MichelXld, à: 27/05/2005 17:41