Bonjour à tous,

Dans un module général j'ai cette procédure que j'appelle par Call depuis le code dans des userform en renseignant le nom de la feuille concernée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Public Sub affiche(nom)
    Application.ScreenUpdating = False
    With ThisWorkbook.Sheets(nom)
        If .Visible <> xlSheetVisible Then .Visible = xlSheetVisible
        .Activate
        .Range("A1").Select
    End With
    Application.ScreenUpdating = True
End Sub
Cette procédure fonctionne parfaitement sur excel 2013 sur tous les PC mais sur 2010 elle produit très souvent une erreur d'automation qui plante excel irrémédiablement.
"Un objet s'est déconnecté" est parfois affiché : je ne vois pas ce qui cloche.
Microsoft signale sur 2003 qu'il faut libérer les objets mais je ne vois pas ce que je peux libérer.

Merci d'avance à ceux qui sauront m'expliquer le souci.