"CEBE Patrick" a écrit dans le message de news:4038f051$0$28125$
Comment je peut importer des données d'un fichier texte sans ouvrir ce
fichier. Les données se présente sous cette forme
dfg 12.4000 15.2360 20.3695 ext.... merci par avance
FxM
Bonsoir,
La première chose qui me titille est le PRN. Un fichier avec extension PRN est normalement codé pour une imprimante donnée et contient toutes les informations destinées à l'imprimante. Impression via type fichier.prn > LPT1 Un fichier texte avec .PRN ne peut être qu'un détournement risqué.
La seconde chose est de "ne pas ouvrir le fichier". Pour savoir ce qu'il y a dedans, c'est http://www.vatican.va ! On va supposer que tu ne veuilles pas fichier | ouvrir mais il faudra toujours l'ouvrir pour le lire.
Un exemple non testé à adapter : Sub test() FileName = "C:Tempyourfile.prn" FileNum = FreeFile() Open FileName For Input shared As #FileNum Workbooks.Add template:=xlWorksheet Do While Seek(FileNum) <= LOF(FileNum) Line Input #FileNum, ResultStr range("A" & range("A65536").end(xlup).row).select If Left(ResultStr, 1) = "=" Then ActiveCell.Value = "'" & ResultStr Else ActiveCell.Value = ResultStr End If Loop Close End Sub
@+ FxM
CEBE Patrick wrote:
Comment je peut importer des données d'un fichier texte sans ouvrir ce fichier. Les données se présente sous cette forme
dfg 12.4000 15.2360 20.3695 ext.... merci par avance
Bonsoir,
La première chose qui me titille est le PRN. Un fichier avec extension
PRN est normalement codé pour une imprimante donnée et contient toutes
les informations destinées à l'imprimante. Impression via type
fichier.prn > LPT1
Un fichier texte avec .PRN ne peut être qu'un détournement risqué.
La seconde chose est de "ne pas ouvrir le fichier". Pour savoir ce
qu'il y a dedans, c'est http://www.vatican.va ! On va supposer que tu
ne veuilles pas fichier | ouvrir mais il faudra toujours l'ouvrir pour
le lire.
Un exemple non testé à adapter :
Sub test()
FileName = "C:Tempyourfile.prn"
FileNum = FreeFile()
Open FileName For Input shared As #FileNum
Workbooks.Add template:=xlWorksheet
Do While Seek(FileNum) <= LOF(FileNum)
Line Input #FileNum, ResultStr
range("A" & range("A65536").end(xlup).row).select
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
Loop
Close
End Sub
@+
FxM
CEBE Patrick wrote:
Comment je peut importer des données d'un fichier texte sans ouvrir ce
fichier.
Les données se présente sous cette forme
dfg
12.4000
15.2360
20.3695
ext....
merci par avance
La première chose qui me titille est le PRN. Un fichier avec extension PRN est normalement codé pour une imprimante donnée et contient toutes les informations destinées à l'imprimante. Impression via type fichier.prn > LPT1 Un fichier texte avec .PRN ne peut être qu'un détournement risqué.
La seconde chose est de "ne pas ouvrir le fichier". Pour savoir ce qu'il y a dedans, c'est http://www.vatican.va ! On va supposer que tu ne veuilles pas fichier | ouvrir mais il faudra toujours l'ouvrir pour le lire.
Un exemple non testé à adapter : Sub test() FileName = "C:Tempyourfile.prn" FileNum = FreeFile() Open FileName For Input shared As #FileNum Workbooks.Add template:=xlWorksheet Do While Seek(FileNum) <= LOF(FileNum) Line Input #FileNum, ResultStr range("A" & range("A65536").end(xlup).row).select If Left(ResultStr, 1) = "=" Then ActiveCell.Value = "'" & ResultStr Else ActiveCell.Value = ResultStr End If Loop Close End Sub
@+ FxM
CEBE Patrick wrote:
Comment je peut importer des données d'un fichier texte sans ouvrir ce fichier. Les données se présente sous cette forme
dfg 12.4000 15.2360 20.3695 ext.... merci par avance
