Ouvrir un fichier csv via vba

MJ13

XLDnaute Barbatruc

• 1 Novembre 2012

• #2

Re : Ouvrir un fichier csv via vba

Bonjour Choupi_nette

dont le nom change tout le temps sauf l'extension csv

Cliquez pour agrandir...

Déjà, la, c'est pas très clair .

Sinon, tu peux utiliser l'instruction DIR pour rechercher le seul fichier csv, le renommer en .txt puis l'ouvrir avec l'assistant d'importation.

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 1 Novembre 2012

• #3

Re : Ouvrir un fichier csv via vba

Bonsoir
Sauf que c'est pas clair du tout pour moi du coup !!
Merci

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 1 Novembre 2012

• #4

Re : Ouvrir un fichier csv via vba

Re

Sauf que c'est pas clair du tout pour moi du coup !!

Cliquez pour agrandir...

CQFD .

Sinon, envoie plutôt un fichier .csv, c'est la le cœur du problème .

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 1 Novembre 2012

• #5

Re : Ouvrir un fichier csv via vba

Re,

Ca fait une heure que je bataille et je crois que j'ai trouvé d'ou cela vient...
Mon fichier csv est un fichier normal, mais windows 7 semble me mettre le dossier en lecture seule...
Et quand le code demande au csv de souvrir il me met run time error 1004
Je laisse la place aux experts car la je craaaaque
Merci

 

Pièces jointes

• test macro - Copy.xlsm

  17.7 KB · Affichages: 131

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 1 Novembre 2012

• #6

Re : Ouvrir un fichier csv via vba

Re
Voici le csv
Merci

 

Pièces jointes

• F_RESA_26092012_Results.zip

  2.1 KB · Affichages: 91

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2012

• #7

Re : Ouvrir un fichier csv via vba

Bonjour,
Merci a tous d'avoir essayé mais j'ai un souci car avec les macros ci dessous dans un des cas ca marche et dans l'autre il ne peut ouvrir un csv en lecture seule ou crypté !!

Je m'explique:

Le csv à ouvrir n'est PAS dans le meme dossier mais dans un autre dossier !

Le code ci-dessous fonctionne parfaitement le csv s'ouvre. mais le nom du csv change tout le temps donc je ne peux pas utiliser cette methode

Code:

Sub Macro2()
Workbooks.Open Filename:="C:\Users\choupi\Desktop\Bio\blabla_Results.csv"
End Sub

Le code ci dessous qui en gros dit va dans tel dossier et ouvre le seul csv qui s'y trouve ne fonctionne pas et me met une erreur fichier lecture seule:

Code:

Sub texttocolumn()
Dim MyFile As String
Adress = "C:\Users\choupi\Desktop\Bio\"
MyFile = Dir("*.csv")

Workbooks.Open Filename:=Adress & MyFile
ActiveSheet.Name = "bidule"
End Sub

Est ce que l'un d'entre vous pourrait m'eclairer sur cela ?

Merci beaucoup

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 2 Novembre 2012

• #8

Re : Ouvrir un fichier csv via vba

Jean Marcel, le forum,

Deux jours de prise de tete intensifs et toi tu me trouves la solution en 2 secondes

Un grand merci !!

Bonne journée

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 2 Novembre 2012

• #9

Re : Ouvrir un fichier csv via vba

Salut Choupi_nette, Michel, Jean Marcel, le Forum

choupi_nette à dit:

Jean Marcel, le forum,
Deux jours de prise de tete intensifs et toi tu me trouves la solution en 2 secondes
Un grand merci !!
Bonne journée

Cliquez pour agrandir...

D'où la rédaction de la question qui doit être irréprochable. ce qui n'était pas le cas Ici ou Là

Heureux que tu ai réfléchit à ta question (une question bien posée possède la moitié de la réponse)
et que tu ai pu trouver la réponse.

Bonne Journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Novembre 2012

• #10

Re : Ouvrir un fichier csv via vba

Bonjour le fil, le forum,

Je ne comprends vraiment pas ce que vous faites choupi_nette car dans votre fichier du post #3 de ce fil :

https://www.excel-downloads.com/threads/excel-2003-a-2010-code-a-adapter.195056/

il y avait cette macro :

Code:

Sub texttocolumn()
AdresseDuRépetoire = "C:\Users\choupi\Desktop\Bio\"
myfile = Dir(AdresseDuRépetoire & "*.csv")
Workbooks.Open Filename:=AdresseDuRépetoire & myfile
'-----
End Sub

Je ne vois vraiment pas de différence avec le code de Jean-Marcel

Cela dit sans vouloir lui enlever son mérite

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Novembre 2012

• #11

Re : Ouvrir un fichier csv via vba

Re Jean-Marcel,

Oui redondance... Mais surtout choupi_nette s'embrouille avec les fichiers qu'elle teste.

Puisque le fichier qu'elle a fourni hier ne posait aucun problème (pour cette macro).

A+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Novembre 2012

• #12

Re : Ouvrir un fichier csv via vba

Bonjour à tous

Merci à Jean-Marcel (et Job, puisque c'est le même code, mais JM n'est pas du genre à copier ).

Sinon en renommant le fichier en txt, on pourrait l'ouvrir ainsi en utilisant l'enregistreur de macro et l'assistant d'importations .

Code:

Sub Ouvre_CSV_Renommé_en_TXT()
'
Dim MyFile As String
    'Répertoire = "C:\Users\choupi\Desktop\Bio\"
    Répertoire = ThisWorkbook.Path & "\"
    MyFile = Dir(Répertoire & "*.txt")
    
    Workbooks.OpenText Filename:= _
        MyFile, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma:=False, _
        Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
        3, 1), Array(4, 1)), TrailingMinusNumbers:=True
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Novembre 2012

• #13

Re : Ouvrir un fichier csv via vba

Salut Michel,

MJ13 à dit:

Merci à Jean-Marcel (et Job, puisque c'est le même code, mais JM n'est pas du genre à copier ).

Cliquez pour agrandir...

Je n'ai fourni aucun code dans cette affaire, seulement souligné une incohérence de choupi_nette.

A+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 2 Novembre 2012

• #14

Re : Ouvrir un fichier csv via vba

Re Job

Je n'ai fourni aucun code dans cette affaire, seulement souligné une incohérence de choupi_nette.

Cliquez pour agrandir...

Ok, merci .

Mais quand on parle d'un fichier .csv, il faut au moins le fournir, sinon, autant jouer au loto .

 

Vote positif 0 Vote négatif

B

bof

XLDnaute Occasionnel

• 2 Novembre 2012

• #15

Re : Ouvrir un fichier csv via vba

Bonjour,
Visiblement le b... chez choupi_nette car la réponse était donné sur un autre forum depuis Jeu Nov 01, 2012 5:14 pm mais choupi_nette ne devait pas se rappeler non plus...
Non, non... ne me remerciez pas !
A+

 

Vote positif 0 Vote négatif