Discussion :

[Trabe]

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 vba :

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
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 !

[Laurent Dardenne]

Salut,

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.

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.

[Trabe]

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 :

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

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
Il faut simplement faire :

Code :

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

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