Discussion :

[Pierre67]

bonjou au forum

à l'aide de la commande suivante je peux choisr le fichier csv à ouvrir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fichouvrir = Application.Workbooks.Open(Application.GetOpenFilename("Import fichiers MCT (*.csv),*.csv"))

mais comment lui préciser de mettre les données dans des colonnes séparées ?
bien à vous

[Daniel.C]

Bonjour,

Utilise le paramètre "Delimiter" de la méthode "Open" suivant le séparateur utilisé.

[Pierre67]

merci Daniel pour le tuyau mais je ne vois pas comment faire

[Daniel.C]

En supposant que ton séparateur soit "," :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set fichouvrir = Application.Workbooks.Open(Application.GetOpenFilename("Import fichiers MCT (*.csv),*.csv"), delimiter:=",")

ou plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Fich As String, FichOuvrir As Workbook
Fich = Application.GetOpenFilename("Import fichiers MCT (*.csv),*.csv")
Set FichOuvrir = Application.Workbooks.Open(Fich, delimiter:=",")

[Pierre67]

aucune des deux solutions ne me constitue des colonnes.
toutes les données figurent en colonne A

[Marc-L]

Bonjour,

ouvrir le fichier .csv avec le Bloc-notes par exemple pour vérifier le délimiteur (par exemple c'est peut-être ;) …

Sinon mettre le fichier en pièce jointe après avoir nettoyé les données confidentielles …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Pierre67]

merci de t'interesser à mon sujet
voici le fichier csv joint

[Marc-L]

En l'ouvrant avec le Bloc-notes, je constate que le séparateur est bien le ";" ! …

Comme c'est le séparateur par défaut de la version française, il suffit donc,
comme indiqué dans l'aide intégrée de VBA, du moins faut-il la lire (…),
de passer l'argument Local à True de la méthode Workbooks.Open :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Fich = Application.GetOpenFilename("fichiers MCT,*.csv")
 
    If Fich <> False Then
        Workbooks.Open Fich, Local:=True
        [B2:E2].Columns.AutoFit
'       Suite du code
    End If

Sinon il y a aussi l'argument Delimiter comme Daniel l'a souligné
mais ne fonctionnant pas avec ce fichier à cause de ses guillemets …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

[Pierre67]

j'obtiens une erreur 424 sur le ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fich = Application.GetOpenFilename("fichiers MCT,*.csv")

[Marc-L]

Ce n'est pas grave, tu peux quand même reprendre son paramètre comme dans les messages précédents …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
- A ton avis, quel est le plus grand mal de notre époque : l'ignorance ou l'indifférence ?
- J' sais pas et j' m'en fous !

[Daniel.C]

Qu'est-ce qui est résolu ? j'ai dû manquer un cours ?

[Marc-L]

Qui plus est sans remerciement ni vote … La prochaine fois je zappe !

[Pierre67]

Bonsoir

j'ai cliqué trop vite sur résolu
sans vous remercier pour votre contribution
avec mes excuses