Macros difféents sur une mm image

Bonjour le forum,

Je rentre de suite dans le sujet, j'ai un classeur qui fonctionne avec tte ça complexité....

Mon souci est avec des images (les mm) avec des macros différent.

Je dois tous les lundi creer 21 fois cette feuille ci joint (ce n'est qu'un morceau!!!) avec les macros, les formules associés qui fonctionne parfaitement!

Mon souci est avec l'image retour à l'accueil macro 001 sur feuille 001macro 002 sur feuille 002 et idem avec enregistrer sous,,

La macro fonctionne , mais par exemple , j'applique_macro_002 sur la feuille 002, elle se développe parfait, mais j'ai les code pour la feuille 001.

J'ai besoin d'aide svp,

Sub Appliquer_macro_001()

'

' Appliquer_macro_001 Macro

'

'

ActiveSheet.Shapes.Range(Array("Picture 1")).Select

Selection.OnAction = "Retour_Accueil_dun_agent_001"

ActiveSheet.Shapes.Range(Array("Picture 60")).Select

Selection.OnAction = "Sauvegarde_agent_001"

Range("A6").Select

MsgBox "Les macros 001 sont collées"

End Sub

Bonjour

Pas sur d'avoir tout compris

Bonjour,

Je vais essayé sur le classeur complet mais ca a l'air de faire ce que je veux!!!

Merci déja je te tiens au courant de la suite

Re,

J'ai essayé sur l'origine ,il me mets en erreure je le capturé et je le mis dans le dossier...

J'ai mis aussi les codes complet de retour a l'accueil et de sauvegarde

Merci Banzai

Bonjour

Dans le Select Case il faut noter les feuilles non concernées

Sub Intalle_Macros()
Dim Ws As Worksheet

  For Each Ws In Sheets
    Select Case Ws.Name
' On inscrit les feuilles qui n'ont pas les images
      Case "Données", "Accueil"
      Case Else
        Ws.Shapes("Picture 1").OnAction = "Retour_Accueil_dun_agent_" & Ws.Name
        Ws.Shapes("Picture 60").OnAction = "Sauvegarde_agent_" & Ws.Name
    End Select
  Next Ws
  MsgBox "Les macros sont collées"

End Sub

Bon j'ai pas envie d’abandonner, mais là ..... lol

Alors maintenant il me colle toujours les mm macro sur toutes les picture 1 et picture 60

Je début, je pense que c'est parce que c'est les mm nom!!???

Quand pense tu Banzai??

Merci

je joint le fichier complet!

Bonjour

Cliques sur le bouton "Installe macro" et va vérifier

Les macros sont neutralisées : Juste un message

Bonsoir le form,

La solution ,grand merci à Banzai.

La difficulté c'est que tu as plusieurs fois les mêmes images dans chaque feuille

La macro modifiée à installer dans ton fichier original

Sub Intalle_Macros()

Dim Ws As Worksheet

Dim Sh As Shape

For Each Ws In Sheets

Select Case Ws.Name

Case "Données", "Accueil ", "Cumul" ' Tu notes toutes les pages non concernées

Case Else

For Each Sh In Ws.Shapes

If Sh.Name = "Picture 1" Then

Sh.OnAction = "Retour_Accueil_dun_agent_" & Ws.Name

ElseIf Sh.Name = "Picture 60" Then

Sh.OnAction = "Sauvegarde_agent_" & Ws.Name

End If

Next Sh

End Select

Next Ws

MsgBox "Les macros sont collées"

End Sub