modifier le code d'une macro en code pour macro commandbuton dans un userform

[youan]

Bonsoir le forum
SVP
J'ai une macro qui marchait bien sur un bouton normal et j'ai crée un commandbutton dans un userform ,est ce que c'est possible de modifier le code de cette macro pour qui sert au code de commandbutton?.
Merci
Cordialement
voila la macro
Sub enregistrer()
Dim LePath As String, LeNom As String
MsgBox "Enregistre"
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\"
ElseIf UCase(Range("C6")) = "AVOIR D'ACOMPTE" 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")
Range("E8").Select
End Sub

Sub Archiver()
'
' gestiondevis Macro
'

' On est dans la page "Devis Factures P1"
MsgBox "Archiver"
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("I33").Insert Shift:=xlShiftDown
.Range("I33").Value = Array(CDate(Range("E7")), Range("E8"), Range("B12"), Range("E47"), Range("E48"), Range("E49"), Range("E53"), Range("E54"))
.Range("I33").Interior.ColorIndex = xlNone
Range("E8").Select
End If
End With
End Sub
Sub MonBouton3()
ActiveSheet.Shapes("MonBouton3").Select
If Selection.Characters.Text = "Enregistrer" Then
Selection.Characters.Text = "Archiver"
Call enregistrer
ElseIf Selection.Characters.Text = "Archiver" Then
Selection.Characters.Text = "Enregistrer"
Call Archiver
End If
End Sub

 

[Dranreb]

Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir
Quel problème rencontrez vous à mettre ce code dans l'évènement Click du bouton, c'est à dire dans la procédure dont le modèle s'installe simplement en double cliquant su le bouton du userform ?
Cordialement.

 

[youan]

Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Re bonsoir
Merci pour votre réponse
Voila j'ai essayé mais ça marche pas j’envoie le fichiers joint

 

[Compte Supprimé 979]

Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir youan ou dois-je dire ait haddou

Je t'ai donné une réponse sur l'autre forum

merci de ne pas venir polluer tous les forums

 

[Dranreb]

Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Je ne trouve pas de CommandButton16 dans votre Userfom2
À +

 

[youan]

Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir comme tu veux
Je suis pas une bombe pour polluer , j'ai demandé l'aide depuis hier sur le forum (excel pratique) j'avais pas de réponse et je l'ai demandé sur ce Forum
Je sais pas il est ou le problème BrunoM45
J'ai jamais manquer de respect à quoique ce soi
Merci de votre compréhension

 

[youan]

Re : modifier le code d'une macro en code pour macro commandbuton dans un userform

Bonsoir Dranreb
j'ai modifié le fichier c'est CommandButton6
Merci
Cordialement