Macro activée par bouton de commande
Bonjour,
Ma macro après action sur le bouton me met erreur 1004
La méthode 'Range' de l'objet '_worksheet' a échoué
Merci de votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Private Sub CommandButton1_Click()
Call Enregistrer
End Sub
Public Sub Enregistrer() 'copie sauvegarde classeur
If Range("base!R12") <> Empty Then
Dim mesv As String
mesv = Range("base!R12").Value
If (mesv > 1) Then
rep = MsgBox(" Vous avez des messages vocaux d'enregistrer : " & mesv, vbInformation + vbYes, "Messages vocaux...")
End If
If (mesv = 1) Then
rep = MsgBox(" Vous avez un message vocal d'enregistrer ", vbInformation + vbYes, "Messages vocaux...")
End If
End If
Dim nom As String
nom = "CB" & Format(Cells(2, 2), " dd-mm-yyyy") & ".xlsm"
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & nom
rep = MsgBox("Carnet de bord sauvegardé ce jour sous le nom : " & nom, vbInformation + vbYes, "Sauvegarde du carnet de bord...")
End Sub |
