Deux fois MonBouton

Bonjour le forum

j'ai associé trois macros à MonBouton et ça marche bien grasse à vous, et là j'ai associé deux macro à MonBouton3 ,mais ça marche pas y a t il une solution ?

Merci

Cordialement

Voila mon fichier joint et ma macro

Sub enregistrer3()

Dim LePath As String, LeNom As String

If UCase(Range("E6")) = "DEVIS" Then

' LePath = ThisWorkbook.Path & "\"

LePath = "C:\Users\ait haddou\Documents\sud est travaux\DEVIS\"

ElseIf UCase(Range("E6")) = "FACTURE" Then

' LePath = ThisWorkbook.Path & "\"

LePath = "C:\Users\ait haddou\Documents\sud est travaux\Factures\"

Else

MsgBox "Vérifier le nom dans E6"

Exit Sub

End If

ActiveSheet.Copy

LeNom = [B12] & Format([E8], "ddmmyyyyhhmm") & ".xls"

ActiveWorkbook.SaveAs LePath & LeNom

ActiveWorkbook.Close

Range("E8") = Range("E8")

End Sub

Sub ArchiverdevisFactures3()

'

' gestiondevis Macro

'

' On est dans la page "Devis Factures P1"

With Sheets("Gestion Devis factures")

If UCase(Range("E6")) = "DEVIS" Then

.Range("A3:G3").Insert shift:=xlShiftDown

.Range("A3:F3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"))

.Range("A3:G3").Interior.ColorIndex = xlNone

Else

.Range("I3:P3").Insert shift:=xlShiftDown

.Range("I3:P3").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"), Range("E53"), Range("E54"))

.Range("I3:P3").Interior.ColorIndex = xlNone

End If

End With

End Sub

Sub MonBouton3()

ActiveSheet.Shapes("MonBouton").Select

If Selection.Characters.Text = "Enregistrer" Then

Call enregistrer3

ElseIf Selection.Characters.Text = "Archiver" Then

Call ArchiverdevisFactures3

End If

End Sub

Bonjour

1) Il faut mettre le bon texte dans le bouton : Actuellement il y a "Archiver Devis Fa"

alors pour que la macro trouve "Enregistrer" ou "Archiver" pas glop glop

2) Dans la macro ton bouton doit s'appeler "MonBouton3"

Sub MonBouton3()
  ActiveSheet.Shapes("MonBouton3").Select
  If Selection.Characters.Text = "Enregistrer" Then
    Selection.Characters.Text = "Archiver"
    Call enregistrer3
  ElseIf Selection.Characters.Text = "Archiver" Then
    Call ArchiverdevisFactures3
    Selection.Characters.Text = "Enregistrer"
  End If
End Sub

Je ne sais pas si c'est ce que tu veux, à chaque clic il y a changement de l'inscription dans MonBouton3

Banzai64 a écrit :

Bonjour

1) Il faut mettre le bon texte dans le bouton : Actuellement il y a "Archiver Devis Fa"

alors pour que la macro trouve "Enregistrer" ou "Archiver" pas glop glop

2) Dans la macro ton bouton doit s'appeler "MonBouton3"

Sub MonBouton3()
  ActiveSheet.Shapes("MonBouton3").Select
  If Selection.Characters.Text = "Enregistrer" Then
    Selection.Characters.Text = "Archiver"
    Call enregistrer3
  ElseIf Selection.Characters.Text = "Archiver" Then
    Call ArchiverdevisFactures3
    Selection.Characters.Text = "Enregistrer"
  End If
End Sub

Je ne sais pas si c'est ce que tu veux, à chaque clic il y a changement de l'inscription dans MonBouton3

Merci Banzai64

j'ai remplacé la macro que tu m'as fais par la mienne mais ça marche pas

Voila le fichier modifier

Bonjour

Il y a un début il ne reste plus qu'à modifier le texte de "MonBouton3"

Soit tu y mets "Archiver" ou "Enregistrer"

Je répète je ne sais pas quand il faut changer le texte dans ce bouton, moi je l'ai intégré dans la macro mais pas sur que cela soit comme ça que tu veux

Banzai64 a écrit :

Bonjour

Il y a un début il ne reste plus qu'à modifier le texte de "MonBouton3"

Soit tu y mets "Archiver" ou "Enregistrer"

Je répète je ne sais pas quand il faut changer le texte dans ce bouton, moi je l'ai intégré dans la macro mais pas sur que cela soit comme ça que tu veux

Re bonjour

J'ai changer le texte de MonBouton3 ,mais ça marche pas encore

Bonjour

Un chose

Quand tu réponds cliques sur le bouton "Répondre" à la place de "Citer" car , sauf cas exceptionnel, je me rappelle ce que j'ai marqué

A vérifier dans le fichier

Merci Banzai64

j'ai essayé ton fichier mais il ne registre pas et n'archive pas

Merci Banzai64

c'est réglé