Discussion :

[malabarbe]

Bonjour,

1° Comment savoir si une connection a Internet est établie

2° Si connection, envoyer un mail a une adresse prédéfinie

Excel 2003
Windows XP

Le but est de recevoir par mail le nom d'un fichier *.xls a télécharger.

Merci pour vos conseils.

A vous lire.

[RAID14]

Bonjour,

Tu peux essayer cela.

A+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Wbk As Workbook
ThisWorkbook.Sheets("nom").Copy
Set Wbk = ActiveWorkbook
 
Wbk.SendMail "nom@orange.fr", _
                                            " objet", returnreceipt:=True
Vimpression.Show
ActiveWorkbook.Close (False)
 
End Sub

[malabarbe]

Bonjour RAID14,

Merci pour la réponse.

Mais, y a t'il un moyen pour ne pas passer par Outlook ?

A vous lire

[AlainTech]

Cherche dans ce forum le mot clé CDO.
Tu devrais trouver ton bonheur.

[malabarbe]

Bonjour AlainTech,

Merci pour l'info, je vais fouiller dans cette mine !

Bonne journée

@ +