Fichier au format CSV avec Excel 2003 Bis

[Compte Supprimé 979]

Bonjour à tous,

Grrrrrr 😡 ah l'informatique quand ça veut plus 😉

Je parlais ICI d'un problème avec les fichiers CSV

Je pensais que tout était rentré dans l'ordre, depuis nous avons de nouveau le problème 😕

Je ne comprends rien, j'ai bien vérifié tous les paramètres sur mon PC, du moins je pense.

Et lorsque je sauvegarde la feuille "CSV" dans ce format, je n'obtiens plus le bon résultat !

Vous trouverez dans le fichier ZIP, 2 fichiers :
A.BC1.99888 COMMUNE - Lib Travaux OK.csv (celui là est au bon format)
A.BC1.99888 COMMUNE - Lib Travaux NonOK.csv

Lorsque l'on clique sur la disquette de mon fichier principal "Fiche de Vente 2009 V1.4.xls",
cela me crée 2 fichiers dont le CSV au format erronné 😕

Si quelqu'un pouvait m'aider à sortir de ce souci, ce serait ultra cool 🙂

A+

 

[mutzik]

Re : Fichier au format CSV avec Excel 2003 Bis

Salut Bruno, le forum
personnellement, mes fichiers csv, je les crée de toutes pièces en exportant les données une après l'autre dans un fichier texte et ca marche à tous les coups sur tous mes pc quelquesoient les options régionales ...etc

 

[Compte Supprimé 979]

Re : Fichier au format CSV avec Excel 2003 Bis

Salut Mutzik,

D'accord avec toi, mais pas la bonne solution pour mon taf 😉

Ce que j'aimerais quand même savoir, c'est pourquoi ?

Sur mon poste ça fonctionnait très bien et plus maintenant !?
Alors que je n'ai changé aucune option !

A+

 

[Modeste]

Re : Fichier au format CSV avec Excel 2003 Bis

Bonjour BrunoM45, le forum,

Aurais-je une grosse "crasse" dans l'oeil ? Je ne vois de fichier zip, ni dans ce post, ni dans le précédent ... Difficile donc, de comprendre le problème.

Modeste

 

[MJ13]

Re : Fichier au format CSV avec Excel 2003 Bis

Bonjour à tous

Bruno, as tu pensé à enregistrer avec ,local:=true ?

 

[Compte Supprimé 979]

Re : Fichier au format CSV avec Excel 2003 Bis

Salut Modeste 😀

Bonjour BrunoM45, le forum,
Aurais-je une grosse "crasse" dans l'oeil ? Je ne vois de fichier zip, ni dans ce post, ni dans le précédent ... Difficile donc, de comprendre le problème.
Modeste

Tu n'as pas de grosse "crasse" dans les yeux, je te rassure 😉

Je ne sais pas ce qui c'est passé 😕

Fichiers joints sur le 1er post

Merci, A+

 

[Compte Supprimé 979]

Re : Fichier au format CSV avec Excel 2003 Bis

Salut MJ13,

Bonjour à tous
Bruno, as tu pensé à enregistrer avec ,local:=true ?

Oui, oui, suite à mon premier post sur le sujet,
j'ai mis l'option.

Et c'est là que c'est étrange 😕
Il n'y a pas 1 semaine cela fonctionnait parfaitement !?

En revanche je n'avais pas mis mon fichier original en lecture seule,
donc un de mes collègues n'a pas fait enregistrer sous.

Et j'ai l'impression que c'est depuis, mais il n'a pas été "bidouiller" le code VBA, c'est sûr.

A+

 

[MJ13]

Re : Fichier au format CSV avec Excel 2003 Bis

Re Bruno

donc un de mes collègues n'a pas fait enregistrer sous.

Mon point de vue: Pour être sur que cela fonctionne, il faut toujours vérifier avec un fichier qui est OK car si cela provient d'un autre utilisateur, tu ne peux pas être sur qu'il l'a bien été entrergistré. Dans ce cas tester avec l'utilisateur et voir sur son PC si tu peux reproduire le phénomène.

 

[Compte Supprimé 979]

Re : Fichier au format CSV avec Excel 2003 Bis

Re,

