Bonjour le forum, grande source pour mon apprentissage du vba !
J'ai lu beaucoup de fils qui tiennenr compte de l'historique d'un fichier et qui envoi un fichier log.txt dans un répertoire autre ou via un réseau. Mais comment faire pour que ce fichier log.txt soit envoyé via outlook a mon adresse internet perso@moi.meme avec titre "Log de suivi" sans guillemets.
Il m'est difficile de joindre le fichier a ce moment ci mais voici le code que j'utilise et qui va bien. (Tiré du forum, merci aux auteurs)
Ce fichier me donne qui s'est loggé et a quele heure.
Merci a l'avance. Yves
-----------------
Private Sub Workbook_Open()
Dim Fichier As String
Dim L As String
Dim D As Date
Dim H As Date
Fichier = "H:\outils\Tournee chefs log.txt" ' le chemin du fichier log
L = Environ("UserName") ' logging
D = Date
H = Format(Now(), "hh:mm")
Open Fichier For Append As #1
Print #1, L & vbTab & D & vbTab & H
Close #1
End Sub
J'ai lu beaucoup de fils qui tiennenr compte de l'historique d'un fichier et qui envoi un fichier log.txt dans un répertoire autre ou via un réseau. Mais comment faire pour que ce fichier log.txt soit envoyé via outlook a mon adresse internet perso@moi.meme avec titre "Log de suivi" sans guillemets.
Il m'est difficile de joindre le fichier a ce moment ci mais voici le code que j'utilise et qui va bien. (Tiré du forum, merci aux auteurs)
Ce fichier me donne qui s'est loggé et a quele heure.
Merci a l'avance. Yves
-----------------
Private Sub Workbook_Open()
Dim Fichier As String
Dim L As String
Dim D As Date
Dim H As Date
Fichier = "H:\outils\Tournee chefs log.txt" ' le chemin du fichier log
L = Environ("UserName") ' logging
D = Date
H = Format(Now(), "hh:mm")
Open Fichier For Append As #1
Print #1, L & vbTab & D & vbTab & H
Close #1
End Sub