Positionnement de cuseur par code

Bonjour,

Sub Macro1()
'Si le fichier n'est pas ouvert
Workbooks.Open FileName:="C:TempToto.xls"
'Si le fichier est ouvert
Windows("Toto.xls").Activate
Range("A50000").End(xlUp).Offset(1, 0).Select
End Sub

Camille

"DC" wrote:

Bonjour à tous,.............( Excel 2000 sous XP )

En début d'éxécution de macro, ( déjà éxistante )

J'aimerais insérer un code ayant pour fonction :

Activer un fichier "Récap"
Positionner le curseur en colonne "A" et dernière ligne écrite + 1
Et activer cette cellule vide,

Salutations!...............Merci d'avance............DC

Bonjour
Ca veut dire quoi "Activer un fichier "Récap" ? la feuille ? le
Classeur ?
Remplacer le nom classeur et le nom de la feuille par les votres ...
'Deniere cellule vide en partant du bas (Colonne 1)
Sub selection2()
Workbooks("Exemples de selections.xls").Activate
Sheets("Facturation").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
End Sub


Philippe NOSS
http://nossphil.perso.cegetel.net/exoutils.html

Bonsoir à tous.........Bonsoir Elliac et Philippe Noss,

J'ai adopté le code de Philippe, il me parait le mieux adapté et çà
fonctionne très bien,........petite question Philippe..!!

Sheets(Janvier-1).Activate

Je n'est pas le choix, mais comme je dispose de 12 feuilles ( 12 mois ) dans
le classeur,

est-il possible de choisir avant .Activate,

Merci..!! à tous les deux pour vos réponses positives,

Salutations!..............encore Merci..!!................DC

"Philippe Noss" <exefac@exefac.com> a écrit dans le message de news:
1128603384.721998.88740@z14g2000cwz.googlegroups.com...
Bonjour
Ca veut dire quoi "Activer un fichier "Récap" ? la feuille ? le
Classeur ?
Remplacer le nom classeur et le nom de la feuille par les votres ...
'Deniere cellule vide en partant du bas (Colonne 1)
Sub selection2()
Workbooks("Exemples de selections.xls").Activate
Sheets("Facturation").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
End Sub


Philippe NOSS
http://nossphil.perso.cegetel.net/exoutils.html