Lancer du VBA avec Powershell

Bonjour a vous,

Débutant en VBA/powershell et plus largement en dev, je me permet de poster un message ici,
J'ai dev un petit peu de code en VBA pour automatiser des actions sur Excel via un Bouton

Code:

---

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 27 28 29 30 31 32

Private Sub CommandButton1_Click() Dim wb As Workbook Dim ws As Worksheet Dim Valeur As Integer Dim Nom As String Dim DD As Date   'Ouvrir fichier liste avec bonne feuille Set wb = Workbooks.Open("C:\Users\Dell\Desktop\Liste.xlsm") Set ws = wb.Worksheets("Feuil1")   'affiche la bonne feuille Sheets("Feuil1").Select   DD = ws.Cells(2, 3).Value 'recup vielle date ws.Cells(2, 7).Value = Format(ws.Cells(2, 3), "m/d/yyyy") 'Donner date dernière ouverture ws.Cells(2, 3).Value = Format(Now, "m/d/yyyy")     'Ajouter le nombre d'ouverture Valeur = ws.Cells(2, 4).Value ws.Cells(2, 4).Value = Valeur + 1     Nom = Environ("USERNAME") 'recup vieux nom user ws.Cells(2, 8).Value = ws.Cells(2, 5) 'Set nom last user ws.Cells(2, 5).Value = Nom

---

Ma question est la suivante, est il possible de faire la même chose en Powershell ? j'arrive a ouvrir, fermer, créer un fichier Excel via Powershell, mais je ne trouve pas comment faire des modifications sur mon fichier.
l'idée étant de pouvoir effectuer les dites modifications sans le bouton.

peut-être une solution exécuter directement mon code VBA ou l'adapter pour Powershell ?

Merci d'avance ! :)

Salut,

Citation:

---

Envoyé par Trabe

Ma question est la suivante, est il possible de faire la même chose en Powershell ?

---

Oui via OLE Automation, c'est à dire piloter une application par programme.
Ensuite il est possible que cela te demande plus de code qu'en VBA et également d'approfondir le modèle COM d'Excel.

Citation:

---

Envoyé par Trabe

Peut-être une solution exécuter directement mon code VBA

---

Oui, essaie en exécutant une macro, ce qui t'évitera un portage de code.
Reste à savoir ci celle-ci doit être dans le document ou pas.

Bonjour Laurent,

Avant tout merci de ta réponse,
Entre temps j'ai fait quelques recherche et quelques test, et effectivement la solution Powershell à l'air de ne pas être la meilleur option pour mon problème.
Je suis donc parti sur une autre solution en VBScript qui a première vue me permet de répondre a ma problématique de la manière la plus simple possible et comme ça ressemble un peu a VBA c'est plus facile :) et me permet d'executer mon code sans avoir a lancer certain Classeur Excel ce qui est mieux pour moi.

je me permet encore une petite question en VBS donc, savez vous quel est la syntaxe pour pour insérer un format DATE dans une cellule ?
Au fil de mes recherches j'ai fait quelque chose comme ça :

Code:

---

1 2 3

set d = CDate ("Now") ws.Range("C5") = FormatDateTime(d)

---

mais de tout évidence ça ne marche pas, est le message d'erreur me dit : Type incompatible: 'CDate'

Peut être qu'une autre partie du forum est plus adapté a ma question, si c'est cas vous pouvez me le dire :)

Merci encore
a bientôt sur les Internets !

Edit Quelques secondes après :aie: :roll:
Il faut simplement faire :

Code:

---

1 2	ws.Range("C5") = FormatDateTime(Now)

---