Conversion CSV destructuré

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

Bonjour,

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

Tu veux du code ? Une serie de manipulations ?

:cristal:

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

Merci par avance

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 ?

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

Code:

---

1 2 3 4

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

---

Code:

---

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

---

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.

Citation:

---

Envoyé par Excelou

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

---

je suis sur que tu vas y arriver!