Lire un fichier

Version imprimable

Lire un fichier

bonsoir a tous

j'ai un document qui reviens souvent avec une tache repetitive a faire et j'aimerai pour automatiser tout ça

j'ai un fichier xl ou j'ai mis un bouton qui ouvre une boite de dialogue pour aller chercher mon fichier a traiter

et j'aimerai qu'a l'ouverture de ce fichier pour le moment q'il me compte le nombre de ligne non vide et l'affiche dans un msbox

'est pas le but du traitement mais j'essaye d'apprendre en meme temps

le probleme c'est qu'il m'affiche en permanence la valeur 1 car il ne doit pas travailler sur le bon fichier
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub test() ' ouverture de la boite de dialogue Application.Dialogs(xlDialogOpen).Show 'recuperer le nombre de ligne non vide dans le fichier nb = Cells(Rows.count, 1).End(xlUp).Row MsgBox nb End Sub

17/09/2013, 01h00
Marc-L

Bonsoir,

ton code fonctionne sans souci de mon côté …
17/09/2013, 01h07
spookyz

Bonjour,
moi aussi il fonctionne
il y a bien des données dans la colonne 1 ?
17/09/2013, 08h43
philatex

bonjour

merci pour vos reponse, effectivement la macro fonctionne si je l'execute depuis le fichier à traiter par contre si j'utilise une feuille xl blanche avec un bouton pour aller chercher un fichier sur mon disque la macro travail sur le fichier ou il est installé et pas sur le fichier que je vais chercher

je comprend pas pourquoi
17/09/2013, 08h53
spookyz

Bonjour,
je pense que le fichier que tu ouvre n'est pas au premier plan dans
excel si c'est toujours le même nom de fichier sur lequel tu veut appliquer la macro et toujours sur la même feuille de ce fichier donne nous les noms
pour adapter ton code
17/09/2013, 09h27
Marc-L

Citation:

Envoyé par philatex;7482519[…

par contre si j'utilise une feuille xl blanche avec un bouton pour aller chercher un fichier sur mon disque la macro travail sur le fichier ou il est installé

C'est tout à fait normal et même logique …

La solution consiste donc soit en ligne n°9 à précéder Cells du classeur et de la feuille
soit d'activer la feuille avant, bref respecter la hierarchie d'Excel …

Citation:

Envoyé par philatex

j'aimerai qu'a l'ouverture de ce fichier pour le moment q'il me compte le nombre de ligne non vide

Ta ligne n°9 compte rien du tout, elle indique seulement le n° de la dernière ligne saisie en colonne A !

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Jeanne d'Arc s'est éteinte le 30 mai 1431, environ deux heures après sa mort …
17/09/2013, 12h06
philatex

bonjour

je comprend mieux pourquoi alors.
avez vous un exemple avec un fichier ou je pourrai tester en gros il faut que j'essaye de recuperer le chemin de mon fichier et que je l'active

merci

Bonjour,

Essayez le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim rep As Variant
Dim WB As Workbook
Dim nb As Long
 
rep = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If rep = False Then Exit Sub
Set WB = Workbooks.Open(rep)
nb = WB.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
 
MsgBox nb
End Sub

18/09/2013, 07h13
philatex

super ça fonctionne c'est exactement ce que je vouslais faire.
encore merci :ccool: