Discussion :

[bigs3232]

j'aimerais créer une fonction pour créer object reg expression pour réutiliser partout .j'ai donc créer comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function f_reg_ex()
  Dim reg As VBScript_RegExp_55.RegExp
  Set reg = New VBScript_RegExp_55.RegExp
    With reg
    .Global = True
    .MultiLine = True
    .IgnoreCase = True
    .pattern = strPattern
    End With
  f_reg_ex = reg
End Function

et l'appeler comme ceci

Code :

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

1
2
3
4
5
 
f_reg_ex.pattern = "\s+"
For Each c In plage
If c.Value <> "" Then c.Value = f_reg_ex.Replace(c.Value, "-") + ".jpg"
Next c

apparemment celà ne semble pas marcher.je ne suis pas sur que c'est possible de faire celà.
si vous avez une idée .
merci pour votre aide