anthooooony
XLDnaute Occasionnel
Bonjour à tous,
Savez vous s'il est possible de changer en masse un code vba qui se trouve dans l explorateur?
En faite j'ai fait pour une 50ène de fichiers une condition qui était celle de se lancer si un user précis fermé le fichier, seulement un des users est parti un autre est arrivé, et il faut que je change tout
Je sais plus ou moins changer une celulle, des feuilles etc mais taper directement dans le vba je ne sais pas.
Merci pour votre aide
Anthooooony
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Environ("UserName") = "RC1194" Or Environ("UserName") = "IBD496" Then
Sheets("Page de garde").Activate
Range("B4").Select
ActiveCell.FormulaR1C1 = "=TODAY()-7"
Range("B5") = DateSerial(Year(Range("B4")), Month(Range("B4")), 1)
Savez vous s'il est possible de changer en masse un code vba qui se trouve dans l explorateur?
En faite j'ai fait pour une 50ène de fichiers une condition qui était celle de se lancer si un user précis fermé le fichier, seulement un des users est parti un autre est arrivé, et il faut que je change tout
Je sais plus ou moins changer une celulle, des feuilles etc mais taper directement dans le vba je ne sais pas.
Merci pour votre aide
Anthooooony
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Environ("UserName") = "RC1194" Or Environ("UserName") = "IBD496" Then
Sheets("Page de garde").Activate
Range("B4").Select
ActiveCell.FormulaR1C1 = "=TODAY()-7"
Range("B5") = DateSerial(Year(Range("B4")), Month(Range("B4")), 1)