[XL-2007] Open File .wri with Wordpad

[Loupire]

Bonjour,

Comment puis-je ouvrir en VB un fichier .wri avec WordPad uniquement puis enregistrer ce fichier en l'écrasant avec une extension .txt avant de le traiter dans mon code ?

Le tout dans cette partie de code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ImportNewTxt()
Dim datemvt As String
Dim prodnb As String
Dim ret As String
Dim rec As String
Dim ref_d_a As String
 
 
Close #1
 
'PROCEDURE OUVERTURE SOUS WORDPAD + CHANGEMENT EXTENSION + ECRASER'
 
Open ("D:\Projet EXCEL_VB_TXT\Copie de INVRPT HAMBACH 2010\EUROFIT-FR-INVRPT.txt") For Input As #1 '-------------------------------------------------> ouverture du fichier en lecture
While Not EOF(1) '----------------------------------------------------------------------------------------------> demarrage de la boucle pour lecture du fichier
    lign$ = "" '------------------------------------------------------------------------------------------------> initialisation d une variable à ""
    Line Input #1, lign$ '--------------------------------------------------------------------------------------> lire une ligne du fichier et passage à la ligne suivante (et affactation dans une variable chaine)
        If InStr(1, lign$, "Message-Date :") <> 0 Then '--------------------------------------------------------> test sur la date
            datemvt$ = Mid$(lign$, 25, 8) '---------------------------------------------------------------------> extraction de la date

Merci,

[Loupire]

aucune idée ?