VBscript: Enregistrer un fichier Excel + faire appel à une macro

Fermé
honey2 - 27 mars 2013 à 11:27
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 27 mars 2013 à 19:07
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 :)
A voir également:

1 réponse

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
27 mars 2013 à 19:07
Bonjour,
Avant d'aller plus loin... tu crois pas que ce serait beaucoup plus simple de faire ça directement dans le classeur Excel ?
A+
0