Récupérer des lignes d'un TXT sous Excel (VBA)

Jeff · 14 Décembre 2004

Bonjour,

En vue de programmer un envoi automatique de mails, je cherche un moyen pour récupérer le contenu d'un fichier .txt en transformant les retours à la ligne en Chr(13);
Le fichier .txt constituerait le corps du message auquel MonMessage.Body ferait appel...

Quelqu'un a une idée?

Merci et bonne fin de matinée à tous!

Jeff

Wilfried · 14 Décembre 2004

Salut Jeff,

Par le bié des macros tu peu importer en auto un fichier texte

(l'utilisation de l'assistant de création de macro est trés utile)

tu n'as plus ensuite qu'a utilisé la fonction instr(1,range("A1").value,chr(10),vbtextcompare) pour trouver ou ce situe ton retour chariot en retour à la ligne (chr(10)).

Et voili voilu...

Wilfried ;-)

michel · 14 Décembre 2004

Re: Lignes d'un fichier texte dans le corps d'un message Outlook

bonsoir Jeff , bonsoir Wilfried

tu peux essayer

Sub EvoiMail_TexteIssuFichierTexte()
'Evoi Mail Sans Message Confirmation
'testé avec XP
'Send using the Pickup directory on the IIS server.
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim Fichier As String, Cible As String, Resultat As String
Dim Valeur As Long

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Fichier = "C:\Documents and Settings\michel\fichierXLD.txt" 'adapter le chemin

Resultat = ""
Resultat = Resultat & "<HEAD>"
Resultat = Resultat & "<BODY>"

Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Cible 'boucle sur chaque ligne du fichier texte
Resultat = Resultat & Cible & "</br>"
Loop

Resultat = Resultat & "</BODY>"
Resultat = Resultat & ""

With iMsg
Set .Configuration = iConf
.To = "xld@leforum.fr"'adapter l'adresse
'.From = "youralias@yourdomain.com"
.Subject = "test envoi mail"
.HTMLBody = Resultat 'insertion variable texe dans le corps du message
.Send
End With

Close 1 'fermeture fichier texte

End Sub

bonne soiree
MichelXld

michel · 14 Décembre 2004

rebonsoir

oouuppss...
petite precision : la ligne "Dim Valeur As Long" est superflue

bonne soiree
MichelXld

Effectuez une recherche sur Excel Downloads...

Récupérer des lignes d'un TXT sous Excel (VBA)

Jeff

Guest

Wilfried

Guest

michel

Guest

michel

Guest

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums