Microsoft 365 Explorateur d'objets vba ouverture intempestive (pour moi)

Usine à gaz · 25 Mars 2022

Bonjour à toutes et à tous

Je suis en face d'un souci que je ne sais encore pas résoudre et je fais appels à nos ténors.
J'ai un code, juste pour le test, dans le fichier test joint :

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
'clic D1 entrer pour mise à jour
CreateObject("wscript.shell").SendKeys "{F2}"
CreateObject("wscript.shell").SendKeys "{ENTER}"

If Not Intersect(R, Range("g2:j20")) Is Nothing Then
ActiveSheet.Unprotect Password:=""
    CreateObject("wscript.shell").SendKeys "{ENTER}"
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Ce code ouvre l'explorateur d'objets.
Je voudrais que ce ne code n'ouvre pas l'explorateur mais je n'ai pas trouvé comment faire.

Auriez-vous la solution ?
Merci à toutes et à tous,
Amicalement,
lionel

fanch55 · 25 Mars 2022

Salut Lionel,
cela n'ouvre l'explorateur VBE que si tu est en mode debugging, cad si tu as mis un point d'arrêt dans le code .
Que veux-tu faire exactement, ?

Usine à gaz · 25 Mars 2022

Bonjour fanch55

Je ne veux rien faire c'est juste un code test.

"si tu as mis un point d'arrêt dans le code"
Si tu as ouvert le fichier joint (sinon ça sert à koi de mettre des fichiers lol). Tu as vu qu'il n'y a
aucun point d'arrêt (qui se met d'ailleurs en ouvrant vba pour exécuter pas à pas).

Si tu exécutes le code en pas à pas, l'explorateur s'ouvre

Ce que je souhaite est que l'explorateur d'objet ne s'ouvre pas,
lionel

TooFatBoy · 25 Mars 2022

Bonjour,

Je clique dans le tableau, mais ça n'ouvre pas l'explorateur d'objet chez moi.

Ce que tu montres en capture d'écran est ce qui apparait quand on appuie sur la touche <F2> dans VBE.
Donc, comme l'a dit fanch55, si tu exécutes en pas à pas, forcément, ça ouvre l'explorateur d'objets.

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
Bonjour,

Je clique dans le tableau, mais ça n'ouvre pas l'explorateur d'objet chez moi.

Ce que tu montres en capture d'écran est ce qui apparait quand on appuie sur la touche <F2> dans VBE.

Bonjour Marcel
Alors c'est "CreateObject("wscript.shell").SendKeys "{F2}"" qui ouvre l'explorateur ?
Merci déjà pour cette info importante

Pendant que j'y suis, il y a un moyen, tout en gardant le code "CreateObject("wscript.shell").SendKeys " dont j'ai besoin, d'éviter l'ouverture de l'explorateur ?

TooFatBoy · 25 Mars 2022

Oui, c'est le SendKeys "{F2} qui t'ouvre l'explorateur d'objets quand tu exécutes ton code en pas à pas.

Est-ce bien ça : tu as ce problème d'ouverture de l'explorateur d'objets uniquement quand tu exécutes ton code en pas à pas ???

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
Oui, c'est le SendKeys "{F2} qui t'ouvre l'explorateur d'objets quand tu exécutes ton code en pas à pas.

Est-ce bien ça : tu as ce problème d'ouverture de l'explorateur d'objets uniquement quand tu exécutes ton code en pas à pas ???

OUI uniquement sur "CreateObject("wscript.shell").SendKeys "{F2}""

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
OUI uniquement sur "CreateObject("wscript.shell").SendKeys "{F2}""

Ma question n'est pas de savoir si c'est uniquement sur cette instruction, mais si c'est uniquement lors de l'exécution en mode "debug" (<F5> ou <F8>). Ce qui semble à peu près évident, mais je demande quand même.

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
Ma question n'est pas de savoir si c'est uniquement sur cette instruction, mais si c'est uniquement lors de l'exécution en mode "debug" (<F5> ou <F8>). Ce qui semble à peu près évident, mais je demande quand même.

NON, je n'exécute pas en mode "debug"

TooFatBoy · 25 Mars 2022

Juste une remarque (mais...) tu crois vraiment que les PROTECT et UNPROTECT sont indispensables ?

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
Juste une remarque (mais...) tu crois vraiment que les PROTECT et UNPROTECT sont indispensables ?

on peut les enlever pour le test lol ... mais j'ai tellement l'habitude de les mettre car dans mes fichiers, ils sont importants

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
NON, je n'exécute pas en mode "debug"

D'abord OUI...
Puis NON...
Et après ??? PEUT-ËTRE...

Franchement, je ne vois pas pourquoi ça t'ouvre l'explorateur d'objets si tu n'es pas dans VBE.
Désolé de ne pouvoir te renseigner.

Usine à gaz · 25 Mars 2022

Marcel32 à dit:
D'abord OUI...
Puis NON...
Et après ??? PEUT-ËTRE...

Franchement, je ne vois pas pourquoi ça t'ouvre l'explorateur d'objets si tu n'es pas dans VBE.
Désolé de ne pouvoir te renseigner.

TooFatBoy · 25 Mars 2022

Usine à gaz à dit:
on peut les enlever pour le test lol ... mais j'ai tellement l'habitude de les mettre car dans mes fichiers, ils sont importants

C'est surtout que ça ne sert absolument à rien...
Enfin, je veux dire par là que tout le monde sait comment faire sauter les protections d'Excel.

Usine à gaz · 25 Mars 2022

Merci d'avoir bien voulu m'aider
Moi non plus, je ne vois pas pkoi

Microsoft 365 Explorateur d'objets vba ouverture intempestive (pour moi)

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires