Discussion :

[epsylow78]

Bonjour, j'utilise des userform et afin de ne pas être bloqué je les affiches avec vbmodeless.
Cependant, afin de ne pas créer de bug, il faut sécuriser le fichier.

Pour cela, je dois par exemple activer le fichier contenant la macro afin d'éviter que celle-ci ne s'execute dans un autre fichier (si on en sélectionne un autre lorsque le userform est ouvert).

J'aimerais donc un code me permettant de vérifier si le workbook contenant la macro est actif, et s'il ne l'est pas, alors l'activer.

pour résumer : quelque chose du genre :

Code VBA :

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

1
2
3
4
5
Sub test
If Thisworkbook.activate = false then 
thisworkbook.activate
End If
End sub

Merci beaucoup

Ps : c'est mon premier ticket ^^ soyez indulgent si je n'ai pas la bonne mise en forme... (et non, je ne peux pas mettre de fichier, car il est confidentiel)

[epsylow78]

J'ai trouvé par moi même

Il suffit de faire cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim a, b As String
a = ThisWorkbook.Name
b = ActiveWorkbook.Name
 
If a = b Then
MsgBox "activate"
Else
MsgBox "non activé"
End If
 
End Sub

Bien à vous,

[MarcelG]

Bonsoir Epsylow, Bonsoir au Forum,

Bienvenue sur le Forum.

Attention, dans ta procédure a est déclarée comme Variant, non en String.

Voir l'introduction du paragraphe 2 de ce tutoriel

Au demeurant, il est bien que tu aies continué de chercher et trouvé par toi-même

Bonne continuation et peut-être à bientôt.