Exécuter une macro d'une feuille à partir d'une autre feuill

Bonjour,

mon sujet a déjà été traité mais je ne parviens pas à adapté les solutions proposées à mon fichier.

Dans mon fichier joint je souhaite qu'en cliquant sur un bouton dans la feuille "Visu résa journalier", une macro s'active dans la feuille "Feuil1" puis revenir sur ma feuille initiale.

En utilisant le code ci-dessous, j'ai un message d'erreur de débogage qui s'affiche.

Sheets("Feuil1").Select

ma macro

Sheets("Visu résa journalier").Select

Merci par avance de votre aide.

Cordialement

Bonjour !

Même si ce n'est pas conseillé et vu qu'on a peu d'explications tu peux essayer ceci :

Remplace les :

.Select

par :

.Activate

8) Cordialement

Merci mais j'ai toujours un message d'erreur :

Erreur d'exécution '1004' : Cette action ne peut pas être appliquée à une cellule fusionnée

j'ai mis mon fichier en pièce jointe.

Essaie avec ce code :

Private Sub CommandButton1_Click()
Sheets("Feuil1").Activate
With Worksheets("Feuil1")
    .Range("B3:I50").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "S1:S2") ', CopyToRange:=Range("J3:Q3"), Unique:=False
    .Range("J3:Q3").Select
    Selection.AutoFilter
        If ActiveSheet.FilterMode Then
            ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
    End If

    .AutoFilter.Sort.SortFields.Add Key:=Range _
        ("L3"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End With
Sheets("Visu résa journalier").Activate
End Sub

Si c'est bon tu peux mettre résolu  :D 

merci Bijotrolol, mais même si je n'ai plus de message d'erreur qui apparaît (c'est déjà une bonne chose), je n'ai pas le résultat escompté de ma macro.

En effet, il doit se faire un filtre automatique mais ça ne fonctionne pas.

Je vois que ' CopyToRange:=Range("J3:Q3"), Unique:=False est de couleur verte dans la macro ce qui signifie que ça ne prend pas en compte la ligne de code c'est ça ? Si je supprime l’apostrophe avant cette ligne, de nouveau le message d'erreur apparaît en exécutant la macro.

C'est bon, j'ai trouvé la solution.

Il suffisait simplement d'enregistrer une macro et de l'attribuer à mon bouton d'exécution de cette façon :

Private Sub CommandButton1_Click()

Sheets("Feuil1").Activate

Application.Run ("Ma macro")

Sheets("Visu résa journalier").Activate

End Sub