Discussion :

[clickandgo]

Bonjour à tous

J'aimerai connaître la méthode la plus simple pour éviter que mon code vba ci-dessous continue à s'éxécuter avant de s'être assuré qu'un script Powershell est terminé ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim retval
retval = Shell("powershell -executionpolicy unrestricted -noexit ""C:\Capsoleil2017\EnvoiFichiersServeur.ps1 '" & DossierFichier & "' '" & NomFichier & "' """, 1)
 
'Lire le fichier texte créé par le script Powershell contenant l'adresse du blob sur le serveur
 
Fichier = "e:\essai blobs\pathserveur.txt"
 
Open Fichier For Input As #1
 
Line Input #1, LigneTexte
Close #1
Debug.Print LigneTexte
 
Me.PathServeur = "" & LigneTexte & ""

Merci d'avance

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
 
wsh.Run "C:\folder\runbat.bat", windowStyle, waitOnReturn

[clickandgo]

Merci pour cette prompte réponse

Il me manque juste à savoir comment renseigner la ligne Powershell lors de l'éxécution , j'ai fait çà mais ça retourne une erreur d'argument :

Code :

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

wsh.Run ("powershell -executionpolicy unrestricted -noexit ""C:\Capsoleil2017\EnvoiFichiersServeur.ps1 '" & DossierFichier & "' '" & NomFichier & "' """, 1), windowStyle, waitOnReturn

Merci de m'aider à recomposer

[clickandgo]

J'ai finalement réussi à le mettre en forme :

Code :

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

1
2
3
Dim retval
 
retval = wsh.Run("powershell -executionpolicy unrestricted ""C:\Capsoleil2017\EnvoiFichiersServeur.ps1  '" & DossierFichier & "' '" & NomFichier & "' '" & NomContainer & "'""", windowStyle, waitOnReturn)

Merci beaucoup