utiliser SendKeys avec Excel

Question

Bonjour

J'ai un problème avec l'utilisation de la fonction
Sendkeys...

Ci-joint mon petit bout de prog VB qui ouvre un fichier
excel...

Je voudrais envoyer Ctrl+Fin pour qu'il se place sur la
dernière cellule modifiée de la feuille en cours et ça ne
marche pas!!!

Comment puis-je faire???

si vous avez de meilleures idées pour commander
Excel à partir de VB je suis preneur!!!

Merci d'avance!

Public devisexcel As Object
Dim m As Integer

Private Sub Command1_Click()
Set devisexcel = CreateObject("Excel.Application")
devisexcel.Visible = True
devisexcel.workbooks.Open FileName:="D:\Data\Essai\Classeur1.xls", Editable:=True
devisexcel.displayalerts = False

devisexcel.sheets("Feuil1").Select
devisexcel.Range("A1").Select

devisexcel.SendKeys "{^}{END}", True

MsgBox (devisexcel.activecell.Text)

m = devisexcel.activecell.row
MsgBox (m)

MsgBox (devisexcel.activecell.Text)

devisexcel.activeworkbook.saveas FileName:="D:\Data\Essai\Classeur1.xls"
devisexcel.Application.Quit
End Sub

 :shy)

pelw · Answer

Essaye avec :

devisexcel.SendKeys "^{END}", True

Une autre possibilité serait :

devisexcel.Sheets("Feuil1").Cells.SpecialCells(xlLastCell).Select

@+

pelw

Utiliser SendKeys avec Excel

1 réponse

Discussions similaires