Probleme codage VBA excel

**flod49** · 20/04/2017, 07h45

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

**Marc-L** · 20/04/2017, 13h57

Bonjour,

j'ai failli répondre sur un autre forum dont les règles sont encore plus strictes qu'ici …

Déjà pour le message d'erreur je dirais juste que la librairie FileSystemObject externe au VBA est superflue
car le VBA dispose déjà de tout le nécessaire pour créer / lire des fichiers textes !
Sinon il suffit de cocher la référence idoine …

Ensuite il est inutile de transformer les fichiers textes, autant extraire les données directement !

Je rappelle conformément aux règles de ce forum le code doit être posté via l'icône dédiée
car beaucoup n'ouvrent pas les pièces jointes surtout celles à risque contenant du code et n'ayant pas été demandées …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**flod49** · 21/04/2017, 04h36

Merci Marc-L pour votre réponse.
Comme je le disait je suis plus que newbie dans le secteur, mais je cherche absolument une solution à mon étude.
Malheureusement je ne comprend pas trop le fait et ou "cocher la référence idoine"...
Et comment exporter directement les données des .txt pour les placer directement dans mon CSV au format que je souhaiterais, j'ai trouver un tuto qui m'a permis d'ecrire ces lignes de codes, mais visiblement je suis dans l'erreur...

**unparia** · 25/04/2017, 17h51

A "part ça" ?
ben ... ceci, entre autres :

1) https://www.developpez.net/forums/d8...s-discussions/
2)= le texte de ma signature

Cette lecture et son application sera un vrai 1er pas sur la voie du respect de chaque chose.

Bonne chance.