Discussion :

[Excelou]

Bonjour à tous

J'ai un fichier CSV complètement déstructuré. La séparation entre chaque donnée est faite par un point. La conversion via la fonction "Convertir" d'Excel ne marche pas bien car les colonnes créés ne contiennent pas des données de la même nature. Merci de m'indiquer comment faire pour avoir chaque donnée dans une colonne

Le fichier CSV actuelle
Nom1 Prenom1 .date de naissance : 01/01/1974 .lieu de naissance : Paris
Nom2 Prenom2 .lieu de naissance : 01/01/1957 .lieu de naissance : Marseille
Nom3 Prenom3 .Titre : Titre1 .Lieu de naissance : 01/01/1992

Résultat à obtenir dans chaque colonne
Nom Prénom Titre date de naissance lieu de naissance

Merci de votre aide

[Jean-Philippe André]

Bonjour,

qu'est-ce que tu attends exactement de nous ?

Tu veux du code ? Une serie de manipulations ?

[Excelou]

Je pense que le code serait mieux car c'est un travail à faire régulièrement sur le fichier.

Merci par avance

[parmi]

Bonjour,

Dans ton fichier, lorsqu'il n'y a pas de titre, est-ce qu'il y a un point quand même ? Ça faciliterait la vie...
Est-ce qu'il peut arriver qu'il n'y ait pas de nom ou prénom ou autre ?

Est-ce que tu peux joindre un fichier avec quelques lignes si les données ne sont pas confidentielles ?

[Invité]

Bonjour,
tu peux importer ton fichier en l'état dans Excel puis le retraiter!

Code Programme principale! :

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

1
2
3
4
Sub Test() 
ClipBoard_SetData Replace(Replace(OuvrirFichierTXT("C:\MyRepertoire\PasScv.csv"), ".", vbTab), ":", vbTab)
ActiveCell.PasteSpecial xlPasteAll 
End Sub

Code complet :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 #If VBA7 Then
Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Declare PtrSafe Function CloseClipboard Lib "User32" () As Long
Declare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Declare PtrSafe Function EmptyClipboard Lib "User32" () As Long
Declare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Declare PtrSafe Function SetClipboardData Lib "User32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
#Else
 Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Declare Function EmptyClipboard Lib "User32" () As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Declare Function SetClipboardData Lib "User32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
#End If
Public Const GHND = &H42
Public Const CF_TEXT = 1
Public Const MAXSIZE = 4096
Sub Test()
 ClipBoard_SetData Replace(Replace(OuvrirFichierTXT("C:\MyRepertoire\PasScv.csv"), ".", vbTab), ":", vbTab)
ActiveCell.PasteSpecial xlPasteAll
End Sub
Public Function OuvrirFichierTXT(Fichier)
Set oFs = CreateObject("Scripting.FileSystemObject")
Set oFile = oFs.OpenTextFile(Fichier)
OuvrirFichierTXT = oFile.ReadAll
oFile.Close
End Function

[Excelou]

Le fichier est confidentiel je ne peux malheureusement pas le diffuser. Les noms et prénoms sont toujours renseignés. Effectivement, la structure des informations n’est pas identique d’une ligne à une autre ; on peut avoir en effet des données manquantes (Ex :date de naissance, lieu de naissance..). Sur une même ligne, le point indique le début d’une nouvelle donnée.

dysorthographie : je tenterai de copier le code et de tester.

Merci à vous tous.

[Invité]

dysorthographie : je tenterai de copier le code et de tester.

je suis sur que tu vas y arriver!