XL 2021 Aide sendkeys

[vmax67]

Bonjour à tous,
petite demande d'aide concernant les SendKeys

Dans mon code j'ai une boîte de dialogue Windows qui s'ouvre pour télécharger un fichier à partir de internet explorer.

Comment faire pour allez sur enregistrer-sous, et enregistrer le fichier sur D:\MES DOCUMENTS\LGEB\.

Ci-dessous mon code :


Sub SimulerEnregistrement()

SendKeys "{Tab}" ' Descendre pour sélectionner "Enregistrer sous"
SendKeys "%s" ' Ouvrir le menu déroulant "Enregistrer"

SendKeys "{DOWN}" ' Descendre pour sélectionner "Enregistrer sous"

SendKeys "{ENTER}" ' Valider "Enregistrer sous"
Application.Wait (Now + TimeValue("00:00:01"))

End Sub