Yep,

J'ai une erreur "erreur d'execution '-2147221080(800401a8)': Erreur automation"

Je n'ai pas la possibilité de debogger.

voici mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Enregistrer_Click()
 
Dim Ceclasseur As Workbook
Dim Copie As Workbook
Dim Nomfeuille As String
Dim Supprimer As Integer
Supprimer = 0
Nomfeuille = ActiveSheet.Name
 
If (FichierEstOuvert(ThisWorkbook.Path & "\Résultats_" & ActiveSheet.Name & ".xls") = False) Then
    If (MsgBox("Voulez vous supprimer cette feuille apres l'avoir copiée dans l'autre classeur ?", vbYesNo) = vbYes) Then
        Supprimer = 1
    End If
 
    Set Ceclasseur = ActiveWorkbook
    Ceclasseur.Sheets(Nomfeuille).Copy
    Set Copie = ActiveWorkbook
    Copie.SaveAs ThisWorkbook.Path & "\Résultats_" & ActiveSheet.Name & ".xls"
    If (Supprimer = 1) Then
        Application.DisplayAlerts = False
        Ceclasseur.Sheets(Nomfeuille).Delete
        Application.DisplayAlerts = True
    End If
'Copie.Worksheets(Nomfeuille).OLEObjects(1).Delete
Else
    MsgBox ("tttrhutu")
End If
 
End Sub

l'erreur se produit uniquement si je met "oui" au message "supprimer la feuille..."

Donc à ce niveau là :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    If (Supprimer = 1) Then
        Application.DisplayAlerts = False
        Ceclasseur.Sheets(Nomfeuille).Delete
        Application.DisplayAlerts = True
    End If
(Aucun ouci si je ne veux pas la supprimer)

Une idée?