Clic droit et liens hypertextes

Bonjour.
Exécute la macro :

Sub Repare()
Application.CommandBars("Cell").Reset
End If

Cordialement.
Daniel

Bonjour,
Sur Excel 97, avec un clic droit sur certains postes, il y a la possibilité
d'insérer des liens hypertextes, alors que d'autres non.
Comment faire afin "d'activer cette fonctionnalité ?
Je vous remercie
Alain

Salut Daniel,
Il s'agit du clic droit.
Je te remercie
Alain

Daniel.C a écrit :

Bonjour.
Exécute la macro :

Sub Repare()
Application.CommandBars("Cell").Reset
End If

Cordialement.
Daniel

Bonjour,
Sur Excel 97, avec un clic droit sur certains postes, il y a la
possibilité d'insérer des liens hypertextes, alors que d'autres non.
Comment faire afin "d'activer cette fonctionnalité ?
Je vous remercie
Alain

Oui? ça ne fonctionne pas ?
Daniel

Salut Daniel,
Il s'agit du clic droit.
Je te remercie
Alain

Daniel.C a écrit :

Bonjour.
Exécute la macro :

Sub Repare()
Application.CommandBars("Cell").Reset
End If

Cordialement.
Daniel

Bonjour,
Sur Excel 97, avec un clic droit sur certains postes, il y a la
possibilité d'insérer des liens hypertextes, alors que d'autres non.
Comment faire afin "d'activer cette fonctionnalité ?
Je vous remercie
Alain

Ben non,
en fait, il s'agit du clic droit sur la feuille de calcul Excel
Je te remercie
Alain

Daniel.C a écrit :

Oui? ça ne fonctionne pas ?
Daniel

Salut Daniel,
Il s'agit du clic droit.
Je te remercie
Alain

Daniel.C a écrit :

Bonjour.
Exécute la macro :

Sub Repare()
Application.CommandBars("Cell").Reset
End If

Cordialement.
Daniel

Bonjour,
Sur Excel 97, avec un clic droit sur certains postes, il y a la
possibilité d'insérer des liens hypertextes, alors que d'autres non.
Comment faire afin "d'activer cette fonctionnalité ?
Je vous remercie
Alain

> en fait, il s'agit du clic droit sur la feuille de calcul Excel

C'est bien ce que ma macro aurait dû réparer...
Est-ce que cela se produit sur tous les classeurs, y compris les
nouveaux ?

Essaie :

Sub Repare()
For Each c In Application.CommandBars("Cell").Controls
If c.Caption = "Lien &hypertexte" Then
c.Enabled = True
c.Visible = True
Exit Sub
End If
Next c
End Sub

Daniel

Ben non,
en fait, il s'agit du clic droit sur la feuille de calcul Excel
Je te remercie
Alain

Daniel.C a écrit :

Oui? ça ne fonctionne pas ?
Daniel

Salut Daniel,
Il s'agit du clic droit.
Je te remercie
Alain

Daniel.C a écrit :

Bonjour.
Exécute la macro :

Sub Repare()
Application.CommandBars("Cell").Reset
End If

Cordialement.
Daniel

Bonjour,
Sur Excel 97, avec un clic droit sur certains postes, il y a la
possibilité d'insérer des liens hypertextes, alors que d'autres non.
Comment faire afin "d'activer cette fonctionnalité ?
Je vous remercie
Alain

Super,
Cette procédure fonctionne parfaitement !
Bonne journée
Alain

Daniel.C a écrit :

en fait, il s'agit du clic droit sur la feuille de calcul Excel

C'est bien ce que ma macro aurait dû réparer...
Est-ce que cela se produit sur tous les classeurs, y compris les nouveaux ?

Essaie :

Sub Repare()
For Each c In Application.CommandBars("Cell").Controls
If c.Caption = "Lien &hypertexte" Then
c.Enabled = True
c.Visible = True
Exit Sub
End If
Next c
End Sub

Daniel

Ben non,
en fait, il s'agit du clic droit sur la feuille de calcul Excel
Je te remercie
Alain

Daniel.C a écrit :

Oui? ça ne fonctionne pas ?
Daniel

Salut Daniel,
Il s'agit du clic droit.
Je te remercie
Alain

Daniel.C a écrit :

Bonjour.
Exécute la macro :

Sub Repare()
Application.CommandBars("Cell").Reset
End If

Cordialement.
Daniel

Bonjour,
Sur Excel 97, avec un clic droit sur certains postes, il y a la
possibilité d'insérer des liens hypertextes, alors que d'autres non.
Comment faire afin "d'activer cette fonctionnalité ?
Je vous remercie
Alain