X
xavier
Guest
Bonsoir,
Je tiens a remercier michel grace a qui mon projet avant pas mal
voila je fais une recherche de fichier doublon dans mes cd-rom.
Grace a vos conseil j'arrive a archiver tous les fichiers dans une feuille excel ensuite je souhaite faire une recherche des fichiers doublons et la j'ai un petit probleme :
Private Sub fichierdoublon_Click()
Dim bouclefeuille, nbfeuille
nbfeuille = ActiveWorkbook.Worksheets.Count '(feuilles de calcul)
For bouclefeuille = 1 To nbfeuille
Worksheets(bouclefeuille).Select
Cells(65536, 2).Select
'Range("B65536").Select
Selection.End(xlUp).Select
Next bouclefeuille
End Sub
Je selectionne les feuilles les une a une selectionne la cellule B65536 puis remonter jusqu'a la premiere cellule remplie. Pour la premiere feuille il n'y a pas de probleme mais pour bouclefeuille = 2 j'ai un message d'erreur.
Quelqu'un pourrait-il m'eclairer sur ce point.
Je vous remercie car la je ne vois vraiment pas le probleme et bravo pour ce site.
Je tiens a remercier michel grace a qui mon projet avant pas mal
voila je fais une recherche de fichier doublon dans mes cd-rom.
Grace a vos conseil j'arrive a archiver tous les fichiers dans une feuille excel ensuite je souhaite faire une recherche des fichiers doublons et la j'ai un petit probleme :
Private Sub fichierdoublon_Click()
Dim bouclefeuille, nbfeuille
nbfeuille = ActiveWorkbook.Worksheets.Count '(feuilles de calcul)
For bouclefeuille = 1 To nbfeuille
Worksheets(bouclefeuille).Select
Cells(65536, 2).Select
'Range("B65536").Select
Selection.End(xlUp).Select
Next bouclefeuille
End Sub
Je selectionne les feuilles les une a une selectionne la cellule B65536 puis remonter jusqu'a la premiere cellule remplie. Pour la premiere feuille il n'y a pas de probleme mais pour bouclefeuille = 2 j'ai un message d'erreur.
Quelqu'un pourrait-il m'eclairer sur ce point.
Je vous remercie car la je ne vois vraiment pas le probleme et bravo pour ce site.