Macro pour ouvrir un fichier csv via le bloc note

Question

J'ai un petit soucis: j'aimerais via une macro, ouvrir avec le bloc note windows un fichier csv qui se trouve dans un dossier pour ensuite remplacer les "," (virgule) par des "." (points) et ensuite fermer ce fichier en enregistrants cette modification. Je ne trouve pas grand chose à ce sujet. Merci de votre aide...

Steelson · Answer

Le bloc-notes n'est pas absolument indispensable : tu peux l'ouvrir en Excel, tu auras une seule colonne ! ensuite remplacer par SUBSTITUTE les , par ; en refermer en enregistrant les modifications...

gmb · Answer

Joins ton fichier csv original et on cherchera une solution... Bye ...

Jean-Eric · Answer

Merci de joindre un fichier exemple que l'on puisse vérifier tes propos. Cdlt...

Steelson · Answer

Re-

Proposition et ... curiosité !

Si s'ouvre directement le fichier csv avec comme séparateur des virgules, la répartition des colonnes ne se fait pas.

Mais si je l'ouvre via une macro, c'est OK !!

Sub ouvrir_csv()

Nom_Fichier = Application.GetOpenFilename("Fichiers csv, *.csv")
If Nom_Fichier <> False Then
    Workbooks.Open Filename:=Nom_Fichier
End If

End Sub

159ouvrir-csv.xlsm (13.56 Ko)

Steelson · Answer

Mystère, car moi-même je vois des données au-delà de l'image ci-dessus !! voir fichier joint.

Le problème, enfin la cause, est "simple" : l'origine vient des nombres décimaux, Excel n'arrive plus à interpréter ensuite. Du reste, la première image le montre bien, seule la première colonne est interprétée jusqu'à la virgule de la décimale je suppose.

Que se passe-t-il si maintenant tu ouvres toi même le fichier csv avec Excel ?

Donne nous le fichier original si celui que nous a posté a déjà été modifié.

60data.xlsx (17.36 Ko)

Steelson · Answer

Comment effectue tu la copie ?

Je fais ceci et cela fonctionne :

je lance le fichier csv qui s'ouvre avec Excel
je clique en haut à gauche des cellules pour tout sélectionner
je fais Ctrl C
je recopie par Ctrl V dans le fichier Excel de destination

Si tu passes par le bloc notes cela ne fonctionne pas.

Steelson · Answer

Quel est réellement le besoin sans parler de solution ? Est- ce qu'il s'agit de lire un fichier csv et l'intégrer à un fichier Excel existant dans un onglet particulier ? Si oui, on a vu que le lancement direct prend en compte le point-virgule comme séparateur et la macro prend la virgule !! Dans ce cas, il faut lire ligne à ligne le fichier csv par macro comme un simple fichier texte, splitter chaque ligne sur le point-virgule et répartir les données sur la ligne. Confirme le besoin sans trop évoquer de solution, on verra ce qu'il est possible de faire pour t'aider...

Steelson · Answer

A tester (perfectible) Sub lecture() Fichier = Application.GetOpenFilename("Fichiers csv, *.csv") If Fichier = False Then Exit Sub N = FreeFile Open Fichier For Input As #N i = 0 Do While Not EOF(1) Line Input #N, Contenu i = i + 1 Table = Split(Contenu, ";") For j = 0 To UBound(Table) Cells(i, j + 1).Value = Replace(Table(j), ",", ".") Next j Loop Close #N End Sub...

Steelson · Answer

Bon, on n'est donc pas loin ! Si le code fonctionne ce n'est pas un problème de version d'Excel. Est- ce que la ligne d'en-tête apparaît avec le code ou bien était-elle déjà présente avant de lancer ? Le code doit bloquer dès la première ligne. Le code (très sommaire) est-il intégré à une macro plus complète ? y a t-il un problème de nom de variable ? change le nom Table qui n'était pas approprié. Ensuite si besoin, déclare toutes les variables par dim, et change même les noms si c'est intégré à un ensemble plus large : Option Explicit Sub lecture() Dim Fichiercsv, icsv, jcsv, Contenucsv, Tablecsv, Ncsv Fichiercsv = Application.GetOpenFilename("Fichiers csv, *.csv") If Fichiercsv = False Then Exit Sub Ncsv = FreeFile Open Fichiercsv For Input As #Ncsv icsv = 0 Do While Not EOF(1) Line Input #Ncsv, Contenucsv icsv = icsv + 1 Tablecsv = Split(Contenucsv, ";") For jcsv = 0 To UBound(Tablecsv) Cells(icsv, jcsv + 1).Value = Replace(Tablecsv(jcsv), ",", ".") Next jcsv Loop Close #Ncsv End Sub Au besoin, si ce n'est confidentiel, envoie le fichier. Ou alors on continue en MP et mail et on affichera la réponse finale ici pour retour d'expérience et en faire profiter la communauté. Amicalement...

Steelson · Answer

Voilà, le plus dur est fait : ouvrir par macro le fichier csv avec comme délimiteur le ;

Et comme indiqué en MP, le problème venait aussi de ce que chaque ligne dans le fichier directement issu du système était séparée par un truc bizarre qui ne permettrait pas de traiter ligne par ligne avec LINE INPUT.

Et au global c'est plus propre que de toucher aux caractères . et ,

Sub ouvrir_csv()

Nom_Fichier = Application.GetOpenFilename("Fichiers csv, *.csv")
If Nom_Fichier <> False Then
    Workbooks.OpenText Filename:=Nom_Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
End If

End Sub

Il ouvre dans un fichier séparé ... ensuite on peut y faire ce que l'on veut : enregistrer ce fichier, ou réimporter les données dans le fichier qui a servi à lancer l'extraction.

60ouvrir-csv.xlsm (14.03 Ko)

Steelson · Answer

Ah Ben oui mais avec un rhume carabine ce n'est pas facile de dormir. Alors je fais fonctionner mes neurones.

Bien sûr tu peux ajouter une ligne avec

Nom_Fichier = "\\P610\aanceau_home\MFGPRO_CODESOFT_FLC.csv"

Mais pour être certain du chemin complet, ceci te le donnera :

Sub ouvrir_csv()

Nom_Fichier = Application.GetOpenFilename("Fichiers csv, *.csv")
If Nom_Fichier <> False Then
MsgBox Nom_Fichier
End If

End Sub

En tous cas, plus c'est (relativement) difficile avec des pièges, plus on est content du résultat et d'y être parvenu !