Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel fichier csv

fichier csv

2 réponses
Avatar
PG49
Bonjour,

J'enregistre à l'aide d'une macro un fichier au format CSV. (Voir ci
dessous)
Avec Excel 2000 il utilise bien comme séparateur le ; (point virgule)
Mais avec Excel 2003, il utilise comme séparateur la , (virgule)

D'ou peut provenir la différence. Existe t il un paramétrage quelque part,
une case à cocher ?
(Les options régionales et linguistiques sont les mêmes sur les 2 postes)

Sub decl1003()
' cadreD2
nomcli = Range("B6")
etabl = Sheets("TP 1").Range("AA8")
ann = Year(Range("E12"))
Feuil8.Select
ActiveWorkbook.SaveAs Filename:= _
"W:\études\import_eic\D2 " & ann & " " & nomcli & etabl & ".csv",
FileFormat:=xlCSV _
, CreateBackup:=False
' decl1003 + biensTF
Feuil11.Select
If Feuil11.Range("B2") = "" Then
rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
ActiveWorkbook.SaveAs Filename:= _
"W:\études\import_eic\DECLTF " & ann & " " & nomcli & etabl &
".csv", FileFormat:=xlCSV _
, CreateBackup:=False
End Sub


Merci pour votre aide
--
.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Tu peux essayer ceci : à partir de la version Excel 2002,
Microsoft a ajouté un nouveau paramêtre à la version
SaveAs qui est : "Local" pour tenir compte des paramètres
régionnaux. Il en est de même pour la méthode Open.

Conséquence : Avant 2002 et Après 2002 que tu peux
tester en ajoutant la ligne de code
If Val(Application.Version) > 9 Then


Sub decl1003()
' cadreD2
nomcli = Range("B6")
etabl = Sheets("TP 1").Range("AA8")
ann = Year(Range("E12"))
Feuil8.Select
If Val(Application.Version) > 9 Then
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse, Local:=True
Else
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse
End If
' decl1003 + biensTF
Feuil11.Select
If Feuil11.Range("B2") = "" Then
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
If Val(Application.Version) > 9 Then
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse, Local:=True
Else
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse
End If
End Sub






"PG49" a écrit dans le message de news:
Bonjour,

J'enregistre à l'aide d'une macro un fichier au format CSV. (Voir ci
dessous)
Avec Excel 2000 il utilise bien comme séparateur le ; (point virgule)
Mais avec Excel 2003, il utilise comme séparateur la , (virgule)

D'ou peut provenir la différence. Existe t il un paramétrage quelque part,
une case à cocher ?
(Les options régionales et linguistiques sont les mêmes sur les 2 postes)

Sub decl1003()
' cadreD2
nomcli = Range("B6")
etabl = Sheets("TP 1").Range("AA8")
ann = Year(Range("E12"))
Feuil8.Select
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & nomcli & etabl & ".csv",
FileFormat:=xlCSV _
, CreateBackup:úlse
' decl1003 + biensTF
Feuil11.Select
If Feuil11.Range("B2") = "" Then
rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicDECLTF " & ann & " " & nomcli & etabl &
".csv", FileFormat:=xlCSV _
, CreateBackup:úlse
End Sub


Merci pour votre aide
--
.
Avatar
PG49
OK
génial
merci cela fonctionne parfaitement


"MichDenis" a écrit dans le message de news:

Tu peux essayer ceci : à partir de la version Excel 2002,
Microsoft a ajouté un nouveau paramêtre à la version
SaveAs qui est : "Local" pour tenir compte des paramètres
régionnaux. Il en est de même pour la méthode Open.

Conséquence : Avant 2002 et Après 2002 que tu peux
tester en ajoutant la ligne de code
If Val(Application.Version) > 9 Then


Sub decl1003()
' cadreD2
nomcli = Range("B6")
etabl = Sheets("TP 1").Range("AA8")
ann = Year(Range("E12"))
Feuil8.Select
If Val(Application.Version) > 9 Then
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse, Local:=True
Else
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse
End If
' decl1003 + biensTF
Feuil11.Select
If Feuil11.Range("B2") = "" Then
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
If Val(Application.Version) > 9 Then
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse, Local:=True
Else
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & _
nomcli & etabl & ".csv", FileFormat:=xlCSV _
, CreateBackup:úlse
End If
End Sub






"PG49" a écrit dans le message de news:

Bonjour,

J'enregistre à l'aide d'une macro un fichier au format CSV. (Voir ci
dessous)
Avec Excel 2000 il utilise bien comme séparateur le ; (point virgule)
Mais avec Excel 2003, il utilise comme séparateur la , (virgule)

D'ou peut provenir la différence. Existe t il un paramétrage quelque part,
une case à cocher ?
(Les options régionales et linguistiques sont les mêmes sur les 2 postes)

Sub decl1003()
' cadreD2
nomcli = Range("B6")
etabl = Sheets("TP 1").Range("AA8")
ann = Year(Range("E12"))
Feuil8.Select
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicD2 " & ann & " " & nomcli & etabl & ".csv",
FileFormat:=xlCSV _
, CreateBackup:úlse
' decl1003 + biensTF
Feuil11.Select
If Feuil11.Range("B2") = "" Then
rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End If
ActiveWorkbook.SaveAs Filename:= _
"W:étudesimport_eicDECLTF " & ann & " " & nomcli & etabl &
".csv", FileFormat:=xlCSV _
, CreateBackup:úlse
End Sub


Merci pour votre aide
--
.