XL 2010 Exécution d'une commande powershell - formatter le résultat

[YRES]

Bonjour,
Je cherche à formatter le résultat d'une commande powershell dans un tableau Excel sans passer par les imports et transformations d'un fichier CSV.
Pour le moment j'arrive à entrer le résultat d'une commande dans une cellule, mais ce résultat est un tableau.

Sub lancer_commande()
Dim resultat As Variant

Set wshell = CreateObject("WScript.Shell")
Set wshellresult = wshell.exec("powershell (Get-ChildItem c:\users\monuser\desktop | Select-Object name, @{N='date de creation' ; E={$_.CreationTime.ToString('MM/yyyy')}})")
    

result = wshellresult.stdout.Readall
Range("A1").Value = resultat

  
End Sub

Existe-t-il y un moyen de parser les éléments avec le VBA ?


Je vous remercie.

 

[sylvanu]

Bonjour Yres,
Il faut dans ce cas restituer le tableau en cellules, par exemple avec un tableau nommé Tablo :

Range("A1").Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo

 

[YRES]

Bonjour Sylvanu,
comment relies-tu le résultat de la commande ?
Si je prends l'exemple ici j'obtiens une erreur d'exécution 13 - incompatibilité de type.

Je ne comprends pas bien la formule indiquée.

Merci

 

[sylvanu]

Si Résultat est le tableau, il faut changer le Dim.
Dans un premier temps mettez le Dim en commentaire. Si plus d'erreur c'est que c'était la cause.