Discussion :

[Mugette]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim i
 
Public Sub crea_tab()
Workbooks.Open "\\sw3268\DATA1\DSI\DSI OPS\Support client\Exploitation\Cockpit SI\François\test\decoupage\localmasse.csv"
i = 0
While Workbooks("localmasse.csv").Worksheets("localmasse").Range("A1").Rows.Value <> ""
        i = i + 1
Wend
MsgBox i
Workbooks("localmasse.csv").Close savechanges:=False
End Sub

Quelqu'un peut me dire ce qui va pas la-dedans ?
Je veux juste incrmenter une variable et l'afficher pour déterminer u=le nb de colonnes pleines dans un fichier csv

je pete un plomb, mes 2 ans de bts info mont servi a rien

[Theocourant]

Salut,

Essaie avec

Code :

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

1
2
3
4
5
i = 0 
While Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i+1,1).Value <> "" 
        i = i + 1 
Wend 
MsgBox i

Et cela te donnera le nombre de lignes remplies

Car en ouvrant par le code un ficher csv, cela écrit tout dans une seule colonne.....

Sinon il faut que tu découpes ligne pour obtenir un tableau de plusieurs lignes sur plusieurs colonne.
Il existe une fonction pour cela mais je me rappelle plus laquelle.

Bon courage

Théo

[argyronet]

Bonjour,

Cette procédure suffit:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub crea_tab()
 
Dim strCSVFile As String
 
  strCSVFile = "\\sw3268\DATA1\DSI\DSI OPS\Support client\Exploitation\Cockpit SI\François\test\decoupage\localmasse.csv"
  Workbooks.Open strCSVFile
  Range("A1").Select
    MsgBox "L=" & ActiveCell.End(xlDown).Row & " - C=" & ActiveCell.End(xlToRight).Column
  ActiveWorkbook.Close False
End Sub

Un CSV ne possède qu'une feuille et en général, il n'a jamais subit de modifications...
Argy

[Theocourant]

Bonjour,

Cette procédure suffit:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub crea_tab()
 
Dim strCSVFile As String
 
  strCSVFile = "\\sw3268\DATA1\DSI\DSI OPS\Support client\Exploitation\Cockpit SI\François\test\decoupage\localmasse.csv"
  Workbooks.Open strCSVFile
  Range("A1").Select
  MsgBox ActiveCell.End(xlDown).Row
  ActiveWorkbook.Close False
End Sub

Un CSV ne possède qu'une feuille et en général, il n'a jamais subit de modifications...
Argy

Je suis d'accord mais toujours dans le cas du comptage du nombre de lignes remplies or il semble que ce soit le nombre de colonne qu'il souhaite....

Théo

[argyronet]

Eh, comme ça alors...

Code :

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

  MsgBox "L=" & ActiveCell.End(xlDown).Row & " - C=" & ActiveCell.End(xlToRight).Column

Argy

[SfJ5Rpw8]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim i
 
Public Sub crea_tab()
Workbooks.Open "\\sw3268\DATA1\DSI\DSI OPS\Support client\Exploitation\Cockpit SI\François\test\decoupage\localmasse.csv"
i = 0
While Workbooks("localmasse.csv").Worksheets("localmasse").Range("A1").Rows.Value <> ""
        i = i + 1
Wend
MsgBox i
Workbooks("localmasse.csv").Close savechanges:=False
End Sub

Quelqu'un peut me dire ce qui va pas la-dedans ?
Je veux juste incrmenter une variable et l'afficher pour déterminer u=le nb de colonnes pleines dans un fichier csv

je pete un plomb, mes 2 ans de bts info mont servi a rien

pour le nombre de ligne ... tu peu utiliser l'objet currentRegion appliqué à la cellule A1 .... :

Code :

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

1
2
3
Workbooks.Open "\\sw3268\DATA1\DSI\DSI OPS\Support client\Exploitation\Cockpit SI\François\test\decoupage\localmasse.csv"
 
i=  Range("A1").CurrentRegion.Rows.Count

[Mugette]

Et bah en 18 min chrono j'ai déja 3 réponses, c'est ce que j'apelle du"taf de pro".
Merci les gars.

[Theocourant]

Eh, comme ça alors...

Code :

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

  MsgBox "L=" & ActiveCell.End(xlDown).Row & " - C=" & ActiveCell.End(xlToRight).Column

Argy

Toujours même problème que ce que j'ai cité dans un de mes posts précédent ...
L'ouverture par code d'un fichier CSV fait que toutes les données sont regroupées dans la première colonne ....

Mugette : Je recherche la solution car j'ai été confronté à ce problème lors d'un projet que j'ai effectué MAIS je n'ai pas le code sous la main pour te le donner. Ce soir normalement, au pire demain matin.

@peluche

Théo

[Mugette]

ok merci Theocourant. Bonne soirée

[Theocourant]

Salut,

Et finallement la réponse viendra presque une semaine plus tard ... (recherche dans archives oblige )

A l'époque j'ai utilisé la fonction Split qui permet de définir un délimiteur pour la séparation des colonnes.
Voici un exemple :

Code :

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

1
2
3
4
Dim tableau
        .....
        MaChaine = "mqshdmqh,sqghf,0,54, ,,odn"
        tableau = Split(MaChaine, delimiter:=",")

Bon courage et désolé pour le retard

Théo