Ouvrir un fichier .csv

[choupi_nette]

Bonjour,
Je cherche une instruction VBA disant ouvre le fichier csv dans C:\Choupi
Seulement mon fichier csv change de nom a chaque fois
Comment faire ?
Pour info il n y a qu un seul csv dans mon dossier
Merci

 

[tototiti2008]

Re : Ouvrir un fichier .csv

Bonjour choupinette,

le nom de ton fichier devrait être renvoyé par

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

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

 

[choupi_nette]

Re : Ouvrir un fichier .csv

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

 

[choupi_nette]

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

 

[choupi_nette]

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...

 

[choupi_nette]

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

 

[tototiti2008]

Re : Ouvrir un fichier .csv

Bonjour choupinette, Bonjour Jean-Marcel 🙂

AdresseDuRépetoire = "H:\Choupi\"

 

[choupi_nette]

Re : Ouvrir un fichier .csv

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

A+

 

[tdenfert]

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

 

[choupi_nette]

Re : Ouvrir un fichier .csv

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

 

[tototiti2008]

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