Discussion :

[steph7609123]

Bonjour le forum,

J'ai construit un formulaire permettant d'envoyer un mail. A l'appui sur le bouton"envoyer", je souhaite que le programme puisse envoyer les arguments "destinataires, PJ (pour les pièces jointes), titre, texte etc....) afin de lancer un script powershell et passer les arguments indiqués ci-avant.
Le code VBA permet d'instancier des données dans des variables (dim titre as string, dim expediteur as string etc...)
Quelqu'un pourrait-il m'indiquer comment je passe ces arguments (variables) au script powershell.

Bien cordialement.

Stéphane

[Jean-Philippe André]

Salut,

si tu parles du VBA brut, il est souvent adossé à un fichier.

Si tu utilises Excel
https://jpcheck.developpez.com/tutor...ge-parametres/
Si tu utilises Access
https://jpcheck.developpez.com/tutor...ge-parametres/

[jurassic pork]

hello,
voici un exemple pour envoyer un message par PowerShell à partir de VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TestVBA_PowerShell()Dim sPSCmd As String
Dim sTo, sSubject, sBody, sFrom, sSmtpServer, Reponse As String
sTo = "toi@free.fr"
sFrom = "moi@free.fr"
sSubject = "test VBA PowerShell"
sBody = "ceci est un test VBA PowerShell"
sSmtpServer = "smtp.free.fr"
sPSCmd = """Send-MailMessage -To " & sTo & " -Subject '" & sSubject & _
         "' -Body '" & sBody & "' -From " & sFrom & " -SmtpServer " & sSmtpServer & """"
'Construction de la commande complète
sPSCmd = "powershell -command " & sPSCmd
'Exécute et capture les messages d'erreur si il y en a
Erreur = CreateObject("WScript.Shell").Exec(sPSCmd).StdErr.ReadAll
If Erreur <> "" Then MsgBox Erreur
End Sub

Ami calmant, J.P

[steph7609123]

Bonjour JP, Bonjour Jean-Philippe,

Je vous remercie pour vos contributions. Effectivement, comme le dit Jean-Philippe, je préfèrerais faire un appel à un fichier .PS1. La raison pour laquelle je fais ainsi, c'est que la connexion au serveur nécessite un mot de passe (cryptage en StarTTls). Personnellement, je préfère isoler ce mot de passe plutôt que de l'intégrer directement à VBA. Ceci étant, je reconnais la praticité de l'écriture du code directement dans une macro VBA.
Jean-Philippe, auriez vous un exemple pour passer les arguments du VBA au fichier qui exécute le code PS.
Jurassic Pork, devant la déclaration des variables, vous avez mis un "S". Est-ce bien un "S" ou bien un "$" pour coller avec les règles de programmation sur PS?
Je vous remercie dans tous les cas pour vos précisions.

Bien à vous.

Stéphane

[jurassic pork]

hello,

Effectivement, comme le dit Jean-Philippe, je préfèrerais faire un appel à un fichier .PS1. La raison pour laquelle je fais ainsi, c'est que la connexion au serveur nécessite un mot de passe (cryptage en StarTTls). Personnellement, je préfère isoler ce mot de passe plutôt que de l'intégrer directement à VBA. Ceci étant, je reconnais la praticité de l'écriture du code directement dans une macro VBA.
Jurassic Pork, devant la déclaration des variables, vous avez mis un "S". Est-ce bien un "S" ou bien un "$" pour coller avec les règles de programmation sur PS?
Je vous remercie dans tous les cas pour vos précisions.

le s en préfixe est arbitraire pour désigner une variable de type string et les variables ne sont que dans le code VBA.
Pour le passage de paramètres pour un fichier script ps1 voici un exemple :
code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Declare Function OemToChar& Lib "user32" Alias "OemToCharA" (ByVal lpszSrc _As String, ByVal lpszDst As String)
 
Public Function OEM_To_ANSI(ByVal sText As String) As String
  Dim lResult As Long
  Dim sANSI As String
  sANSI = Space$(Len(sText))
  lResult = OemToChar(sText, sANSI)
  OEM_To_ANSI = sANSI
End Function
 
Sub TestVBA_PowerShellFile()
Dim sPSCmd, sParams As String
Dim sTo, sSubject, sBody, sFrom, sSmtpServer, Reponse As String
sFrom = "moi@free.fr"
sTo = "toi@free.fr"
sSubject = """test VBA PowerShell"""
sBody = """ceci est un test VBA PowerShell"""
sSmtpServer = "smtp.free.fr"
sParams = sFrom & " " & sTo & " " & sSubject & " " & sBody & " " & _
          sSmtpServer
sPSCmd = "powershell -ExecutionPolicy Unrestricted " & _
         "-File D:\Temp\envoiCourriel.Ps1 " & sParams
'Exécute et capture les messages d'erreur si il y en a
Erreur = CreateObject("WScript.Shell").Exec(sPSCmd).StdErr.ReadAll
If Erreur <> "" Then MsgBox OEM_To_ANSI(Erreur)
End Sub

avec dans le fichier envoiCourriel.Ps1 :

Code PowerShell :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
param([string]$from,[string]$to,
[string]$subject,
[string]$body,
[string]$smtpserver)
Send-MailMessage -From $from -To $to -Subject $subject -Body $body  -SmtpServer $smtpserver

Ami calmant, J.P

[steph7609123]

Bonjour Jurrassic,

J'ai essayé d'utiliser et d'adapter le code que vous m'avez soumis mais là .... patatra!!!! J'ai un message d'alerte qui s'est affiché m'indiquant que mon code comportait des risques. Mon fichier a été purement et simplement .... supprimé. Auriez vous une idée pour pouvoir le récupérer. Cela fait deux mois environ que je travaille sur ce dossier et là, j'ai les boules. J'avais bien une version de sauvegarde mais elle datait de fin Janvier. Il me manque une bonne partie du code sur cette version.
Quelqu'un aurait-il une idée sur comment faire pour récupérer ce fichier ? J'suis dégouté.

Bien cordialement.

Stéphane