Microsoft 365 workbooks.Open

[cmdavid]

Bonjour,
Comment ajouter d'autres fichiers avec mot de passe a la ligne ci-dessous ?
exemple : ajouter les fichiers F-A.xlsm, F-B.xlsm avec le même mot de passe "a".

Workbooks.Open(Filename:=ThisWorkbook.Path & "\BASE.xlsm", Password:="a").Close True

Merci pour votre aide.

 

[Robert]

Bonjour Cmdavid, bonjour le forum,

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

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

 

[jmfmarques]

Bonjour

toto = array("Base-xlsm","F-A.xlsm", "F-B.xlsm")
for k = 0 to ubound(toto)
workbooks.open(filename:=thisworkbook.path & toto(k),  .....etc ....
next

 

[cmdavid]

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

 

[cmdavid]

Bonjour Cmdavid, bonjour le forum,

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

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

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!

 

[cmdavid]

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