[VBA-E] Automation, déconnexion d'objet

Version imprimable

Bonjour,
J'ai vu de nombreux posts concerne des erreurs d'automation mais cette erreur-ci ne semble pas avoir été traité.
Alors voilà l'intitulé :

Erreur d'exécution '-2147417848(80010108)':
Erreur automation
L'objet invoqué s'est déconnecté de ses clients

Alors j'avoue ne pas comprendre ce que cela signifie. Surtout que mon code s'appuie sur l'aide directement donc je ne comprend pas pkoi ca ne fonctionne pas. Voici ma déclaration, mon ouverture et fermeture du classeur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim Compilation as workbook 'Ouverture Set compilation = Workbooks.Add With compilation .Title = "Résultats" .Subject = "Analyse d'objet" .SaveAs FileName:="D:\Peluchage 8 bits OK\NouveauxClasseur.xls" End With Workbooks.Open ("D:\Peluchage 8 bits OK\NouveauxClasseur.xls") Sheets(1).Activate ActiveSheet.Name = "Résultats" 'Renomme la feuille 'Fermeture fileSaveName = compilation.GetSaveAsFilename("Nouveau_fichier.xls", , , "Enregistrer sous") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName End If
Si quelqu'un peut m'éclairer, je l'en remercie grandement
D'avance merci :P

10/08/2006, 22h57
AlainTech

Code:

Workbooks.Open ("D:\Peluchage 8 bits OK\NouveauxClasseur.xls")

Je ne sais pas si c'est sur cette ligne qu'apparaît l'erreur mais je ne vois pas pourquoi tu cherches à ouvrir le classeur que tu viens de créer (et qui est donc ouvert).

Code:

Sheets(1).Activate

Ensuite, sache que c'est toujours la feuille 1 d'un classeur nouvellement créé qui est la feuille active.
Cette ligne est donc inutile.
11/08/2006, 16h35
kawel

Merci encore une fois AlainTech. Hèlas ça n'arrange rien.
Maintenant il me dit objet requis sur

Code:

fileSaveName = compilation.GetSaveAsFilename("Nouveau_fichier.xls", , , "Enregistrer sous")

J'avoue ne pas comprendre car "compilation" est un objet et représente mon classeur qui plus est...
Les Dieux tutélaires de VBA ne me sont pas favorables semble-t-il :?
Si une idée... merci encore

bonjour

fait un essai en remplaçant

Code:

1
2
fileSaveName = Compilation.GetSaveAsFilename _
        ("Nouveau_fichier.xls", , , "Enregistrer sous")

par

Code:

1
2
fileSaveName = Application.GetSaveAsFilename _
    ("Nouveau_fichier.xls", , , "Enregistrer sous")

bon apres midi
michel

11/08/2006, 17h49
kawel
Merci Michel, j'avais déjà tenté cette manip sans changement.
En fait je viens de trouver, enfin, la solution.
C'était du à une mauvaise déclaration.

Voilà quelque chose de plus propre
Code:

1 2 3 4 5 6 Dim xlApp As Excel.Application Dim compilation As Excel.Workbook puis pour la fermeture : compilation.Close (True)
Tout simplement... En fait si ce type d'erreur vous arrive, cela vient d'une mauvaise déclaration d'objet. J'ai pourtant essayé de déclarer de plusieurs façon différentes compilation en tant qu'objet mais en vain... Enfin en tout cas ainsi ça marche, à bon entendeur... ;)