Microsoft 365 workbooks.Open

Bonjour Cmdavid, bonjour le forum,

C'est quoi ce .Close True à la fin ???
j'écrirais :

VB:

Workbooks.Open Filename:=ThisWorkbook.Path & "\F-A.xlsm", Password:="a"
Workbooks.Open Filename:=ThisWorkbook.Path & "\F-B.xlsm", Password:="a"

Bonjour

merci pour les réponses, ou inclure les lignes "toto, ....." dans la vba ci-dessous?
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 & "\BASE.xlsm", Password:="a").Close True

.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub

Robert à dit:

Bonjour Cmdavid, bonjour le forum,

C'est quoi ce .Close True à la fin ???
j'écrirais :

VB:

Workbooks.Open Filename:=ThisWorkbook.Path & "\F-A.xlsm", Password:="a"
Workbooks.Open Filename:=ThisWorkbook.Path & "\F-B.xlsm", Password:="a"

Cliquez pour agrandir...

Bonjour Robert,
j'ai essayé mais cela ne fonctionne pas, je dois toujours entree les mots de passe.
voila la VBA utilisé :
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 & "\BASE.xlsm", Password:="a").Close True

.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub

un grand merci pour votre aide!

je cherche sans grand résultat. l'idée étant que pour chaque fichier on puisse avoir un mot de passe différents.