Écrire dans un fichier Excel fermé en VbScript

Bonjour à tous. :)

Après avoir cherché sur internet je n’ai pas trouvé de solution, c’est pourquoi je fais appel à vous.

Je dois lancer avec VbScript une macro d'un fichier Excel au redémarrage d'un PC. Cette macro écrit dans la première feuille du classeur actif à la suite de la dernière ligne.

Je sais comment lancer, ouvrir le fichier Excel et exécuter la macro :

Code:

---

1 2 3 4 5

Dim xlapp Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True xlapp.Workbooks.open "C:\...\Classeur1.xls" xlapp.Run "NomMacro"

---

Je souhaiterai exécuter la macro sans ouvrir et écrire dans le fichier fermé ?

Existe-t-il un moyen ?

Merci d'avance pour votre aide.

Salut, tu n'est pas à priori sur le bon forum, à lire tout de même : Lire et écrire dans les classeurs Excel fermés en adaptant à ton contexte.

bonjour,
copy ça dans note pad et enregistres le avec l’extension vbs!

Code:

---

1 2 3 4 5 6 7 8

Dim xlapp dim Wb Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True set Wb = xlapp.Workbooks.open("C:\MyTest\MyTest.xlsm") Wb.application.Run "test" Wb.close false xlapp.Quit

---

Bonjour kiki29.

Citation:

---

Envoyé par kiki29

Salut, tu n'est pas à priori sur le bon forum, à lire tout de même : Lire et écrire dans les classeurs Excel fermés en adaptant à ton contexte.

---

Y a-t-il une possibilité de transfert dans un autre forum ou faut-il créer une nouvelle discussion dans un autre forum et lequel ?

on s'en fiche tu as ta réponse maintenant!

Bonjour rdurupt.

Merci pour ta réponse.

J'ai fait une copie de ton code dans notepad++ et enregistré avec l’extension vbs.

Petit souci si je double clic sur le fichier au lieu d'exécuter le script il ouvre le fichier dans le Bloc-Note.

normal, quand tu fais enregistre sous il faut choisir l'extension!

Je rencontre un autre problème si le fichier est enregistré avec l'extention.VB

Citation:

---

Envoyé par rdurupt

bonjour,
copy ça dans note pad et enregistres le avec l’extension vbs!

---

test.VBS c'est du vbScript pas du VB

J’ai enregistré le fichier sous test.VB et modifier l'extension en .vbs et je rencontre toujours le même problème

pour information c'est le fichier Excel à traiter qui contient la macro à exécuter, elle écrit des données dans la première feuille du classeur actif à la suite de la dernière ligne

si j'exécute test.vbs à partir de notepad++ c'est pareil

je ne comprends pas

ton ficher s'appel Test.VBS.txt c'est pour ça que tu l’ouvre avec Notepad les extension sur ton explorateur Windows sont masqué

l'option "afficher les fichiers, les dossiers et les lecteurs cachés" est activée le ficher s'appelle bien Test.vbs ?

télécharge vbsfactor c'est gratuit!

Bonsoir rdurupt.

Je ne suis pas un spécialiste, mais en faisant un clic droit sur l'icône du VBS et "ouvrir avec" et en sélectionnant "Microsoft Windows Based Script Host", le script s’exécute.

Par contre la macro n’écrit dans la première feuille du classeur à traiter à la suite de la dernière ligne.

Je joins le fichier pour une meilleure compréhension.

Là ça coince et j’avance plus.

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

Option Explicit   Sub LogStartPC() Dim derL As Long Dim Ws As Worksheet Set Ws = Sheets("data démarrage-arrêt") Application.ScreenUpdating = False derL = Ws.Range("A1").CurrentRegion.Rows.Count + 1 Ws.Rows(derL).Insert With Ws.Range(Ws.Cells(derL, 1), Ws.Cells(derL, 1).Offset(0, 7)).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With Ws.Cells(derL, 1) .Value = "Démarrage" .Offset(0, 1).Value = Format(Date, "yyyy-mm-dd") .Offset(0, 2).Value = Format(Time, "hh:mm:ss") .Offset(0, 3).Value = Environ("Username") .Offset(0, 4).Value = Environ("ComputerName") .Offset(0, 5).Value = Environ("Userdomain") End With 'ActiveWorkbook.Save 'ActiveWorkbook.Close Application.ScreenUpdating = True   End Sub

