Erreur 424 objet requis

[bernardrustrel]

Bonjour
Je sollicite un coup de pouce, car à l'ouverture du fichier joint s'ouvre un formulaire avec un bouton "ABANDON" qui devrait me permettre d'enregistrer l'heure de fermeture du fichier puis de quitter ce fichier.
Or il m'apparaît: erreur d'exécution 424, objet requis
Que je n'arrive pas à résoudre, alors si l'un de vous avait une idée, je l'en remercie par avance.
Cordialement.
Bernard

 

[Lone-wolf]

Re : Erreur 424 objet requis

Bonjour Bernard

Modifie la macro comme ceci

Public Sub JournalFermeture()
Dim DernLig As Integer
Sheets("JdB").Unprotect
On Error Resume Next
            With Feuil1
                    DernLig = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
            .Cells(DernLig, 14).Value = Format(Now, "mm/dd/yyyy hh:mm")
            With .Range("A" & DernLig & ":N" & DernLig).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
    End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub

 

[CPk]

Re : Erreur 424 objet requis

Bonjour, remplacez votre ligne en défaut par celle-ci.

DernLig = .Worksheets("JdB").Cells(Rows.Count, 1).End(3).Row + 1

Au lieu d'aller chercher la dernière ligne dans la feuille la macro recherche dans la colonne 1 seulement