Hypertexte / barre
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour à tous,
J'ai fais un lien hypertexte dans un fichier excel pour ouvrir un autre fichier.
Lorsque mon fichier s'ouvre, excel me rajoute automatiquement la barre d'outil "web".
Je voudrai que cette barre ne s'apparaisse pas.
Pour cela, j'ai fais une macro "auto-open" comme suit :
Sub Auto_open()
Application.CommandBars("Web").Visible = False
Range("A1").Select
End Sub
Si je lance la macro pas à pas, elle fonctionne.
Mais en automatique à l'ouverture de mon fichier, la barre d'outil reste en place, mais la cellule active est bien la cellule A1 comme demandé dans la macro.
Comment faut-il écrire la macro ou y-a-t-il un autre moyen de procéder ?
Petite précision, c'est excel 2003
Merci de vos réponses
J'ai fais un lien hypertexte dans un fichier excel pour ouvrir un autre fichier.
Lorsque mon fichier s'ouvre, excel me rajoute automatiquement la barre d'outil "web".
Je voudrai que cette barre ne s'apparaisse pas.
Pour cela, j'ai fais une macro "auto-open" comme suit :
Sub Auto_open()
Application.CommandBars("Web").Visible = False
Range("A1").Select
End Sub
Si je lance la macro pas à pas, elle fonctionne.
Mais en automatique à l'ouverture de mon fichier, la barre d'outil reste en place, mais la cellule active est bien la cellule A1 comme demandé dans la macro.
Comment faut-il écrire la macro ou y-a-t-il un autre moyen de procéder ?
Petite précision, c'est excel 2003
Merci de vos réponses
Configuration: Windows Vista Internet Explorer 7.0
2 réponses
-
Alt+F11 this workbook
tu met cette macro
Private Sub Workbook_open()
Application.CommandBars("Web").Visible = False
Range("A1").Select
End Sub -
Bonjour,
J'ai trouvé sur la toile la solution, dans le fichier contenant le lien et dans "ThisWorkbook", il fallait mettre la macro suivante :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Application.CommandBars("Web").Visible = False
End Sub