Ce que je me m'apperçois, j'ai repris mon premier fichier V1.4
que j'avais sauvegardé dans mes documents

1) Si je lance la macro, tout est OK, mon fichier CSV est au bon format

2) Je modifie le code VBA car manque un test que je ne faisais pas

3) je lance la macro, et paf rien ne va plus

J'ai l'impression qu'en changeant le code VBA de mon fichier plus rien ne va 😕

Et pourtant je ne fais qu'ajouter quelques lignes

 ' Vérifier si existe choix RA
  If ShtBE.Range("C10").Value = "" Then
    MsgBox "Veuillez renseigner le RESPONSABLE d'AFFAIRE !"
    ShtBE.Range("C10").Select
    Exit Sub
  End If

Et modifier une autre

  'ActiveWorkbook.Close SaveChanges:=xlNo

J'comprend pô 🙁

A+

 

[Modeste]

Re : Fichier au format CSV avec Excel 2003 Bis

re-bonjour,

Je ne suis pas un spécialiste de vba, mais en faisant de petits tests avec juste le code ci-dessous, il me faut bien constater qu'en mettant la ligne du close en commentaire et en fermant le fichier "manuellement" sans l'enregistrer, le fichier csv est créé correctement sur ma machine. Dans les autres cas (SaveChanges:= xlYes ou xlNo) le fichier csv contient des virgules !

Sub testLucCsv()
Sheets("CSV").Select
NomCSV = "TestModeste" & ".csv"
ActiveWorkbook.SaveAs Filename:="Z:\" & NomCSV, FileFormat:=xlCSV,

​

CreateBackup:=False, Local:=True
'ActiveWorkbook.Close SaveChanges:=xlYes
MsgBox "Le fichier CSV a été créé !"
End Sub

Je disais donc que je n'avais pas de solution, mais les connaisseurs y trouveront peut-être une explication ... ?

Modeste

 

[MJ13]

Re : Fichier au format CSV avec Excel 2003 Bis

Re à tous


J'ai l'impression comme le dit Modeste qu'il y a un problème à cette ligne:

'ActiveWorkbook.Close SaveChanges:=xlYes

Bruno, regarde ce fichier.

 

[Gael]

Re : Fichier au format CSV avec Excel 2003 Bis

Bonsoir Bruno, bonsoir à tous,

essaye de remplacer :

ActiveWorkbook.Close SaveChanges:=xlYes

Par:

ActiveWorkbook.Saved = True
    ActiveWorkbook.Close

Chez moi, ça marche, par contre pour les explications 😕

@+

Gael

 

[Modeste]

Re : Fichier au format CSV avec Excel 2003 Bis

re-bonjour (ou bonsoir),

tant qu'à risquer de dire des conneries, n'ais-je pas lu qquepart qu'entre ActiveWorkbook et ThisWorkbook, il y avait risque de confusion de la part d'Excel (entre autres si une macro complémentaire est chargée)
Encore une fois, ça n'explique peut-être rien, mais sur MA machine,
thisWorkbook.close etc... semblait poser moins de problème.

C'était juste pour faire avancer le schmilblick

Modeste

 

[Compte Supprimé 979]

Re : Fichier au format CSV avec Excel 2003 Bis

Bonsoir à tous,

Merci pour toutes vos infos 😛

J'ai donc testé plusieurs choses et le problème semblerait être au niveau
de la ligne que Modeste à trouvée 😉

Merci également à toi MJ13 et toi Gael 😀

Et oui, le bon argument de : SaveChanges, n'est pas : XlYes ou XlNo
Mais False ou True

Du coup comme je ne voulais pas faire de sauvegarde à la fermeture du classeur, je mettais

ActiveWorkbook.Close SaveChanges:=xlNo

Sauf que cette instruction n'est pas comprise par Excel
et donc la sauvegarde se faisait quand même, ce qui apparemment était le problème 😕

J'ai donc remplacé la ligne par la bonne instruction

ActiveWorkbook.Close SaveChanges:=False

A première vue, cela fonctionne correctement ...
Je dis bien à première vue...
De toute façon je vous tiendrais au courant si ça "redéconne" 😀

Mille fois merci à tous, à très bientôt.