Automation error - The object invoked has disconnected from its clients

Version imprimable

Bonjour à tous,

J'ai un petit problème persistant lors de l'éxecution d'une macro...
Voici la situation :

J'ai un ensemble de macros qui vont ouvrir un (autre) classeur et vont travailler dedans.
A la fin, la macro principale est sensée fermer ce classeur en le sauvegardant...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public MonClasseurCible As Workbook Sub Main_Sub() Call Ouvrir_Classeur_Cible Set MonClasseurCible = Application.ActiveWorkbook Main_Form.Show ' tout le code de modification se trouve dans Private Sub UserForm_Activate() ' Permet de garder une pop-up à l'ecran qui décrit les modifs au fur et à mesure Set MonClasseurCible = Nothing ActiveWorkbook.Close True End Sub
Mais, arrivé ligne 14, j'obtient une Pop-up avec ce message :

Citation:

Run-time '-2147417848(80010108)'

Automation error
The object invoked has disconnected from its clients

Puis Excel bugg et l'histoire se termine par un redémarrage d'Excel (si je ne clic pas sur "Restart the program" ; dans quel cas c'est un redémarrage complet du PC ^^)

Il faut savoir que j'ai modifié ma façon d'activer le classeur cible (avant quoi çà marchait) car je pensais que çà serait plus propre ; je vous laisse juger pas vous même :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Public MonClasseurCible As String 'est devenu Public MonClasseurCible As Workbook Workbooks(MonClasseurCible).Activate 'est devenu MonClasseurCible.Activate Workbooks(MonClasseurCible).Close True 'est devenu MonClasseurCible.Close True 'puis enfin ActiveWorkbook.Close True
Si quelqu'un avait une solution à mon problème, je suis preneur! =)

18/08/2014, 13h59
SfJ5Rpw8

Bonjour,

On peu voir le code de ta procédure "OuvrirClasseurCible"..

Dans la plus part des cas c'est une il ne faut pas utiliser ActiveWorkBook..

pour fermer ton classeur en le sauvant tu dois faire :

Code:

MonClasseurCible.close true
18/08/2014, 14h01
mercatog

C'est l'obligation de travailler avec les variables objets au lieu de l'Activeworkbbok, activemachin

Si tu montre le code de ta procédure
Ouvrir_Classeur_Cible

Bonjour,

Voici la macro :

Code:

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
Sub Ouvrir_Classeur_Cible()
 
    'Dim MonFichier
    'Dim MonFichier_Cplt
    'Dim MonClasseurCible
 
    With Application.FileDialog(msoFileDialogOpen)
 
        .AllowMultiSelect = False
        .Title = "Fichier à impacter..."
        .Filters.Clear
        .Filters.Add "Excel files", "*.xls*"
        .InitialFileName = ""
        .InitialView = msoFileDialogViewList
        .Show
        On Error Resume Next
        If Err.Number > 0 Or .SelectedItems.Count = 0 Then
            Annuler = True
            Exit Sub
        Else
            Annuler = False
            MyName = Thisworkbook.Name
            MonFichier_Cplt = .SelectedItems(1)
            Workbooks.Open (MonFichier_Cplt)
        End If
 
    End With
 
End Sub

18/08/2014, 14h31
SfJ5Rpw8

tu peu modifier ta ligne d'ouverture du classeur en affectant directement ta variable :

Code:

Set MonClasseurCible = Workbooks.Open (MonFichier_Cplt)

Ou en utilisant une fonction sans la variable globale

Exemple

Code:

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
Option Explicit
 
Private Function ClasseurCible() As Workbook
 
With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .Title = "Fichier à impacter..."
    .Filters.Clear
    .Filters.Add "Excel files", "*.xls*"
    .InitialFileName = ""
    .InitialView = msoFileDialogViewList
    .Show
    If .SelectedItems.Count > 0 Then Set ClasseurCible = Workbooks.Open(.SelectedItems(1))
End With
End Function
 
 
Sub Main_Sub()
Dim MonClasseurCible As Workbook
 
Set MonClasseurCible = ClasseurCible()
If Not MonClasseurCible Is Nothing Then
 
    Main_Form.Show                               ' tout le code de modification se trouve dans Private Sub UserForm_Activate()
    ' Permet de garder une pop-up à l'ecran qui décrit les modifs au fur et à mesure
    MonClasseurCible.Close True
    Set MonClasseurCible = Nothing
End If
End Sub

Je viens de remarquer que le problème venait certainement de mon Main_Form :
Lorsque je fais mes tests (en mettant la ligne Main_Form.show en commentaire) le classeur s'ouvre et se referme sans problème...
Main_Form est composé uniquement d'un champ de texte (Label1) et voici le code derrière :

Code:

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
30
31
32
33
34
35
Private Sub UserForm_Activate()
 
    Label1.Caption = "Modification en cours :" & vbCrLf & vbCrLf & _
    MonClasseurCible.Name & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & _
    "Veuillez patienter."
 
 
    For i = 1 To MonClasseurCible.Sheets.Count
 
        Sheets(i).Select
 
        Label1.Caption = "Modification en cours :" & vbCrLf & vbCrLf & _
        MonClasseurCible.Name & vbCrLf & "Feuille : " & i & "/" & _
        MonClasseurCible.Sheets.Count & vbCrLf & vbCrLf & vbCrLf & "Veuillez patienter."
 
        Me.Repaint
 
        Call Sub1
        Call Sub2
        Call Sub3
 
    Next i
 
    Label1.Caption = "Modification en cours :" & vbCrLf & vbCrLf & _
    MonClasseurCible.Name & vbCrLf & "Mise à jours des modules du classeur" & _
    vbCrLf & vbCrLf & vbCrLf & "Veuillez patienter."
 
    Me.Repaint
 
    Call Sub4
 
 
    Main_Form.Hide
 
End Sub

Déjà merci pour vos débuts de solutions ; je vais les appliquer tout de suite...