Discussion :

[Pix_elle]

Bonjour,

Je développe actuellement une application Excel permettant d'ouvrir en deux clics, un fichier CSV.
Par un UserForm, en deux clics, le fichier CSV est automatiquement converti (en gros, le traditionnel "DONNEES" > "Fichier Texte" > "Convertir") est codé dans ma macro et devient donc une action transparente pour l'utilisateur final.

La macro fonctionne bien, mais j'ai une erreur 1004 ("Microsoft Excel ne peut convertir qu'une colonne à la fois") lorsque j'ouvre un CSV avec séparateur virgule et je n'arrive pas à la résoudre !! Malgré cette erreur, le fichier CSV avec séparateur virgule s'ouvre correctement... Etrange donc. Le "Application.DisplayAlerts = False" ne neutralise pas le message d'erreur.

Voici le code qui me permet d'éxécuter l'ouverture du CSV

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' Bouton ouvrir fichier
Private Sub Ouvrir_Click()
Application.DisplayAlerts = False
If (Me.Chemin = "Faux" Or Me.Chemin = "Chemin + nom + extension du fichier ouvert") Then   'Si aucun fichier n'est sélectionné alors
MsgBox "Choisissez un fichier !"                                    'Message d'erreur précisant qu'il faut choisir un fichier
Else                                                                'Si tout ok, on lance la conversion du fichier csv
Workbooks.OpenText Filename:=Me.Chemin, Origin:=xlWindows, _
                StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Comma:=True
 
ActiveCell.CurrentRegion.TextToColumns Comma:=True
 
Ouverture.Hide
Workbooks("Outil_ouverture_V2.xlsm").Save
'Workbooks("Outil_ouverture_V2.xlsm").Close
End If
End Sub

Le problème survient à la ligne "ActiveCell.CurrentRegion.TextToColumns Comma:=True"

Pour information : le "Me.Chemin" me permet d'obtenir l'adresse complète du fichier à importer (exemple : "D:\User\Doc.csv") et est inscrit dans un TextBox de l'userform.
La macro bloque lorsqu'il n'y a aucun fichier sélectionné (donc, quand le texte "par défaut" est présent) et lorsque on annule la sélection du fichier (dans la fenêtre "ouvrir", en cliquant sur "annuler").

J'espère que ces explications sont assez claires pour vous...

Encore merci pour votre aide future !

[Theze]

Bonjour,

Pour le fichier, utilise la fonction Dir() :

Code :

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

1
2
 
If Dir(Me.Chemin) <> "" Then

Pour le reste, étant sur un Smartphone, je ne peux pas t'aider pour l'instant !

[Pix_elle]

Bonjour,

Merci pour ta réponse. Je vais tester ça dans la soirée !

Malgré tout, j'ai continué à me creuser la tête et en ajoutant "On error Resume Next" juste avant la ligne qui bloque et ça semble fonctionner maintenant ! Alors je sais pas si ce sera stable sur la durée, mais pour le moment ça tient.

[joe.levrai]

Bonjour,

en utilisant la propriété currentregion, tu récuppères la plage rectangulaire des données qui contient ta cellule active.
Ce qui pourrait expliquer que tu te retrouves avec plusieurs colonnes au lieu d'une seule

en isolant sur une seule colonne, ça raconte quoi ?

Code :

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

ActiveCell.CurrentRegion.Columns(1).TextToColumns Comma:=True

[Marc-L]

Bonjour.

en ajoutant "On error Resume Next"

Au risque de masquer d'autres problèmes et de perdre des données …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Pix_elle]

Bonjour,

en utilisant la propriété currentregion, tu récuppères la plage rectangulaire des données qui contient ta cellule active.
Ce qui pourrait expliquer que tu te retrouves avec plusieurs colonnes au lieu d'une seule

en isolant sur une seule colonne, ça raconte quoi ?

Code :

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

ActiveCell.CurrentRegion.Columns(1).TextToColumns Comma:=True

Et bien écoutes, ça semble fonctionner ! Je ferai faire des tests aux collègues lundi pour voir si ils me remontent un quelconque problème mais en tout cas, tu me sauves de la panade ! Merci beaucoup.

Bonjour.

Au risque de masquer d'autres problèmes et de perdre des données …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

Oui, ça me semblait bien que ça pouvait poser problème. Merci en tout cas

[Pix_elle]

Bonjour à tous,

Voici un petit retour : La macro fonctionne hyper bien ! Mais mes collègues m'ont fait la remarque que lors de l'export, tous les accents sautaient et laissaient leur place à des caractères bizarres.

Aussi, je me suis rendue compte que j'avais omis de préciser dans mon code que je voulais l'import en encodage UTF-8. Comment et où dois-je placer cet attribut ?

Merci de votre aide !
Bonne soirée !