Mon but est d'importer un fichier .csv dans une table
Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs
contenues dans ce fichier
donc de remplacer les "," par des "."
J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB
permettant d'ouvrir un fichier et de faire ce type de modifications à
l'intérieur
Open NomFichier For Input As #1 Open NomFichier1 For Output As #2 Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier. Line Input #1, StrTexte ' Lit la ligne dans la variable. StrTexte = Replace(StrTexte, ",", ".") Write #2, StrTexte Loop Close #1 Close #2
End Sub
Gilbert
"LM" a écrit dans le message de news:
Bonjour,
Mon but est d'importer un fichier .csv dans une table Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs contenues dans ce fichier donc de remplacer les "," par des "." J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB permettant d'ouvrir un fichier et de faire ce type de modifications à l'intérieur
Merci !
Laurent
Bonjour,
Essaie avec cette procédure
Sub essai()
Dim StrTexte As String
Dim NomFichier As String
Dim NomFichier1 As String
Open NomFichier For Input As #1
Open NomFichier1 For Output As #2
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, StrTexte ' Lit la ligne dans la variable.
StrTexte = Replace(StrTexte, ",", ".")
Write #2, StrTexte
Loop
Close #1
Close #2
End Sub
Gilbert
"LM" <lm@nospamwanadoo.frnospam> a écrit dans le message de
news:uLwMgwFoGHA.4000@TK2MSFTNGP04.phx.gbl...
Bonjour,
Mon but est d'importer un fichier .csv dans une table
Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs
contenues dans ce fichier
donc de remplacer les "," par des "."
J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB
permettant d'ouvrir un fichier et de faire ce type de modifications à
l'intérieur
Open NomFichier For Input As #1 Open NomFichier1 For Output As #2 Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier. Line Input #1, StrTexte ' Lit la ligne dans la variable. StrTexte = Replace(StrTexte, ",", ".") Write #2, StrTexte Loop Close #1 Close #2
End Sub
Gilbert
"LM" a écrit dans le message de news:
Bonjour,
Mon but est d'importer un fichier .csv dans une table Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs contenues dans ce fichier donc de remplacer les "," par des "." J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB permettant d'ouvrir un fichier et de faire ce type de modifications à l'intérieur
Merci !
Laurent
LM
Je te remercie, je vais essayer ça!
"Gilbert" a écrit dans le message de news:
Bonjour,
Essaie avec cette procédure
Sub essaJe te ri() Dim StrTexte As String Dim NomFichier As String Dim NomFichier1 As String
Open NomFichier For Input As #1 Open NomFichier1 For Output As #2 Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier. Line Input #1, StrTexte ' Lit la ligne dans la variable. StrTexte = Replace(StrTexte, ",", ".") Write #2, StrTexte Loop Close #1 Close #2
End Sub
Gilbert
"LM" a écrit dans le message de news:
Bonjour,
Mon but est d'importer un fichier .csv dans une table Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs contenues dans ce fichier donc de remplacer les "," par des "." J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB permettant d'ouvrir un fichier et de faire ce type de modifications à l'intérieur
Merci !
Laurent
Je te remercie, je vais essayer ça!
"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
uDYKpBNoGHA.1592@TK2MSFTNGP04.phx.gbl...
Bonjour,
Essaie avec cette procédure
Sub essaJe te ri()
Dim StrTexte As String
Dim NomFichier As String
Dim NomFichier1 As String
Open NomFichier For Input As #1
Open NomFichier1 For Output As #2
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #1, StrTexte ' Lit la ligne dans la variable.
StrTexte = Replace(StrTexte, ",", ".")
Write #2, StrTexte
Loop
Close #1
Close #2
End Sub
Gilbert
"LM" <lm@nospamwanadoo.frnospam> a écrit dans le message de
news:uLwMgwFoGHA.4000@TK2MSFTNGP04.phx.gbl...
Bonjour,
Mon but est d'importer un fichier .csv dans une table
Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs
contenues dans ce fichier
donc de remplacer les "," par des "."
J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB
permettant d'ouvrir un fichier et de faire ce type de modifications à
l'intérieur
Open NomFichier For Input As #1 Open NomFichier1 For Output As #2 Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier. Line Input #1, StrTexte ' Lit la ligne dans la variable. StrTexte = Replace(StrTexte, ",", ".") Write #2, StrTexte Loop Close #1 Close #2
End Sub
Gilbert
"LM" a écrit dans le message de news:
Bonjour,
Mon but est d'importer un fichier .csv dans une table Mais pour cela j'ai besoin de remplacer le séparateur décimal des valeurs contenues dans ce fichier donc de remplacer les "," par des "." J'aurais donc voulu savoir si quelqu'un connaissant un bout de code en VB permettant d'ouvrir un fichier et de faire ce type de modifications à l'intérieur
