langage VBS dans un bloc noteRésolu

Question

Bonjour le fourm,

                    J'ai lu sur internet qu'on pouvait contrôler Excel à partir d'un bloc note en utilisant le language VBS. Cela est-il vrai ? Si oui comment compiler le programme dans lme bloc note ???

Merci

cs_JMO · Accepted Answer

Bonjour,

voir  http://www.vbfrance.com/forum/sujet-EXECUTER-MACRO-EXCEL-VIA-VBS_860154.aspx

jean-marc

Renfield · Answer

oui, on peut.

comme le 'S' de VBS l'indique, c'est du scripting
ça ne se compile pas.

le fichier est à nommer avec l'extension VBS 

exemple.vbs

en double cliquant dessus, ton code tournera

jeanjeandada · Answer

D'accord, ok ca m'interesse !!. Existe t-il un tuto pour lancer une macro (d'excel) à partir du bloc note ??

Merci beaucoup!

jeanjeandada · Answer

bonjour et merci jean-marc pour ton lien.

            Je me demande : si je copie une macro (d'Excel) et que je la colle dans un fichier VBS normalement l'exécution de la macro devrai se faire; puisque VBA est un dérivé du VBS. 
Le fichier VBS devrait lire le VBA , non ??

Merci bien !

Renfield · Answer

faut adapter un brin la syntaxe...

Dim a
au lieu de 
Dim a As xxxx


etc.

jeanjeandada · Answer

Yep, j'ai regardé en détail ton lien : trés intéressant !! Cela va bcp m'aider.
Juste une chose un moment qq1 parle d'un fichier au format .bat où il rentre le chemin du fichier .VBS. 
Mais à quoi sert le fichier .bat ???? (c'est quoi un "scheduleur"  ?? = qqchose pour lancer automatiquement une routine, un fichier ... ?? Qu'écrit-on exactement dans le fichier .Bat pour effectuer cela ??)

Merci beaucoup pour les réponses.

jeanjeandada · Answer

Salut,

J'ai donc essayé d'exécuter ma macro "essai", se trouvant dans le module 5, à partir d'un fichier au format .VBS :
Function main()
 appel_macro_NP()
End Function
 
Function appel_macro_NP() 
Dim Xl
 Dim Wb
 Dim NomMacro
 
 Set Xl = CreateObject("Excel.application")
 Xl.Visible = true
 Set Wb = Xl.Workbooks.Open("C:\Documents and Settings\jdh\Bureau\classeurtre.xls")
 Xl.run WB.Name & "!Module5.essai" 



xl.quit
set wb = Nothing
set Xl = Nothing 



End Function 


Rien ne se passe. Même pas l'ouverture d'Excel. Ma marco "essai' contient juste un Msgbox...

Merci

Langage VBS dans un bloc note

7 réponses

Votre réponse

Discussions similaires