Ouverture CSV en format texte

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:

---

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:

---

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

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 …

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

Citation:

---

Envoyé par DarkGriffin

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 …

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

merci !

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:

---

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