Code vba ne fonctionne pas
RésoluTireur50 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
le code ne s'exécute pas à l'ouverture du classeur.
Voici le code:
Private Sub Workbook_Open()
Dim todayDate As Date
todayDate = Date
' Vérifier si la date est entre le 5 et le 15 de chaque mois
If Day(todayDate) >= 5 And Day(todayDate) <= 15 Then
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
' Vérifier si l'opération n'a pas déjà été enregistrée pour ce mois
If Month(Cells(lastRow, "A").Value) <> Month(todayDate) Then
' Ajouter une nouvelle ligne avec les informations
Cells(lastRow + 1, "A").Value = todayDate
Cells(lastRow + 1, "C").Value = "hfdhgfhff"
Cells(lastRow + 1, "D").Value = "plltisqkjs"
Cells(lastRow + 1, "F").Value = "aamnxfekl"
Cells(lastRow + 1, "I").Value = "128"
End If
End If
End Sub
Merci de votre aide,
Windows / Edge 113.0.1774.35
- Freewifi secure
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
3 réponses
bonjour,
et ainsi?
Option Explicit
Private Sub Workbook_Open()
Dim todayDate As Date
todayDate = Date
' Vérifier si la date est entre le 5 et le 15 de chaque mois
If Day(todayDate) >= 5 And Day(todayDate) <= 15 Then
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
' Vérifier si l'opération n'a pas déjà été enregistrée pour ce mois
If Month(Cells(lastRow, "A").Value) <> Month(todayDate) Then
' Ajouter une nouvelle ligne avec les informations
Cells(lastRow + 1, "A").Value = todayDate
Cells(lastRow + 1, "C").Value = "hfdhgfhff"
Cells(lastRow + 1, "D").Value = "plltisqkjs"
Cells(lastRow + 1, "F").Value = "aamnxfekl"
Cells(lastRow + 1, "I").Value = "128"
MsgBox ("travail fait, voir ligne " + CStr(lastRow + 1))
Else
MsgBox ("deja fait pour ce mois")
End If
Else
MsgBox ("pas le bon jour")
End If
End Sub
