Problème ouverture csv

[David]

Bonjour à tous

je souhaite rendre une selection et ouverture de fichiers compatible mac et windows, j'ai donc trouvé ce code: Ce lien n'existe plus

qui est presque parfait, j'ai juste un problème quand j'ouvre le fichier csv, il ne s'ouvre pas en colonne. Quand j'utilisais mon code (juste windows), à l'ouverture je mettais :

Workbooks.OpenText Filename:=Fname(N), DataType:=1, Semicolon:=True, local:=True

et ça marchait, la comme j'ai plusieurs variable je n'arrive pas à adapter :

Set mybook = Nothing
                On Error Resume Next
                Set mybook = Workbooks.Open(Fname(N))
                On Error GoTo 0

qu'elle est la syntaxe pour que Set mybook ouvre le fichier dans le bon format.

Merci

 

[Pierrot93]

Re : Problème ouverture csv

Bonjour,

essaie peut être en modifiant l'extension csv en txt au préalable...

bon après midi
@+

 

[Staple1600]

Re : Problème ouverture csv

Bonjour à tous

Ca ne marche pas comme ceci?
Set mybook =Workbooks.OpenText(Filename:=Fname(N), DataType:=1, Semicolon:=True, local:=True)

 

[David]

Re : Problème ouverture csv

Merci pour vos réponses,
@Pierrot93, on peut ouvrir directement, je ne veux pas transformer le fichier, ça doit exister.

Merci Staple1600, j'ai essayé mais j'ai le message Erreur de compilation fonction ou variable attendue sur .openText

si je mets

Workbooks.OpenText Filename:=Fname(N), DataType:=1, Semicolon:=True, local:=True

et je commente

Set mybook = Workbooks.Open(Fname(N))

ça marche mais j'ai besoin de récupérer la variable Mybook et je ne trouve pas comment faire.

Merci

 

[Staple1600]

Re : Problème ouverture csv

Re

Et comme cela ?
Workbooks.OpenText Filename:=Fname(N), DataType:=1, Semicolon:=True, local:=True
Set mybook= Activeworkbook

 

[David]

Re : Problème ouverture csv

Merciiiiiiii Staple1600 ça marche

comme quoi je cherche toujours des trucs compliqués, qui une fois trouvé sont simple!

Merci encore et bonne journée.