Hypertexte / barre

Résolu
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

2 réponses

kadeh Messages postés 341 Statut Membre 92
 
Alt+F11 this workbook
tu met cette macro
Private Sub Workbook_open()
Application.CommandBars("Web").Visible = False
Range("A1").Select
End Sub
0
Utilisateur anonyme
 
Merci de ta réponse aussi rapide

Ca ne fonctionne pas.

As tu d'autres idées
0
Utilisateur anonyme
 
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
0