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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Jeff
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

Jeff

Guest
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
 
Trier par date Trier par votes
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 ;-)
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Microsoft 365 Importer certaines données d'un ou plusieurs fichiers txt dans des cellules d'une feuille Excel
2
Réponses
19
Affichages
2 K
job75
job75
S
  • Résolu(e)
XL 2010 Aide VBA pour extraire des infos d'un fichier TXT
Réponses
3
Affichages
623
sylvanu
sylvanu
T
  • Question Question
XL 2016 Récupérer des informations sous conditions - VBA
Réponses
4
Affichages
1 K
Tophe2
T
S
  • Question Question
XL 2010 Tester l'état de synchronisation Onedrive d'un fichier excel via VBA
Réponses
2
Affichages
2 K
spike29
S
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
Xtian_Québec
  • Question Question
XL 2016 Récupérer des valeurs à partir d'un fichier PDF
Réponses
4
Affichages
3 K
Xtian_Québec
Xtian_Québec
A
  • Question Question
XL 2016 extraire les lignes d'un onglet spécifique dans plusieurs fichier excel sans les ouvrir
Réponses
3
Affichages
2 K
Hasco
Hasco
bellenm
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
Roland_M
B
  • Question Question
XL 2016 Formule excel en VBA ?
Réponses
13
Affichages
2 K
Barazouti
B
G
  • Question Question
Extraire des données d'un fichier PDF via VBA
Réponses
3
Affichages
29 K
kiki29
kiki29
A
  • Question Question
Fichier Excel en Mode VBA ...
Réponses
12
Affichages
1 K
Armand11
A
Y
  • Question Question
XL 2016 Help : Macro filtrage multicritères sur des lignes
Réponses
11
Affichages
3 K
ynx69
Y
E
  • Question Question
Récupérer des données à partir d'une sélection dans un même fichier
Réponses
10
Affichages
1 K
escalibur
E
F
  • Question Question
excel 2010 : rechercher la première cellule non vide d'un contenu filtré
Réponses
2
Affichages
1 K
FTRACKER
F
D
  • Question Question
Envoi d'un tableau par Lotus Notes via Excel
Réponses
3
Affichages
2 K
dysnox
D
J
  • Question Question
Uploader un fichier .txt sur une page WEB via VBA
Réponses
1
Affichages
4 K
Staple1600
Staple1600
T
  • Question Question
Excel et Publisher - Fusion publipostage en pdf
Réponses
1
Affichages
2 K
kiki29
kiki29
G
  • Question Question
VBA Envoi par mail fichier Excel en PJ et d'une image dans corps de mail
Réponses
2
Affichages
12 K
Yaloo
Y
J
  • Question Question
Macro VBA de sauvegarde des pièces jointes + objets et corps de mail par dossiers
Réponses
0
Affichages
3 K
jibi23
J
C
  • Question Question
Récupérer le nom d'un fichier .txt ouvert (VBA)
Réponses
4
Affichages
5 K
cycyy
C
Retour