Bonjour la communauté!
J'utilise un VBS pour ouvrir (sans affichage) un fichier Excel et exécuter une macro. Voici mon script VBS :
Cependant, la macro dans mon fichier Excel s'exécute avec saisie d'un mot de passe dans un InputBox. Voici mon code dans Excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim oXL Set oXL = WScript.CreateObject("EXCEL.application") oXL.Visible = False set Wk = oXL.workbooks.open("C:\Users\manu\Desktop\MacroAuto.xlsm") oxl.run "MailAuto" Wk.save wk.close oxl.quit Set oXL = Nothing
Ma problématique : quelle instruction dois-je écrire dans mon VBS pour saisir automatiquement le mot de passe "mdp" dans l'InputBox afin que ma macro s'exécute sans ouvrir Excel?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub MailAuto() Dim sPass As String sPass = InputBox("Veuillez saisir le mot de passe") If sPass = "mdp" Then Call Envoi_mail End If End Sub
Je vous remercie de votre aide.
Cordialement
Partager