Bonjour,

J'ai développé une fonction en VBS que j'aimerai utilisé dans Excel. Pour cela, il me faut la convertir en VBA. Ensuite, j'aimerai utilisé cette fonction, comme les fonctions déjà présente dans Excel.

comment puis-je faire ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function GenerateGroup(Source,Delimiter)
 
	Dim GroupeCorrect
	Dim Groupe
	Dim mTab
 
	Source = Trim(Source)
	mTab = Split(Source, Delimiter)
	Groupe = mTab(1)
 
	If Len(Groupe) > 54 Then 
		mTab = Split(Groupe, "\")
		For i=0 to (UBound(mTab))
			If Len(Groupe) > 4 Then 
				GroupeCorrect = GroupeCorrect & "-" & Left(mTab(i), 4)
			Else
				GroupeCorrect = GroupeCorrect & "-" & mTab(i)
			End If
		Next
		GenerateGroup = "XX-XXX-XXXXX"&UCase(replace(GroupeCorrect," ","_"))&"-RW"
	Else
		GenerateGroup = "XX-XXX-XXXXX-"&UCase(replace(replace(mTab(1),"\","-")," ","_"))&"-RW"
	End If
 
End Function
 
GenerateGroup("H:\XXX\XXXXX\XXXXXXXX\XXXXXX\XXXX\XXXXXX\XXXXXXXX\XXXXXX\XXXX\XXXXX\XXXXXXX\XXXXX\XXXXX")
Merci d'avance,
Arnaud