---

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

Option Explicit   Sub LogArretPC() Dim derL As Long Dim Ws As Worksheet Set Ws = Sheets("data démarrage-arrêt") Application.ScreenUpdating = False derL = Ws.Range("A1").CurrentRegion.Rows.Count + 1 Ws.Rows(derL).Insert With Ws.Range(Ws.Cells(derL, 1), Ws.Cells(derL, 1).Offset(0, 7)).Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With With Ws.Cells(derL, 1) .Value = "Arrêt" .Offset(0, 1).Value = Format(Date, "yyyy-mm-dd") .Offset(0, 2).Value = Format(Time, "hh:mm:ss") .Offset(0, 3).Value = Environ("Username") .Offset(0, 4).Value = Environ("ComputerName") .Offset(0, 5).Value = Environ("Userdomain") .Offset(0, 6).FormulaR1C1 = "=RC[-4]-R[-1]C[-4]" End With 'ActiveWorkbook.Save 'ActiveWorkbook.Close Application.ScreenUpdating = True   End Sub

---

Bonjour ;) :lun: :ccool:

Ton aide m’a été précieuse, j’ai corrigé les lignes de code suivant et ça fonctionne très bien.

Il ne faut pas commenter 'ActiveWorkbook.Save dans Mod_Start_PC et Mod_Arret_PC dans les macros.

Il ne faut pas commenter Wb.close false dans les scripts.

Code:

---

1 2 3 4 5 6 7 8

Dim xlapp dim Wb Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True set Wb = xlapp.Workbooks.open("C:temps_utilsation_pc.xlsm") Wb.application.Run "LogStartPC" 'Wb.close false xlapp.Quit

---

et

Code:

---

1 2 3 4 5 6 7 8

Dim xlapp dim Wb Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True set Wb = xlapp.Workbooks.open("C:temps_utilsation_pc.xlsm") Wb.application.Run "LogArretPC" 'Wb.close false xlapp.Quit

---

Merci

Bonjour,
Avec cette macro tu exécute en fonction de la dernière ligne Démarrage/Arrêt

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub OnOf() Dim derL Dim Ws As Worksheet Set Ws = Sheets("data démarrage-arrêt") derL = Ws.Range("A1").CurrentRegion.Rows.Count If Ws.Cells(derL, 1).Value = "Démarrage" Then LogArretPC Else LogStartPC End If End Sub

---

tu peux donc executer toujour le même script.vbs

Code:

---

1 2 3 4 5 6 7 8

Dim xlapp dim Wb Set xlapp = CreateObject("Excel.Application") xlapp.Visible = True set Wb = xlapp.Workbooks.open("C:temps_utilsation_pc.xlsm") Wb.application.Run "OnOf" 'Wb.close false xlapp.Quit

---

Bonsoir
Je n'ai pas pensé à ta solution, effectivement ta macro s'exécute en fonction de la dernière ligne Démarrage/Arrêt, et un seul fichier script.vbs suffit.:applo:

J'ai nommer le script «session-start-stop.vbs », en faisant un clic droit sur l'icône , puis "ouvrir avec" et en sélectionnant "Microsoft Windows Based Script Host", il s’exécute normalement.

Par contre dans «l'éditeur de stratégies de groupe local» le script ne se déclenche pas au démarrage et à l’arrêt du PC.

C’est incompréhensible, petit rappel : si je double clic sur le fichier «session-start-stop.vbs» il ouvre le fichier dans le Bloc-Notes. :aie:Grrrrrrrrrrrrrrrrrrrr

Click droit et propriété pour changer le programe lier

si non pano de cofiguration systême li y a truc pour le lacement des extention

Bonjour rdurupt.

Je n’avais pas fait attention que le Bloc-Notes était le programme par défaut pour ouvrir un fichier VBS, j'ai sélectionné Microsoft®Windows Based Script Host (toujours utilisé le programme sélectionné pour ouvrir le fichier) et maintenant en faisant un double clic sur l'icône du fichier VBS il s'exécute.

Désolé et merci pour ta remarque et ta patience.

Dans «l'éditeur de stratégie de groupe local» le script ne se déclenche pas au démarrage du PC ni à l’arrêt et Windows ne se ferme pas. Pourtant avec fichier TXT ça fonctionne nickel chrome ?