Classeur partagé
s
Bonjour,
J'ai partagé un classeur avec Révision/partager le classeur..
Depuis cela, lorsque j'enregistre, j'ai une erreur 1004.
Est-ce que je dois apporter une modification au niveau de l'enregistrement d'une ligne ?
Merci!
p
Bonjour,
N'aurais tu pas du code dans ton before save ou close?
Si oui poste le ici ...
s
Non, le seul code est :
'Bouton enregistrer
Private Sub btn_enregistrer_click()
Dim L As Long
ActiveSheet.Unprotect
If var_ajout = True Then
'Placer le nouvel enregistrement à la première ligne de tableau non vide
L = Sheets("transaction").Range("a65536").End(xlUp).Row + 1
Range("A" & L).Value = L
MsgBox "Votre transaction a été ajoutée !"
var_ajout = False
Else
L = Me.cb_no_transaction.ListIndex + 2
tb_maj = Format(Now(), "DD-MM-YYYY")
MsgBox "Votre transaction a été enregistrée !"
End If
Range("B" & L).Value = Val(cb_ubr)
Range("C" & L).Value = Val(cb_compte)
Range("D" & L).Value = cb_type
Range("E" & L).Value = cb_etat
Range("F" & L).Value = tb_description
Range("G" & L).Value = tb_fac_fournisseur
Range("H" & L).Value = Format(TB_req_dt, "YYYY-MM-DD")
Range("I" & L).Value = tb_req_no
Range("J" & L).Value = Format(tb_bc_dt, "YYYY-MM-DD")
Range("K" & L).Value = tb_bc_no
Range("L" & L).Value = Format(tb_fac_dt, "YYYY-MM-DD")
Range("M" & L).Value = tb_fac_no
Range("N" & L).Value = Val(Replace(tb_bud_eng, ",", "."))
Range("O" & L).Value = Val(Replace(tb_bud_montant, ",", "."))
'Range("P" & L).Value = Format(tb_saf_dt, "YYYY-MM-DD")
Range("Q" & L).Value = Val(Replace(tb_bud_impact, ",", "."))
Range("R" & L).Value = cb_fac_recu
Range("S" & L).Value = tb_req_contact
Range("T" & L).Value = tb_note_generale
Range("U" & L).Value = cb_saf_etat
Range("V" & L).Value = tb_saf_note
Range("W" & L).Value = Format(tb_maj, "YYYY-MM-DD")
Range("X" & L).Value = tb_req_courriel
Range("Y" & L).Value = tb_sou_no
Range("Z" & L).Value = tb_acheteur
Range("AA" & L).Value = cb_periode
Call MAJ_inactif
ActiveSheet.Protect
End Sub
s
Je constate que mon erreur est provoquée par cette ligne :
ActiveSheet.Protect