Transformer un code VBA en VBS

Version imprimable

salut
je veux transformer ce code ecrit en VBA à un code écrit en VBS pour un formulaire outlook car je suis débutant dans les 2 codes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Private Sub CommandButton1_Click()
Dim xlApp As New Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim colonne As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("F:\youness\segment_ref_com_20080911.xls")
Set xlSheet = xlBook.ActiveSheet
colonne = Me.TextBox2.Value
Me.TextBox2.Value = xlSheet.Evaluate("VLOOKUP(""" & colonne & """,B:K,1,0)")
Me.TextBox3.Value = xlSheet.Evaluate("VLOOKUP(""" & colonne & """,B:K,4,0)")
End Sub

13/10/2008, 19h02
SfJ5Rpw8

Pourquoi ne pas écrire cela en VBA sous Outlook ?
14/10/2008, 16h38
GENI36

salut
Car j'ai déjà créer un formulaire outlook et il me manque qu'appliquer ce code pour un champ text
17/10/2008, 12h59
ced600
La FAQ VBScript contient des infos qui pourront t'aider.

En VBS on ne déclare pas le type d'une variable. Elle prend le type Empty jusqu'à son initialisation où elle prend le type de la valeur qui sert à l'initialiser.
Code:

1 2 Dim i 'de type Empty. i = 1 'de type Integer.