VBA ouverture CSV

Anonyme
2016-05-20T14:29:07+00:00

Bonjour,

Par enregistrement d'une macro

j'ouvre un fichier CSV

Fichier Ouvrir Type de Fichiers 

je choisis mon fichier il s'ouvre tout se décompacte bien en colonnes  selon le ; séparateur.

Par suite j'exécute ma macro

'>

Workbooks.Open Filename:="C:\MonRep\MonFichier.csv"

Le fichier s'ouvre mais reste compacté.

Merci

--

LSteph

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.1K Points de réputation
2016-05-20T15:16:23+00:00

Bonjour LSteph

Utilise le paramètre Local:=True de la méthode Workbooks.Open

Cordialement.

Daniel

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires
Réponse acceptée par l’auteur de la question
Anonyme
2016-05-20T14:59:07+00:00

Bonjour lSteph,

Le fichier s'ouvre mais reste compacté.

J'ai déjà eu ce problème je l'avais résolu avec

'-----------
With Feuil1
.Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, Semicolon:=True
end with
'-----------

--
Salutations
JJ

Cette réponse a-t-elle été utile ?

0 commentaires

29 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.1K Points de réputation
    2017-08-28T15:46:14+00:00

    Bonjour,

    HS demande d'aide sur une discussion.

    Pouvez-vous jeter un œil sur ce fil. Outre le code pourri que j'ai donné dans une réponse, il y a un PERSONAL.XLSB en lecture seule (partagé ?) et des lignes de code qui s'ajoutent seules.

    https://answers.microsoft.com/fr-fr/msoffice/forum/msoffice_excel-mso_winother-mso_2016/effacer-des-cellules-non-verrouill%C3%A9es-dans-un/2acbb031-d986-4acc-8c92-7edfe9b08630?messageId=9660b0a6-5226-42d7-a43a-c0d0753345be

    Merci d'avance.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. DanielCo 107.1K Points de réputation
    2016-05-23T09:53:57+00:00

    Bonjour,

    Impossible d'être exhaustif avec ton exemple minimal. Le code suivant conserve un " ;" en tête de la cellule de la colonne A. On peut tester pour le supprimer :

    Sub test()

        Dim Enrgt As String, Ligne As Long, Col As Integer

        Close #1

        Open "C:\Users\dcola\Documents\Donnees\Daniel\mpfe\TXT-CSV\fichier.csv" For Input As #1

        Do While Not EOF(1)

            Line Input #1, Enrgt

            Enrgt = Application.Substitute(Enrgt, ";=", ";")

            Ligne = Ligne + 1

            For Each Item In Split(Enrgt, """;""")

                Col = Col + 1

                Cells(Ligne, Col) = Application.Substitute(Item, """", "")

            Next

        Loop

        Close #1

    End Sub

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires