Discussion :

[philatex]

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 :

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

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

[Marc-L]

Bonsoir,

ton code fonctionne sans souci de mon côté …

[spookyz]

Bonjour,
moi aussi il fonctionne
il y a bien des données dans la colonne 1 ?

[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

[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

[Marc-L]

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 …

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 pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
Jeanne d'Arc s'est éteinte le 30 mai 1431, environ deux heures après sa mort …

[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

[PMO2017]

Bonjour,

Essayez le code suivant

Code :

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

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