Ouvrir un fichier .csv

tototiti2008

XLDnaute Barbatruc

• 13 Décembre 2011

• #2

Re : Ouvrir un fichier .csv

Bonjour choupinette,

le nom de ton fichier devrait être renvoyé par

Code:

NomFic = Dir("C:\Choupi\*.csv")

S'il ne trouve rien, il renvoie une chaine vide

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 13 Décembre 2011

• #3

Re : Ouvrir un fichier .csv

Merci je teste ca demain et je te dis si il y a un probleme
Bonne soiree

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 14 Décembre 2011

• #4

Re : Ouvrir un fichier .csv

Re,
J'ai essayé mais ca ne fonctionne pas.
Je donne plus de précisions:
Je dois commencer une macro par ouvrir un fichier csv qui se trouve dans le repertoire C:\Choupi\
Ce csv change tout le temps de nom donc je ne sais pas lui dire workbook.open C:\Choupi\*.csv
Ca me met une erreur et ensuite l aide excel ne m'"aide" pas !
Merci pour votre aide

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 14 Décembre 2011

• #5

Re : Ouvrir un fichier .csv

Bonjour le fil,
Merci jean Marcel,
Ca marche pas encore tout a fait bien ...
Je mets ta commande ci dessus
J'ai un message d'erreur 1004. ce qui est bizarre, c'est qu il trouve le fichier csv car il me donne le bon nom dans le repertoire mais il me dit qu il n'a pas pu le trouver...

 

Pièces jointes

• error.JPG

  19.1 KB · Affichages: 74
• error.JPG

  19.1 KB · Affichages: 80
• error.JPG

  19.1 KB · Affichages: 80

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 14 Décembre 2011

• #6

Re : Ouvrir un fichier .csv

Juste au cas ou je fourni le code... je veux juste que ca m ouvre mon csv et que ca me fasse une operation toute simple dessus une fois qu il est ouvert...

Sub bibi()
AdresseDuRépetoire = "H:Choupi\"
MyFile = Dir(AdresseDuRépetoire & "*.csv")
Workbooks.Open Filename:=AdresseDuRépertoire & MyFile
Columns("A:A").Select
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 14 Décembre 2011

• #7

Re : Ouvrir un fichier .csv

Bonjour choupinette, Bonjour Jean-Marcel 🙂

AdresseDuRépetoire = "H:\Choupi\"

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 14 Décembre 2011

• #8

Re : Ouvrir un fichier .csv

Merci tototiti2008,
Ah ca change Erreur 424 !!
Object required

A+

 

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 14 Décembre 2011

• #9

Re : Ouvrir un fichier .csv

Bonjour,

pour moi ce code fonctionne manque\ et un r à repertoire

Sub bibi()
AdresseDuRépetoire = "c:\Choupi\"
myfile = Dir(AdresseDuRépetoire & "*.xls")
MsgBox (myfile)
Workbooks.Open Filename:=AdresseDuRépetoire & myfile
Columns("A:A").Select
End Sub

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 14 Décembre 2011

• #10

Re : Ouvrir un fichier .csv

Ca fonctionne
J avoue que je n'y comprends rien
Merci a vous tous...
Bonne journée
Choupi_nette

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 14 Décembre 2011

• #11

Re : Ouvrir un fichier .csv

Bonjour tdenfert,

Bien vu le "r" dans le nom de la variable 😉
D'où l'intérêt de déclarer ses variables avec des majuscules et de les taper en minuscules dans le code

 

Vote positif 0 Vote négatif