envoie automatique de fichier

[dede78]

Bonjour, je souhaiterai savoir comment faire pour envoyer tout les 3 jours, a heure fixe et a la meme personne une feuille Excel. Est-il possible de le faire le PC eteind? L'envoie peut se faire via Outlook Web Access. D'avance Merci

 

[Zon]

Salut,

As tu essayé le programmeur dezs tâches de windows ? QUant au Pc éteint même avec un selfmemory comme modem je suis pas sûr que tu puisses courrieller.

A+++

 

[dede78]

Bonjour, oui mais faut faire la tache pour outlook ou excel ? NB le fichier est sur un Disque reseau. Merci :unsure:

 

[dede78]

Bonjour, oui mais faut faire la tache pour outlook ou excel ? NB le fichier est sur un Disque reseau. Merci :unsure:

 

[Zon]

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+++