Modifier les entêtes d'un fichier Excel csv

Le
jacques
Bonjour,

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

Merci de votre aide.

Salutations.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20885111
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"
Bonjour,

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

Merci de votre aide.

Salutations.
jacques
Le #20891531
On 3 jan, 13:47, "michdenis"
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"
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.
michdenis
Le #20892571
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
'------------------------------------------
Publicité
Poster une réponse
Anonyme