Discussion :

[GENI36]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Pourquoi ne pas écrire cela en VBA sous Outlook ?

[GENI36]

salut
Car j'ai déjà créer un formulaire outlook et il me manque qu'appliquer ce code pour un champ text

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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