Salut,
Tu peux utiliser un script windows en ouvrant le bloc notes, colles y le code suivant:
Dim App,C
Set App = WScript.CreateObject('EXCEL.application')
App.Visible = True
set C = App.workbooks.open('C:\\LenomduFichier.xls')
App.run 'Envoiemail'
C.save
C.close
App.quit
Set App = Nothing
Renommes ton fichier txt en vbs sous le dos par ren lenomdufichier.txt Lenom.vbs
Dans ton classeur excel, un exemple de code qui demande à l'utlisateur de saisir une adresse, à coller dans un module standard:
Sub EnvoieMail()
Dim Rep$
Rep = Boite
If VeriFCourriel(Rep) Then ThisWorkbook.SendMail Rep, 'Titre du courriel'
End Sub
Function Boite$()
Boite = InputBox('Saisir une adresse courriel', 'Envoie d'un courriel')
End Function
Function VeriFCourriel(ByVal Adresse$) As Boolean
VeriFCourriel = InStr(Adresse, '@') > 0 And InStr(1, Adresse, '.') - InStr(Adresse, '@') > 1
End Function
N'oublies pas dans le plannificateur (ou tâches planifiées) dans les options avanvcées de cocher 'n'exécuter que si une session est ouverte'
A+++