Bonjour à tous,

je rencontre depuis peu une erreur d'exécution dans mon programme et je ne trouve pas de solution sur les forums.

Le message d'erreur suivant apparaît de façon aléatoire:
Erreur d'exécution '-2147417848(80010108)'
L'objet invoqué s'est déconnecté de ses clients
Lorsque je lance le débugeur, il m'indique la ligne de code suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Risks weighted analysis Proj").Copy Before:=Sheets(1)
Quoique je fasse, que je mette fin à l'exécution de la macro, que je fasse débuguer ou que j'essaie de forcer la macro à continuer, le fichier finit par se fermer d'un coup.

Voici le début du programme:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub RAnalysisProject()
 
Dim Owner$, Référence$, Mitigation_Plan$
 
Application.ScreenUpdating = False
'Application.CutCopyMode = False
 
Référence$ = Sheets("Parameters").Range("Default_Ana").Value & "P_" & Format(Now(), "ddmmyyyyhhmmss")
Sheets("Risks weighted analysis Proj").Select
Sheets("Risks weighted analysis Proj").Copy Before:=Sheets(1)
Sheets("Risks weighted analysis Pro (2)").Select
Sheets("Risks weighted analysis Pro (2)").Name = Référence$
 
For i = Sheets.Count To 1 Step -1
 
X = Sheets.Item(i).Range("E5").Value
A = Sheets.Item(i).Name
Auriez vous une idée de l'origine de ce bug svp? Vous me seriez d'une grande aide!

Petite précision: il n'y a pas de liaisons!

Merci