Discussion :

[kawel]

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 :

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
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

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kawel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SilkyRoad]

bonjour

fait un essai en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bon apres midi
michel

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...