Bonsoir ced and
Une solution à ton problême:
Sub ouvrir_fichiers()
On Error Resume Next 'au cas ou le fichier serait déjà ouvert
Workbooks.Open filename:="c:\data\monfichier1.xls", _
UpdateLinks:=True
On Error Resume Next
Workbooks.Open filename:="c:\data\monfichier2.xls", _
UpdateLinks:=True
On Error Resume Next
Workbooks.Open filename:="c:\data\monfichier3.xls", _
UpdateLinks:=True
Tableau de bord.Activate 'te ramene sur je fichier de départ à partir duquel la macro a demarré
Pour fermer tous les fichiers sans fermer le fichier de base(tableau de bord)
For Each wb In Workbooks
If Not wb Is ThisWorkbook Then
wb.Close SaveChanges:=True 'enregistre les modifs (=False) ferme sans enregistrer
End If
Next wb
End Sub
Fais des essais celà devrait marcher.
Bien amicalement
Jacques de ryes