Merci de votre réponse et désolé du peu de détail donné.
Voilà le code que l'on m'a donné tout à l'heure.
Sub Convertir()
Worksheets("Import").Rows("1:500").RowHeight = 15
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1)), _
TrailingMinusNumbers:=True
End Sub
En fait, j'ai une fonction qui me permet d'importer un fichier .txt dans une feuille de calcul Excel, mais tout est dérangé. Avec le code ci-dessus, j'ai pu ranger chaque valeur dans une colonne en utilisant ";" comme séparateur.
Mais, le deuxième fichier .txt que j'importe est de la forme suivante :
/* 1 */
{
"colonne1" : xxxxxxx,
"colonne2" : xxxxxxxx,
"colonne3" : xxxxxxxxxx,
"colonne4" : xxxxxxx,
"colonne5" : xxxxxxx,
"colonne6" : xxxxxx
}
Et j'aimerais donc savoir comment faire pour pouvoir séparer ce bout de texte pour que chaque "colonneX" soit dans une colonne différente. (Le /* 1*/ représente chaque ligne, et "colonneX" sont ses colonnes correspondantes.)
J'espère avoir été assez compréhensible.
Cordialement
EDIT : J'ai oublié de préciser que le nombre de colonnes dans chaque /* X */ est variable, il peut y en avoir 5 comme il peut y en avoir 15.