Discussion :

[man_coef]

Bonjour.

Depuis un fichier Excel, je dois créer un fichier de données dans un format spécifique où le séparateur est le ; sauf qu'il ne s'agit pas d'un csv car chaque ligne a une entête du genre : "AFF :" (sans les guillemets…).

Voici un exemple d’une ligne de données :
AFF : 0101;324;830;;
(le dernier champs « ;; » veut dire qu’il n’y a pas de valeur)


Idée n°1 :
J’insère chaque ligne de données (du style AFF : 0101;324;830;; ) dans les cellules de la colonne A puis j’enregistre le fichier au format texte unicode. Ainsi, j’ai exactement la mise en forme que je veux. Il y a juste un problème : Excel détecte la présence des ; dans la ligne et ajoute des guillemets autour de la ligne de données. Au lieu d’avoir :
AFF : 0101;324;830;;
j’ai
"AFF : 0101;324;830;;"
=> Comment enregistrer en fichier texte des données contenant des ; sans qu’Excel ajoute des guillemets ?


Idée n°2 :
Enregistrer en CSV. Là je bidouille les données dans les cellules afin d’avoir les ; bien placés dans le fichier final. Sauf que si la données n’existe pas pour un champ d’une ligne, on doit faire apparaitre ;; . Or Excel ne le fait pas forcément. J’arrive à faire apparaitre un espace du type ; ; mais ce n’est pas l’idéal.

Voilà ce que me donne Excel
F: AFF: SM; PARC; HDEB; ;
F: RES: ; PARC; HDEB; HFIN;
F: RES: SM; PARC; HDEB; HFIN;
AFF: 0101;324;830;;
AFF: 0109;349;;;
AFF: 0110;453;930;;
AFF: 0120;329
AFF: 0124;334

Voilà ce que je souhaite
F: AFF: SM; PARC; HDEB; ;
F: RES: ; PARC; HDEB; HFIN;
F: RES: SM; PARC; HDEB; HFIN;
AFF: 0101;324;830;;
AFF: 0109;349;;;
AFF: 0110;453;930;;
AFF: 0120;329;;;
AFF: 0124;334;;;

=> Comment imposer à Excel de voir les différentes colonnes et de toujours créer le même nombre de ; pour chaque ligne de données ?

Merci à ceux qui auront pris le temps de lire mon poste et je prends vos solutions avec plaisir.

Bonne journée.

Emmanuel

[Nicopilami]

Hello
la seule solution que je connais est d'écrire directement le fichier:

Ainsi, tu peux en voir un exemple simple sur le forum ici

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
Sub EcrireTxt()
Dim Fs As Object, A As Object
Dim i As Long
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("C:\Users\Public\Fichier Vide.txt", True)
With Sheets("kml")
   For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
      A.WriteLine (.Range("A" & i).Value)
   Next i
End With
A.Close
Set A = Nothing
Set Fs = Nothing
End Sub

Bye
Nico

[man_coef]

Enorme! Je te remercie, c'est exactement ce qu'il me fallait. Bravo!

[Nicopilami]

de rien
++