Problème macro - bouton de commande

[XceSs]

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

Private Sub CommandButton1_Click()
Call Enregistrer
End Sub

Public Sub Enregistrer() 'copie sauvegarde classeur
If Range("base!R12") <> Empty ThenCOLOR]
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

 

[coco_lapin]

Re : Problème macro - bouton de commande

Bonjour XceSs et le forum,

Si ton onglet base est selectionné tu peux remplacer Range("base!R12") par Range("R12")
sinon le remplacer par Sheets("base").Range("R12")

 

[XceSs]

Re : Problème macro - bouton de commande

Merci, j'ai encore un souci j'arrive pas a enlever message que le fichier existe deja :s :
Application.DisplayAlert = False

 

[coco_lapin]

Re : Problème macro - bouton de commande

Tu as oublié le s à DisplayAlert

J'ai essayé ce code qui fonctionne bien

Application.DisplayAlert[B][COLOR=red]s[/COLOR][/B] = False

A la fin de ta macro remets à True sinon tu n'auras plus de confirmation même en manuel ce qui est dangereux:

Application.DisplayAlerts = True

 

[XceSs]

Re : Problème macro - bouton de commande

Merci bien :]