macro ok par thisworkbook et pas par bouton

[phil69]

Bonjours a toutes et tous

j'ai une marcro qui ce déclanche a la fermeture du classeur qui fonction trés bien,mais je ne la voudrai plus à la fermeture,mais commandée par un bouton
le hik ,par le bouton une fonction de celle ci ne fonctionne pas
mon code
Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = MsgBox("Etes-vous sur de vouloir faire la sauvegarde ?", 4) = 7
If Not Cancel Then
ActiveWorkbook.Save
Sheets("recap mensuel").Select
For Each cell In Range("A7:A" & Range("A65536").End(xlUp).Row)
If cell.Value = Date Then
Sheets("recap mensuel").Range("c410:T410").Copy
cell.Offset(0, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
Sheets("feuille journaliere").Select


ThisWorkbook.Save
End If

Le collage special ne marche pas
alors que si je la declanche par Private Sub Workbook_BeforeClose(Cancel As Boolean) la ele marche

merci
phil69

 

[kjin]

Re : macro ok par thisworkbook et pas par bouton

Bonsoir,

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
....
ActiveWorkbook.Save
...
ThisWorkbook.Save
....

Pourquoi ?

Avec ce que j'ai compris

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Q = MsgBox("Etes-vous sur de vouloir faire la sauvegarde ?", 4)
If Q = 6 Then
ActiveWorkbook.Save
    With Sheets("recap mensuel")
        For Each cell In .Range("A7:A" & .Range("A65536").End(xlUp).Row)
            If cell.Value = Date Then
                .Range("c410:T410").Copy
                cell.Offset(0, 2).PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
            End If
        Next
    End With
End If
ActiveWorkbook.Save

End Sub

A+
kjin

 

[skoobi]

Re : macro ok par thisworkbook et pas par bouton

Bonjour,

pourrais-tu envoyer le fichier stp?

Edit: salut kjin 🙂

 

[phil69]

Re : macro ok par thisworkbook et pas par bouton

bonjour le forum

merci pour la reponse ça mache


phil69