Ba a vrai dire aujourd'hui la macro que j'utilise pour envoyer le mail se trouve dans le fichiers excel..
Il n'y a pas de fichiers joint en fait je récupere le texte de certaine cellule du fichier et c'est ca qui constitue le corps du message
cet email est à envoyer tous les mois
il sert à prevenir l'utilisateur qu'il est tant de mettre à jour le fichier
et tant que la mise à jour n'est pas faite le mail est renvoyé
aujourd'hui le code du mail est :
Sub EnvoiUnMail()
Dim i As Long
i = 5 'le 5 correspond au mois de mai
Dim adresseMail As String
Dim sujet As String
Dim URLto As String
Dim MAI as string
Dim TouchesEnvoi(5) As String 'ce tableau me permet un envoie automatique du mail
TouchesEnvoi(0) = 2
TouchesEnvoi(1) = "^" & "{ENTER}"
Worksheets("Parametre").Select
adresseMail = Range("d1") 'la cellule d1 contient l'adresse du destinataire
sujet = Range("d2") 'cette cellule contient le sujet du message
If i = 5 Then
MAI = Sheets("MAI 2007").Range("B3") & Sheets("MAI 2007").Range("B5")
'les cellule b3 et b5 contienne le corps de message
URLto = "mailto:" & adresseMail & "?subject=" & sujet & "&body=" & MAI
End If
ActiveWorkbook.FollowHyperlink Address:=URLto
Attendre 3
For i = 1 To TouchesEnvoi(0)
SendKeys TouchesEnvoi(i), True
Next i
End Sub
Sub Attendre(Secondes As Integer)
' Cette procédure temporise pendant le nombre
' de secondes qu'on lui transmet en argument
Dim Début As Long, Fin As Long, Chrono As Long
Début = Timer
Fin = Début + Secondes
Do Until Timer >= Fin
DoEvents
Loop
End Sub
Je ne sais si ce que je demande est possible.....
Donc avec ce code la macro se met en route à l'ouverture du fichier
moi je voudrais qu'elle se mette en route toute seule sans avoir forcément besoin d'ouvrir le fichier
voila j'espere avoir été clair n'hesite à me poser des question
merci