Discussion :

[DarkGriffin]

Bonjour,

Voilà, j'ai des fichiers csv que j'aimerais "importer" dans un fichier excel global. Ces fichiers contiennent des données "brutes", dont certaines peuvent commencer par "+" ou" -". Or il se trouve que lorsque j'exécute ce code :

Code :

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

1
2
3
4
5
6
7
    application.DisplayAlerts = False
    On Error Resume Next
    Workbooks.OpenText Filename:= "monfichier.csv", Origin:= _
        xlWindows, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False
    application.DisplayAlerts = True

excel rajoute automatiquement un "=" sur les lignes qui commencent par "+" ou "-", ce qui ne m'arrange pas du tout.

J'ai beau passer la colonne entière en format texte

Code :

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

Selection.NumberFormat = "@"

ça ne change rien.

Comment faire ? J'ai vraiment besoin d'afficher ces données telles quelles sans aucune modification, sans rajout.

Merci

[Marc-L]

Bonjour,

lire le fichier texte en VBA pur : consulter l'aide intégrée VBA de l'instruction Line Input # et son exemple,
à combiner avec la fonction Split.

Autre voie (sans garantie) : ouvrir le fichier texte sans utiliser de séparateur puis utiliser la méthode TextToColumns.

Sinon voir aussi du côté de la méthode Workbooks.Open …

[Igloobel]

Bonjour

Personnellement j'utiliserai les instruction de style FSO avec des instruction comme :
- GetFile
- OpenTextFile
- OpenAsTextStream

Tu trouvras un super tutoriel fait par Christophe Warin : "Manipulation des fichiers en VBA"

Sinon tu peux biaiser ... en ajoutant devant tes " + " et tes " -" un simple apostrophe " ' "

Il comprendra c'est du texte

Tu dis

[Marc-L]

J'ai beau passer la colonne entière en format texte, ça ne change rien.

Encore faut-il que la colonne soit au format texte avant de procéder à l'importation …

[DarkGriffin]

Ok, je vais essayer l'une ou l'autre de ces solutions.

merci !

[patricktoulon]

si ton fichier csv est au format avec des ";" il y a que les "+" a modifier car les moins ches moi sont incrit correctement dans les cellules quand je l'ouvre avec excel ,les plus sont automatiquement supprimés

si pour toi les symboles doivent absolument rester
il te faut ouvrir le fichier en tant que fichier text et non avec "workbook.open"
et modifier le symbole en ajoutant comme on te la déjà dit un apostrophe par exemple

un exemple

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 recupCSV()
Dim intFic As Integer, strLigne As String, ligne As Long, col As Long
intFic = FreeFile
Open "C:\Users\Paulo\Desktop\monfichier.csv" For Input As intFic
While Not EOF(intFic)
    Line Input #intFic, strLigne
  ligne = ligne + 1 ' la variable augmente de 1 a chaque ligne du fichier csv
  With Sheets(1) 'nom du sheets a adapter
    For col = 0 To UBound(Split(strLigne, ";")) - 1 ' on coupe le texte de chaque ligne par les ";"
           ' on place chaque morceaux en replacant le symbole par "'+"
       Cells(ligne, col + 1) = Replace(Split(strLigne, ";")(col), "+", "'+")
    Next
End With
Wend
Close intFic
End Sub

Au plaisir