bonjour a tous,
je cherche une solution à mon problème :pt1cable:
Les conditions:
Je reçois par jour environ 150 mails, dont je souhaite extraire uniquement leurs contenus qui sont:
Sujet :

Sujet :
Acquisition Nø04 ALPHA: 211
De :
SCS <xxx@xxxx.com>
Pour :
<contact@xxx.com>
Copie à :
<xxx@xxx.com>

Le 14/04/2017 14h27mn38s
C1
H1=10,00mm/s H2=1,28mm/s V=2,65mm/s
C2
H1=7,35mm/s H2=1,37mm/s V=2,65mm/s

En orange sont les données qui changent à chaque réception de mail.
Mon but étant d’insérer de manière auto (VBA sous excel) chaque emails transformés en .txt pour ensuite utiliser la masse importante de donnée et faire des graph et autres

Je souhaite bien evidement changer le format du fichier text et suprimer toutes les lignes et espaces pour en faire qu'une ligne par .txt, comme suit:

14/04/2017;14h29mn38s;C1;H1=12,00mm/s;H2=12,28mm/s;V=22,65mm/s;C2;H1=7,35mm/s;H2=1,37mm/s;V=2,65mm/s;


Problèmes actuels en VBA
Evidemment je débute en VBA, en remerciant pour votre indulgence

Je n'ai pas trouvé encore la solution pour modifier le contenu du fichier txt d'origine en avec fichier txt avec une seule ligne avec la séparation ";"

Sinon:
1/dans le secteur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub modifier_texte_Click()
j'ai un message d'erreur sur cette ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim fso As FileSystemObject
2/J essaye de supprimer les doublons, seule la colonne "heure" doit être prise en compte et si la condition est validée elle doit pouvoir supprimer toute la ligne.


mon code actuel :sweat: :
Classeur2.xlsm
Acquisition Nø04 ALPHA 211.txt
En vous remerciant pour votre aide ;-)
flod49