[XL-2010] Evaluer la valeur d'une variable à partir d'une chaine de caracteres

Bonjour,

Peut être une piste en utilisant une gestion d'erreur.
Dans le code exemple suivant, le but est de tester l'existence de feuilles et d'envoyer un message pour celles ne l'étant pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub aa()
Dim S As Worksheet
Dim i&
Dim MsgErreur$
Dim MesFeuilles As Variant
'--- Nom de toutes les feuilles à rechercher---
MesFeuilles = Array("Feuil3", "zaza", "Feuil1", "toto")
 
'--- Test de l'existence des feuilles ---
On Error Resume Next
For i& = LBound(MesFeuilles) To UBound(MesFeuilles)
  Set S = ActiveWorkbook.Sheets(MesFeuilles(i&))
  If Err <> 0 Then
    MsgErreur$ = MsgErreur$ & MesFeuilles(i&) & vbCrLf
    Err.Clear
  End If
Next i&
On Error GoTo 0
'---
If MsgErreur$ <> "" Then MsgBox prompt:=MsgErreur$, Title:="Feuile(s) inexistante(s)"
End Sub

Vous pouvez adapter cet exemple pour tester l'existence de Modules.