[vbexcel]Pb de test

Code:

---

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

Salut,

Essaie avec

Code:

---

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

Bonjour,

Cette procédure suffit:

Code:

---

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

Citation:

---

Envoyé par argyronet

Bonjour,

Cette procédure suffit:

Code:

---

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

Eh, comme ça alors...

Code:

---

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

---

Argy

Citation:

---

Envoyé par Mugette

Code:

---

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:

---

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

---

:wink: :roll:

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.

Citation:

---

Envoyé par argyronet

Eh, comme ça alors...

Code:

---

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

ok merci Theocourant. Bonne soirée :wink: :wink: :wink:

Salut,

Et finallement la réponse viendra presque une semaine plus tard :oops: ... (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:

---

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