Bonjour à tous
Je sais bien que çà revient souvent cette demande mais j'ai un problème à faire activer la macro qui devrait ouvrir le classeur, mettre la date du jour dans la colonne B à la dernière cellule et finalement que la dite cellule se copie en valeur absolue. J'ai un début de code qui fonctionnait mais qui n'ouvrait pas automatiquement le classeur. J'inclus le fichier en espérant une solution. Je ne suis pas un expert dans les macros mais je les aimes bien.
Dim lig&: lig = Cells(Rows.Count, 2).End(xlUp)(2).Row
With Cells(lig, 2)
If lig > 1 Then If .Offset(-1) = Date Then Exit Sub
.Value = Date
If lig > 2 Then .Offset(, -1) = .Value - .Offset(-1)
End With
End Sub
Je sais bien que çà revient souvent cette demande mais j'ai un problème à faire activer la macro qui devrait ouvrir le classeur, mettre la date du jour dans la colonne B à la dernière cellule et finalement que la dite cellule se copie en valeur absolue. J'ai un début de code qui fonctionnait mais qui n'ouvrait pas automatiquement le classeur. J'inclus le fichier en espérant une solution. Je ne suis pas un expert dans les macros mais je les aimes bien.
Dim lig&: lig = Cells(Rows.Count, 2).End(xlUp)(2).Row
With Cells(lig, 2)
If lig > 1 Then If .Offset(-1) = Date Then Exit Sub
.Value = Date
If lig > 2 Then .Offset(, -1) = .Value - .Offset(-1)
End With
End Sub