Activation de Macro à l'ouverture du fichier

[papapaul]

🙂 Salut Forum, j'y arrive pas, voici :
Dans ma Feuil1 j'ai ce code qui enlève les scrolls d'un Gif animé
Private Sub Worksheet_activate()
With Feuil1
.WebBrowser1.Document.body.Scroll = "no"
End With
End Sub
Si j'ouvre directement sur la Feuil1, les scrolls restent, ca va pas😡
Je clique alors sur Feuil2 et ensuite je clique Feuil1, les scrolls disparaissent grace au code ci-dessus.

Si j'ouvre sur la Feuil2
Private Sub workbook_open()
Feuil2.Activate
End Sub
et clique ensuite la Feuil1, ca marche aussi.

Mais quoi rajouter pour retourner sur la Feuil1
automatiquement sans avoir à cliquer sur l'onglet ?

Ou mieux, ouvrir sur ma Feuil1 et que la Macro efface bien
mes scrolls sans être obligé de passer par un changement de feuilles?
J'ai essayé d'être clair, merci d'avance.
Bonne journée à tous.😉

 

[mutzik]

Re : Activation de Macro à l'ouverture du fichier

bonjour,

essaie un truc du style webbrowser.repaint

en fait, je crois qu'il fait l'action à l'activation de la feuille mais la feuille n'est pas redéssinée (sauf quand on passe en feuill2 puis à nouveau sur la 1)

 

[papapaul]

Re : Activation de Macro à l'ouverture du fichier

🙂 Salut Mutzig, Resalut Forum
C'est bien ca, il faut passer par une autre Feuil (ex : Feuil2)
pour que ca marche vraiment bien.
J'ai essayer ton tuyau Repaint mais c'est pas concluant.
Je vous joins un zip que ceux que ca intéresse peuvent enregistrer.
Dedans il y a 1 gif (mouton)
1 xls ou je colle le mouton.
1 doc qui est un petit ModOp pour expliquer comment j'ai fait.
Pas simple les manips.
C'est la dernière partie à la réouverture du fichier xls
qui correspond à ma question précédente.
Réouvrir le fichier et que le mouton apparaisse bien
du premier coup en Feuil1 sans scrolls. La je coince.
Si faut passer par une autre feuille, c'est pas grave,
après tout c'est pour le fun, mais quand même,
ce serait mieux.
Vive xld 😉

 

[myDearFriend!]

Re : Activation de Macro à l'ouverture du fichier

Bonjour papapaul, mutzik,

Tu peux aussi utiliser l'évènement NavigateComplete2() du WebBrowser, comme suit (dans le module de code de la feuille 1) :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE LA FEUILLE 1[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] WebBrowser1_NavigateComplete2([COLOR=NAVY]ByVal[/COLOR] pDisp [COLOR=NAVY]As Object[/COLOR], URL [COLOR=NAVY]As Variant[/COLOR])
    WebBrowser1.Document.body.Scroll = "no"
[COLOR=NAVY]End Sub[/COLOR]

Comme ça les scrollbars sont supprimées dès que l'image est chargée dans le contrôle WebBrowser, et plus besoin de jouer sur l'activate des feuilles.

Cordialement,

 

[papapaul]

Re : Activation de Macro à l'ouverture du fichier

🙂🙂🙂 Didier,
J'aurais jamais pu trouvé un code pareil.
Je viens de testé, apparement c'est ok.
Dix Mille Mercis, c'est génial.
Je vais pouvoir finir mon petit ModOp
et le transmettre à mes amis xldiens que ca intéresse.
Vivement ce week-end ensoleillé pour toi, Michel et tous les autres.😀
Vive XLD