Bonsoir à toutes et à tous, voilà mon problème.
J'ai un code écrit dans ThisWorkbook. On m'a demandé de mettre un message, j'ai modifié pas de problème.
Maintenant, on me demande de dupliquer ce code sur tous les fichiers. Tous ces fichiers sont stockés dans le même dossier, mais il y en des centaines.
Y a-t-il un moyen de modifier dans un, comme je l'ai fait et renvoyer la modification vers tous tous les autres classeurs
Merci de votre aide
@+
Ancien code
Nouveau code
J'ai un code écrit dans ThisWorkbook. On m'a demandé de mettre un message, j'ai modifié pas de problème.
Maintenant, on me demande de dupliquer ce code sur tous les fichiers. Tous ces fichiers sont stockés dans le même dossier, mais il y en des centaines.
Y a-t-il un moyen de modifier dans un, comme je l'ai fait et renvoyer la modification vers tous tous les autres classeurs
Merci de votre aide
@+
Ancien code
Code:
Private Sub workbook_open()
Dim DateDepart As Date
Dim J As Integer
Dim m As String
Dim Number As Integer
J = Format(Date, "d", today)
Sheets("Page 1").Select
Cells(45, 9) = Format(Date, "dd-mmmm-yyyy")
DateDepart = DateSerial(Year(Date), Month(Date) + 12, J)
Cells(46, 23) = Format(DateDepart, "dd-mmmm-yyyy")
Sheets("Page 1").Select
Cells(35, 11).Select
End Sub
Code:
Private Sub workbook_open()
Dim DateDepart As Date
Dim J As Integer
Dim m As String
Dim Number As Integer
Dim bx As Long
bx = MsgBox("Veux-tu changer la date", vbYesNo)
If (bx = 6) Then
Else
Exit Sub
End If
J = Format(Date, "d", today)
Cells(45, 9) = Format(Date, "dd-mmmm-yyyy")
DateDepart = DateSerial(Year(Date), Month(Date) + 12, J)
Cells(46, 23) = Format(DateDepart, "dd-mmmm-yyyy")
Sheets("Page 1").Select
Cells(35, 11).Select
End Sub