Lien hypertexte qui lance une macro

Bonjour,

Après avoir vérifié sur le forum, je ne trouve pas la solution:

j'ai une macro qui déclenche un filtre élaboré à partir d'une base de données sur la feuille 1.

L'extraction se fait sur la feuille 2.Pas de problème.

Les critères se modifient sur la Feuille 1.

Donc je voudrais que ma macro se déclenche quand je clique sur le lien hypertexte qui affiche la Feuille 2 et donc extrait les bonnes informations.

Merci d avance

Bonsoir,

Tu peux toujours établir ta macro en évènementielle lancée par l'activation de la feuille...

Cordialement.

Voici ce que j ai mis dans le module de la feuille "Programme"

"bdd" = Feuil 1 avec la base de données

Private Sub Worksheet_Activate()

Sheets("Programme").Select

Range("bdd").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"B6:L7"), CopyToRange:=Range("Programme!Extract"), Unique:=False

End Sub

et j obtiens une erreur 1004 alors que le bouton lié à la macro que j ai mis sur la feuille "programme" fonctionne...

C'est confus !

Quelle est la feuille 1 et quelle est la feuille 2 ?

"bdd" = nom dans le classeur ? sur quelle feuille ?

"B6:L7" = sur quelle feuille ?

"Extract" = nom dans le classeur ? quelle adresse de plage ? sur quelle feuille ?

Et supprimer ligne avec Select ! Sélectionner est une manie dommageable dont il convient absolument de se défaire !

Voici un fichier test pour plus de clarté

Le bouton "extraire" fonctionne mais pas la macro liée à ce bouton que je souhaite déclencher au clic sur le lien hypertexte du bouton de navigation bleu qui amène sur l'onglet "programme".

Modifie le numero du client sur l'onglet "fichierClient"

Merci de ton aide, je patauge ...

Re,

Private Sub Worksheet_Activate()
    With Worksheets("Programme")
        [bdd].AdvancedFilter xlFilterCopy, .Range("B6:K7"), .Range("B9:H9"), False
    End With
End Sub

Cordialement.

MERCI !!!!!!! super

Merci de ta patience.