VBscript: Enregistrer un fichier Excel + faire appel à une macro
honey2
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je cherche à enregistrer un fichier Excel que j'ai déjà crée avec VBscript et une fois il est enregistré, je voudrai à l'ouverture du fichier Excel mes macros(déjà fait) s'exécute de manière automatique.
Merci à tout ceux qui ont des idées :)
J'ai travaillé avec VBscript dont voici le code
''''''''''''
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
materiel = InputBox("Entrez le matériel à configurer", "Choix de matériel","procurve")
if materiel= "procurve" then
''''''''''''Saisie des donnée pour Input:
switch = InputBox("Entrez le nom du switch:", "Switch name","")
ip = InputBox("Entrez l'adresse ip du Switch:", "ip address","")
gateway = InputBox("Entrez la passerelle", "gateway default","")
objWorksheet.Cells(6,1) = "Matériel"
objWorksheet.Cells(6,2) = "Nom du Switch"
objWorksheet.Cells(6,3) = "Ip Address du Switch"
objWorksheet.Cells(6,4) = "Default Gateway"
objExcel.Cells(7, 1).Value = materiel
objExcel.Cells(7, 2).Value = switch
objExcel.Cells(7, 3).Value = ip
objExcel.Cells(7, 4).Value = gateway
end if
'''''''''''
Merci :)
Je cherche à enregistrer un fichier Excel que j'ai déjà crée avec VBscript et une fois il est enregistré, je voudrai à l'ouverture du fichier Excel mes macros(déjà fait) s'exécute de manière automatique.
Merci à tout ceux qui ont des idées :)
J'ai travaillé avec VBscript dont voici le code
''''''''''''
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
materiel = InputBox("Entrez le matériel à configurer", "Choix de matériel","procurve")
if materiel= "procurve" then
''''''''''''Saisie des donnée pour Input:
switch = InputBox("Entrez le nom du switch:", "Switch name","")
ip = InputBox("Entrez l'adresse ip du Switch:", "ip address","")
gateway = InputBox("Entrez la passerelle", "gateway default","")
objWorksheet.Cells(6,1) = "Matériel"
objWorksheet.Cells(6,2) = "Nom du Switch"
objWorksheet.Cells(6,3) = "Ip Address du Switch"
objWorksheet.Cells(6,4) = "Default Gateway"
objExcel.Cells(7, 1).Value = materiel
objExcel.Cells(7, 2).Value = switch
objExcel.Cells(7, 3).Value = ip
objExcel.Cells(7, 4).Value = gateway
end if
'''''''''''
Merci :)
A voir également:
- VBscript: Enregistrer un fichier Excel + faire appel à une macro
- Shutdown en vbscript - Forum VB / VBA
- Problème d'InputBox en VBScript ✓ - Forum VB / VBA
- [PHP] Exécution d'un VBScript ✓ - Forum PHP
- [VBScript] numéro de semaine ✓ - Forum VB / VBA
- Fermeture de session en VBscript - Forum VB / VBA