Discussion :

[lycaon]

Bonjour à tous,

J'ai un peu fouillé dans le forum mais je n'ai rien trouvé qui répond à mon pb.
Quand j'ouvre un Workbook en .csv par le code suivant

Code :

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

Set wbk_extract = Workbooks.Open(Filename:=ThisWorkbook.Worksheets("Main").Cells(3, 2).Value, ReadOnly:=True, Format:=2)

Excel tronque les chaînes de caractères à 255 caractères.
J'ai vérifié dans le .csv que les données sont bien présentes en l(ouvrant avec Notepad).

Est ce que quelqu'un a déjà rencontré le problème ?
Si oui, comment le résoudre ?

Merci pour votre aide.

Lycaon

[ouskel'n'or]

Tu n'as pas beaucoup de solutions. La seule que je tenterais serait d'ouvrir ton csv en tant que fichier texte, d'extraire les chaînes et de les écrire dans les cellules. Seuls les 255 premiers caractères serait visibles dans les cellules mais la totalité du texte serait bien dans la cellule.
Tu devrais faire une recherche sur le forum VBA- Excel, le sujet a déjà été traité en début d'année.

Edit
Si c'était un pb de copie de cellule à cellule, je te conseillerais de regarder cette discussion
Tu vois.

[lycaon]

merci pour ta réponse.
Ce n'est pas à la copie que je perds des caractères mais à l'ouverture du workbook. Je l'ouvre déjà en texte et c'est là que quelque chose foire.
Ce n'est pas tout à fait le même pb que dans les autres threads.

Si tu as une autre idée...

Merci encore

Lycaon

[random]

renomme ton fichier

nom.txt

[ouskel'n'or]

Pour abonder dans le sens de random, tu as regardé là
Sinon, tu as la solution d'ouvrir ton fichier en tant que fichier txt avec Open

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
17
Sub LireFichierTxt()
Dim Ligne As String, NoLigne as long, NoCol as integer
Dim Tableau, Chemin, NomFich
Chemin = "D:\Mes fichiers à moi\"
NomFich = "MonFichierAmoi.csv" 'ou .txt
    i = 0
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Input #1, Ligne
        Tableau = Split(Ligne, ";") ' si le séparateur est un ";", sinon tu changes
        NoLigne = NoLigne+ 1
        For NoCol = 0 to Ubound(Tableau)
             Cells(NoLigne, NoCol+1).value = Tableau(NoCol)
        Next
    Wend
    Close #1
End Sub

Tu peux toujours essayer

[lycaon]

Salut à tous,

J'ai trouvé la solution à mon problème !!! (enfin j'espère)

Quand les valeurs commençaient par des caractères qui pouvaient laisser croire à Excel que c'était une formule (typiquement "-"), ce fantastique logiciel convertit automatiquement en formule et donc tronque à 255 caractères.

Pas d'autres solutions que de modifier mes données...

Si ça ne marche toujours pas, je vous tiens au courant.

++

Lycaon