Fichier au format CSV avec Excel 2003 Bis

mutzik

XLDnaute Barbatruc

• 24 Février 2009

• #2

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Février 2009

• #3

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+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 24 Février 2009

• #4

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Février 2009

• #5

Re : Fichier au format CSV avec Excel 2003 Bis

Bonjour à tous

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Février 2009

• #6

Re : Fichier au format CSV avec Excel 2003 Bis

Salut Modeste 😀

Modeste à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Février 2009

• #7

Re : Fichier au format CSV avec Excel 2003 Bis

Salut MJ13,

MJ13 à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Février 2009

• #8

Re : Fichier au format CSV avec Excel 2003 Bis

Re Bruno

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Février 2009

• #9

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

Code:

 ' 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

Code:

  'ActiveWorkbook.Close SaveChanges:=xlNo

J'comprend pô 🙁

A+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 24 Février 2009

• #10

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Février 2009

• #11

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:

Code:

'ActiveWorkbook.Close SaveChanges:=xlYes

Bruno, regarde ce fichier.

 

Pièces jointes

• Test_CSV_Sauve_Ouvre.xls

  24 KB · Affichages: 64

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 24 Février 2009

• #12

Re : Fichier au format CSV avec Excel 2003 Bis

Bonsoir Bruno, bonsoir à tous,

essaye de remplacer :

Code:

ActiveWorkbook.Close SaveChanges:=xlYes

Par:

Code:

ActiveWorkbook.Saved = True
    ActiveWorkbook.Close

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

@+

Gael

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 24 Février 2009

• #13

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 24 Février 2009

• #14

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

Code:

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

Code:

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.

 

Vote positif 0 Vote négatif