Ouvrir un csv via VBA

Bonsoir

ca fait bien 3heures que je cherche a (ne riez pas) ouvrir un fichier csv en utilisant du code vba

Je suis sous windows7 et excel2010

Voici mon code..j'obtiens une erreur

Il me parle de fichier crypté ou en lecture seule

IMPOSSIBLE de comprendre ce qu il se passe..il plante systematiquement à Workbooks.Open

Merci pour votre aide

Voici le code

Sub texttocolumn()
AdresseDuRépetoire = "C:\Users\choupi"
myfile = Dir(AdresseDuRépetoire & "*.csv")
Workbooks.Open Filename:=AdresseDuRépetoire & myfile
ActiveSheet.Name = "sheet10"

End Sub

Bonjour,

il manque un \ :

Sub texttocolumn()
AdresseDuRépetoire = "C:\Users\choupi"
myfile = Dir(AdresseDuRépetoire & "\" & "*.csv")
Workbooks.Open Filename:=AdresseDuRépetoire & " \" & myfile
ActiveSheet.Name = "sheet10"
End Sub

A+

Bonsoir

Merci pour ta reponse...

bon w end

choupi