QueryTables.Add et retours chariot

Bonjour à tous,

Petit souci dont je ne me sort pas , dans mes cellule j'ai des retours chariot , du coup ca fait sauté ma requête d'une ligne , au lieux d'avoir le résultat sur une ligne je l'ai sur 2 ligne , ça saute au niveau de la cellule contenant le retours chariots.

je ne vois pas trop comment faire ,

With Fe.QueryTables.Add("TEXT;" & mypath, Fe.Range("A1"))
        .TextFileSemicolonDelimiter = True
        .TextFilePlatform = 65001
        .Refresh 

Bonjour

sans fichier, peu de chance d'avoir de réponse,

Cordia5

Le csv désolé oublié.

Merci pour le rappel

5csvtest.csv (7.70 Ko)

Bonsoir

je ne comprends pas trop, car tu obtiens 1 ligne avec par exemple :

DATE en A1

01/01/2018 en A2

donc cela correspond à tes titres et à tes données.???? non???

Cordia5

Oui sauf qu'à partir de la question 193 , je 'ais plus de réponse car elle saute une ligne a cause du retours chariot présent

Du coup je n'est plus de réponse

Pour aider à la compréhension , ci joint le fichier CSV à traiter et en exemple le résultat que j'obtiens après le refresh , après la question 193 ça saute une ligne à chaque retours chariot contenu dans la cellule Question

Voici le code que j'utilise pour extraire mes données

 With Fe.QueryTables.Add("TEXT;" & mypath, Fe.Range("A1"))
        .TextFileSemicolonDelimiter = True
        .TextFilePlatform = 65001
        .Refresh 'exécute la requête
        .Delete 'supprime la connexion au fichier texte

    End With

et du coup celui que j'utilise pour patcher faute de mieux

    'Suppression des retours chariot qui foute le dawa

    Set wbCSV = Workbooks.Open(Filename:=mypath, Local:=True)
        nbLignes = Cells.SpecialCells(xlCellTypeLastCell).Row

        For I = 2 To nbLignes       
                    wbCSV.Worksheets(1).Range("GK" & I).Replace Chr(13) & Chr(10), "/"
                    wbCSV.Worksheets(1).Range("LA" & I).Replace Chr(13) & Chr(10), "/"
                       wbCSV.Worksheets(1).Range("LA" & I).Replace "- ", ""
        Next I

            Application.DisplayAlerts = False
            wbCSV.SaveAs Filename:=mypath, FileFormat:=xlCSV, Local:=True
            wbCSV.Close
            Application.DisplayAlerts = True

En espérant êtres clair et en vous remerciant par avance pour votre aide.

5csvtest.csv (7.69 Ko)
9exemple.xlsx (15.07 Ko)
Rechercher des sujets similaires à "querytables add retours chariot"