Discussion :

[Mugette]

j'ai une macro qui ajoute des données dans des colonnes dans une feuille Excel.
Cependant certaines données de mon .csv correspondent à des colonnes qui ne sont pas sur la feuille Excel et le but est de les créer.

Pourriez-vous m'aidez à créer ce script ?
Sachant que j'ai quelque'chose mais ce n'est pas moi qui l'ai créer et c'est incompréhensible.

Merci.

[Mugette]

alors un .csv c'est un fichier qui extrait des données et qui les ajoute en vrac dans un .xls;
le but de ma macro est de prendre les données du csv et de les ajouter dans un xls propre.
Il faut que je les classe et les insere par ordre alphabétique dans mon xls propre.
Le souci c'est que j'atteinds les limites des colonnes d'Excel donc je dois diviser mon xls en deux afin que tous rentre dedans.

[SfJ5Rpw8]

Le souci c'est que j'atteinds les limites des colonnes d'Excel donc je dois diviser mon xls en deux afin que tous rentre dedans.

tu as plus de 256 colones ?

[Mugette]

oui c'est pour ça que mon chef me demande de diviser mon onglet en 2...

[SfJ5Rpw8]

tiens si ce petit code peu t'aider :

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
16
17
18
19
20
Sub test2()
 Dim f
 Dim tb
 Dim st As String
 f = FreeFile
 
Open "256.csv" For Input As f 'J'ai créer un fichier 256.Csv en fait de 263 colonnes
 While Not EOF(f)
  Input #f, st
  Debug.Print st
  tb = Split(st, ";")
  'ICI Tu AS UN TABLEAU Tb contenant une ligne de ton fichier ".csv" ...
  'RAJOUTE LA MISE EN PLACE DANS TES FEUILLES EXCEL
    For i = 0 To UBound(tb)
      Debug.Print tb(i)
    Next
   '-------------------------
  Wend
Close f
End Sub

[Mugette]

ouais en triturant, j'ai réussi à faire un truc correct merci pour cette aide.

ciao