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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager