fichier csv

Le
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:é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
--
.
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 #4445591
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
--
.
PG49
Le #4445561
OK
génial
merci cela fonctionne parfaitement


"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
--
.





Publicité
Poster une réponse
Anonyme