fermer les fichiers

[ludo]

bonjour

je voudrai a l'ouverture d'un fichiers excel fermer et sauvegarder tous les autres fichiers excel en cours

comment doit je faire.


merci

 

[@Christophe@]

Bonjour Ludo

Voici la macro à mettre dans ThisWorkbook de ton fichier:

Option Explicit
Dim WB As Workbook

Private Sub Workbook_Open()
For Each WB In Workbooks
If WB.Name <> "Classeur1" Then ' Modifie Classeur1 par le nom de ton fichier
WB.Close True
End If
Next WB
End Sub

Bonne journée

@Christophe@