Supprimer une feuille à partir de son lien hptxte

[alween]

Bonjour à tous,
Un problème pour laquelle je n’ai rien trouvé dans les archives ni sur internet en général.

Un lien hypertexte en cellule A1 renvoie vers une autre page du classeur (par exemple Toto).

Je souhaite faire une macro qui aille chercher le nom de la feuille « Toto » dans le lien de la cellule A1 puis supprime la feuille « Toto ».

Une esquisse de code qui m'efface la page en cours :

Sub essai()
    Range('A1').Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ActiveWindow.SelectedSheets.Delete
End Sub

Merci par avance de votre aide et bonnes fêtes de fin d’année !
Alween

Message édité par: alween, à: 21/12/2005 13:35

 

[manu83]

essaye ca en remaniant un peu

Dim tonfichier As Excel.Workbook 'Classeur Excel
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
'affectation du workbook maxcase
Set tonfichier= ActiveWorkbook
tonfichier.delete

ETant pas membre je ne pourrais suivre le fil
donc ne soit pas trop impatient

 

[alween]

En m'insipirant de ton orientation, j'essaye le code suivant mais il m'efface toujours la feuille sur laquelle je suis au lieu de la feuille verslaquelle tire le lien :

Sub essai()
Dim mafeuille As Excel.Worksheet
Cells(ActiveCell.Row, 2).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Set mafeuille = ActiveSheet
mafeuille.Delete
End Sub

Help !
inch: