Open File .wri with Wordpad
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,
