Modifier les entêtes d'un fichier Excel csv

Bonjour,

Une façon de faire pour modifier la ligne d'étiquette d'un fichier .csv

'-----------------------------------------
Sub Modifier_Ligne_Étiquette_Colonne()

Dim Temp As String
Dim Fichier As String
Dim X As Long, i As Integer
Dim MaLigne As String
Dim NouvelleLigne As String

'Quelle sera la NouvelleLigne d'étiquette
NouvelleLigne = "toto;titi;tutu" & vbNewLine

'Chemin et fichier .csv
Fichier = "c:Denis.csv"

X = FreeFile
Open Fichier For Binary Access Read As #X
Temp = String(LOF(X), Chr(0))
Get #X, , Temp
Do
MaLigne = Split(Temp, vbNewLine)(i)
i = i + 1
Loop Until MaLigne <> ""

Close #X
'La variable MaLigne devrait contenir la première
'ligne du fichier .csv -> Étiquette de colonnes

'Tu modifies cette ligne de texte selon les besoins
'de ton application

'Écriture de ta nouvelle ligne de texte
'Substitution de l'ancienne ligne par la nouvelle

Temp = Replace(Temp, MaLigne, NouvelleLigne)

Open Fichier For Output As #X
Print #X, Temp
Close #X
End Sub
'-----------------------------------------



"jacques" <jg1@neuf.fr> a écrit dans le message de groupe de discussion :
1aaedb59-7ba5-47a0-a115-74209708495f@m25g2000yqc.googlegroups.com...
Bonjour,

Comment lire est modifier les entêtes d'un fichier Excel en csv.
par vba access.

Merci de votre aide.

Salutations.

On 3 jan, 13:47, "michdenis" <michde...@hotmail.com> wrote:

Bonjour,

Une façon de faire pour modifier la ligne d'étiquette d'un fichier .c sv

'-----------------------------------------
Sub Modifier_Ligne_Étiquette_Colonne()

Dim Temp As String
Dim Fichier As String
Dim X As Long, i As Integer
Dim MaLigne As String
Dim NouvelleLigne As String

'Quelle sera la NouvelleLigne d'étiquette
NouvelleLigne = "toto;titi;tutu" & vbNewLine

'Chemin et fichier .csv
Fichier = "c:Denis.csv"

X = FreeFile
Open Fichier For Binary Access Read As #X
Temp = String(LOF(X), Chr(0))
Get #X, , Temp
Do
    MaLigne = Split(Temp, vbNewLine)(i)
    i = i + 1
Loop Until MaLigne <> ""

Close #X
'La variable MaLigne devrait contenir la première
'ligne du fichier .csv -> Étiquette de colonnes

'Tu modifies cette ligne de texte selon les besoins
'de ton application

'Écriture de ta nouvelle ligne de texte
'Substitution de l'ancienne ligne par la nouvelle

Temp = Replace(Temp, MaLigne, NouvelleLigne)

Open Fichier For Output As #X
Print #X, Temp
Close #X
End Sub
'-----------------------------------------

"jacques" <j...@neuf.fr> a écrit dans le message de groupe de discussio n :
1aaedb59-7ba5-47a0-a115-742097084...@m25g2000yqc.googlegroups.com...
Bonjour,

Comment lire est modifier les entêtes d'un fichier Excel en csv.
par vba access.

Merci de votre aide.

Salutations.

Bonjour michdenis,

Merci pour ton réponse.

Mais si je dois modifier qu'une seule "Étiquette de colonne" cela est-
il possible ?

Salutations.

Essaie comme ceci :

'------------------------------------------
Sub Modifier_Ligne_Étiquette_Colonne()

Dim Temp As String
Dim Fichier As String
Dim X As Long, i As Integer
Dim MaLigne As String
Dim NouvelleLigne As String
Dim NouvelleÉtiquette As String
Dim AncienneÉtiquette As String

'******* Variables à définir ************
'Quel est le nom de l'étiquette à modifier
AncienneÉtiquette = "toto"

'Quel est le nom de la nouvelle étiquette
NouvelleÉtiquette = "Allo"

'Chemin et fichier .csv
Fichier = "c:Denis.csv"
'*****************************************

X = FreeFile
Open Fichier For Binary Access Read As #X
Temp = String(LOF(X), Chr(0))
Get #X, , Temp
Do
MaLigne = Split(Temp, vbNewLine)(i)
i = i + 1
Loop Until MaLigne <> ""

'modification de la ligne
NouvelleLigne = Replace(MaLigne, _
AncienneÉtiquette, NouvelleÉtiquette)

Close #X
'La variable MaLigne devrait contenir la première
'ligne du fichier .csv -> Étiquette de colonnes

'Tu modifies cette ligne de texte selon les besoins
'de ton application

'Écriture de ta nouvelle ligne de texte
'Substitution de l'ancienne ligne par la nouvelle

Temp = Replace(Temp, MaLigne, NouvelleLigne)

Open Fichier For Output As #X
Print #X, Temp
Close #X
End Sub
'------------------------------------------