Pb ouverture csv avec date via VBA excel 2000

Question

Bonjour,

Je poss&#232;de un fichier de donn&#233;es .csv (cr&#233;&#233;e sous excel 97) que je n'arrive pas &#224; ouvrir correctement sous excel 2000. 
Lorsque je lance excel 2000 et que j'ouvre le fichier csv &#224; partir du menu fichier\ouvrir et en s&#233;lectionnant le type de fichier "Fichiers texte (...,*.csv)", pas de probl&#232;me. Par contre, si j'utilise sous VBA la fonction .open correspondant &#224; cette manip, le fichier .csv s'ouvre avec les donn&#233;es sur une seule colonne. Donc mon code : 
Workbooks.Open Filename:="....csv"
 ne fonctionne pas sous 2000 alors qu'il n'y a pas de pb sous 97.
J'ai trouv&#233; deux solutions de contournement :
1) Workbooks.OpenText Filename:="....csv"
  pour ouvrir sous un format texte ou 
2)  Workbooks.Open Filename:="....csv", format:=5 
Worksheets("....").Columns(1).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited,Semicolon:=True

pour dispatcher les donn&#233;es dans les colonnes moi m&#234;me.

Par contre dans les deux cas, si mon csv contient des dates (jj/mm/aa), les fichiers r&#233;sultant (dans mes deux solutions) a les date avec je jour et le mois invers&#233;s si cela est possible (mm/jj/aa si jj &#233;tait <= 12). 

Mes param&#232;tres r&#233;gionaux semblent &#234;tre bons alors est ce que quelqu'un a une solution ???????

jpleroisse · Answer

Essaie ce code et vois si tu le mofier pour tes besoins ?

Sub ImportData()
Dim r As Long, Data
Open "Ton fichier.csv" For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
ActiveCell.Offset(r, 0) = Data
r = r + 1
Loop
Close #1
End Sub

jpleroisse

ultator · Answer

Ca ne marche pas !!!
En utilisant ce code, l'open for input ouvre mon csv comme si on utilisait bloc note (et non wordpad) c'est &#224; dire que tout est stock&#233; en une seule ligne (comprenant un caract&#232;re sp&#233;cial &#224; la place du retour &#224; la ligne). La variable Data contient alors toutes les donn&#233;es dans la premi&#232;re ligne de la premi&#232;re it&#233;ration et la fonction me sort donc un probl&#232;me de m&#233;moire lors de l'execution de ActiveCell.....

jpleroisse · Answer

Ok tu as raison c'est pas beau !
Essaie ce code, je crois qu'il conviendra mieux , ce qu'il ne fait pas c'est dimentionner les colonnes, &#224; faire apr&#232;s.

Private Sub CommandButton2_Click()
Dim p, f, s, a, r, c
p = "C:\Mes documents"
s = "Feuil1"
f = "Pointeur.txt"
Application.ScreenUpdating = False
For r = 1 To 100
    For c = 1 To 12
    a = Cells(r, c).Address
    Cells(r, c) = (p & f & s & a)
Next c
Next r
Application.ScreenUpdating = True


End Sub

ultator · Answer

je ne comprends pas trop o&#249; tu veux en venir avec ce code !!!!
il m'ecrit dans la feuille active une chaine, par cellule selectionn&#233;e, concat&#233;nant les variables p, f  s et a comme indiqu&#233; dans Cells(r, c) = (p & f & s & a). 
Est ce que je d&#233;clare pas bien mes variables ????
A quel moment le fichier est ouvert ??
Qu'est suppos&#233; faire Cells(r, c) = (p & f & s & a) ???

jpleroisse · Answer

OK je viens d'essayer le code chez moi, effectivement c'est un peu n'importe quoi
Vais essayer de corriger o&#249; trouver autre code.

jpleroisse

Pb ouverture csv avec date via VBA excel 2000

5 réponses

Discussions similaires