problème d'ouverture en cascade de fichiers excel

[paprika48]

Bonjour,
je gère des classeurs excel du genre 2021_compta.xls, 2022_compta.xls, 2023_compta....
avec le classeur 2022_compta j'ai besoin d'utiliser la fonction indirect() pour mettre à jour des cellules à partir de 2021_compta, ce qui nécessite que 2021 soit ouvert. J'ai donc créé une macro workbook_open() qui lance 2021 à l'ouverture de 2022 : ça marche !
sauf que si je lance le fichier 2023 il lance 2022, qui lance à son tour 2021 (il y a la même procedure dans tous les classeurs)
Comment éviter ce lancement en cascade ?
Merci pour vos réponses
-----

[vande545]

Bonjour
Sans voir le code VBA, c'est impossible de t'aider

[umfred]

En vérifiant que le n+1 n'est pas ouvert avant d'ouvrir le n-1 (ou qu'il n'y a qu'un seul fichier excel d'ouvert)
le workbook_open() étant une macro lancée systématiquement à l'ouverture du classeur; ça provoque le lancement en cascade

Private sub workbook_open()
    dim is_next_open as boolean
    dim wb as Workbook
    dim AnneeCourante as integer
    AnneeCourante = CInt(left(thisworkbook.name,4))      ' on récupère l'année du classeur actuellement ouvert
    on error resume next                                                ' si erreur, on poursuit tout de même (ça permet de s'affranchir de tester si le nom commence des classeurs commencent par 4 chiffres)
    For Each wb in Worbooks                                           ' on regarde parmi les classeurs ouvert
        if CInt(left(wb.Name,4)) = AnneeCourante+1 then  ' si le classeur de l'année suivante est ouvert
            is_next_open =True                                          ' on le "mémorise"
            Exit For                                                            ' et on sort
        End If
    Next
    if not is_next_open then                                                      'si le classeur de l'année suivante n'est pas ouvert
        workbooks.open Csrt(AnneeCourante-1) & "_compta.xls"   ' on ouvre le classeur de l'année précédente
    end if
End Sub