Bonjour,
j'ai 3 fichiers:
1. DG
2. BASE - avec mot de passe a l'ouverture (1)
3. COM - avec mot de passe a l'ouverture (1)
lorsque je change la date du fichier DG, il me demande le mot de passe du fichier COM. J'utilise une macro (voir ci-dessous) qui fonctionne pour le mot de passe du fichier BASE, j'aimerai que celle-ci fonctionne aussi pour le fichier COM.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AT3,AT4:AW4]) Is Nothing Then Exit Sub
Dim etat As Boolean
With Application
.ScreenUpdating = False
.DisplayAlerts = False
etat = .AskToUpdateLinks
.AskToUpdateLinks = False
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1").Close True
.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub
Merci pour votre aide.
j'ai 3 fichiers:
1. DG
2. BASE - avec mot de passe a l'ouverture (1)
3. COM - avec mot de passe a l'ouverture (1)
lorsque je change la date du fichier DG, il me demande le mot de passe du fichier COM. J'utilise une macro (voir ci-dessous) qui fonctionne pour le mot de passe du fichier BASE, j'aimerai que celle-ci fonctionne aussi pour le fichier COM.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AT3,AT4:AW4]) Is Nothing Then Exit Sub
Dim etat As Boolean
With Application
.ScreenUpdating = False
.DisplayAlerts = False
etat = .AskToUpdateLinks
.AskToUpdateLinks = False
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1").Close True
.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub
Merci pour votre aide.